mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
14 lines
211 B
Text
14 lines
211 B
Text
|
local x;
|
||
|
|
|
||
|
|
fun sum (x) {
|
||
|
|
case x of
|
||
|
|
Nil -> 0
|
||
|
|
| Cons (x, tl) -> (x + sum (tl))
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
x := read ();
|
||
|
|
|
||
|
|
write (sum (Nil));
|
||
|
|
write (sum (Cons (100, Nil)));
|
||
|
|
write (sum (Cons (100, Cons (200, Nil))))
|