lama_byterun/stdlib/regression/test08.expr
2020-01-20 03:38:43 +03:00

7 lines
No EOL
176 B
Text

import Fun;
local fact = fix (fun (self) {fun (n) {if n <= 1 then 1 else n * self (n-1) fi}});
printf ("%d\n", fact (3));
printf ("%d\n", fact (5));
printf ("%d\n", fact (7))