RosettaCodeData/Task/Factorial/R/factorial-1.r

5 lines
65 B
R

fact <- function(n) {
if (n <= 1) 1
else n * Recall(n - 1)
}