RosettaCodeData/Task/Factorial/R/factorial-4.r
2026-04-30 12:34:36 -04:00

1 line
63 B
R

fact_fp <- function(n) ifelse(!n, 1, Reduce(`*`, seq_len(n)))