mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
10 lines
249 B
Text
10 lines
249 B
Text
|
fun print_list (l) {
|
||
|
|
case l of
|
||
|
|
`nil -> skip
|
||
|
|
| `cons (n, t) -> write (n); print_list (t)
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
x := `cons (4, `cons(3, `cons(2 , `cons (1, `cons (0, `cons (1, `cons (2, `cons (3, `cons (4, `cons (5, `nil))))))))));
|
||
|
|
print_list (x)
|