musique/examples/factorial.mq

16 lines
328 B
Plaintext
Raw Normal View History

2022-05-17 16:10:56 +02:00
var for = [ start stop iteration |
if (start > stop)
[nil]
[iteration start; for (start + 1) stop iteration]
2022-05-17 16:10:56 +02:00
];
var factorial = [n | if (n <= 1) [1] [n * (factorial (n-1))]];
2022-05-17 16:10:56 +02:00
for 1 10 [i | say (factorial i)];
2022-06-06 04:22:59 +02:00
var factorial_iterative = [n |
var x = 1;
for 1 n [i|x *= i];
x
];
for 1 10 [i | say (factorial_iterative i)];