musique/examples/factorial.mq
2022-05-17 16:10:56 +02:00

13 lines
228 B
Plaintext

var for = [ start stop iteration |
if (start > stop)
[| nil ]
[| iteration start; for (start + 1) stop iteration ]
];
var factorial = [n | if (n <= 1)
[| 1]
[| n * (factorial (n-1)) ]
];
for 1 10 [i | say (factorial i)];