lama_byterun/regression/test073.expr

16 lines
168 B
Text
Raw Normal View History

2020-01-05 03:33:17 +03:00
local n, i;
fun fact (n) {
if n <= 1
then 1
else
(n * fact (n-1))
fi
}
n := read ();
for i := n, i >= 1, i := i-1 do
write (i);
write (fact (i))
od