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