multiplication_digit_number

#wap to multiplication digits of a given number
num_prod <- function(x)
{
prod(as.numeric(unlist(strsplit(as.character(x),split = ""))))
}
num_prod(126)