RosettaCodeData/Task/Factorial/R/factorial-1.r
2020-02-17 23:21:07 -08:00

4 lines
65 B
R

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