mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
27 lines
424 B
Text
27 lines
424 B
Text
fun sum (l) {
|
|
case l of
|
|
{} -> 0
|
|
| h : t -> (h + sum (t))
|
|
esac
|
|
}
|
|
|
|
fun print_list (l) {
|
|
case l of
|
|
{} -> skip
|
|
| h : t -> write (h); print_list (t)
|
|
esac
|
|
}
|
|
|
|
fun array_to_list (a) {
|
|
var l, i;
|
|
l := {};
|
|
for i := a.length, i > 0, i := i-1 do
|
|
l := a[i-1] : l
|
|
od;
|
|
l
|
|
}
|
|
|
|
write (sum ({}));
|
|
write (sum ({1, 2, 3, 4, 5}));
|
|
write (sum (1:2:3:4:5:{}));
|
|
print_list (array_to_list ([1, 2, 3, 4, 5]))
|