This commit is contained in:
Dmitry Boulytchev 2020-02-19 16:29:29 +03:00
parent 3b94e30eaa
commit 9140263a3f

View file

@ -1,9 +0,0 @@
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)