RosettaCodeData/Task/Factorial/Self/factorial-2.self
2015-11-18 06:14:39 +00:00

1 line
61 B
Text

factorial: n = (|r <- 1| 1 to: n + 1 Do: [|:i| r: r * i]. r)