lama_byterun/regression/test043.expr

12 lines
211 B
Text
Raw Normal View History

2018-05-16 16:50:36 +03:00
fun sum (x) {
case x of
2019-03-07 19:06:04 +03:00
Nil -> return 0
| Cons (x, tl) -> return x + sum (tl)
2018-05-16 16:50:36 +03:00
esac
}
x := read ();
2019-03-07 19:06:04 +03:00
write (sum (Nil));
write (sum (Cons (100, Nil)));
write (sum (Cons (100, Cons (200, Nil))))