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

2 lines
61 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
factorial: n = (|r <- 1| 1 to: n + 1 Do: [|:i| r: r * i]. r)