2 lines
63 B
R
2 lines
63 B
R
|
fact_fp <- function(n) ifelse(!n, 1, Reduce(`*`, seq_len(n)))
|