RosettaCodeData/Task/Factorial/Self/factorial-2.self

2 lines
61 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
factorial: n = (|r <- 1| 1 to: n + 1 Do: [|:i| r: r * i]. r)