st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Spec changed; Changes introduced; fixed minor bugs

Browse source
This commit is contained in:
Dmitry Boulytchev 2021-02-01 10:39:12 +03:00
parent 7c7ef67e1d
commit 59f78fe38a
6 changed files with 49 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/PatternMatching.lama
View file

@ -1,21 +1,23 @@
fun show (x) {
fun show (level, x) {
for local i; i := 0, i<level, i := i + 1 do
for var i; i := 0, i<level, i := i + 1 do
printf (" ")
od;
case x of
#unboxed -> printf ("integer %d\n", x);
return
| #array -> printf ("array\n")
| #string -> printf ("string\n")
| #sexp -> printf ("S-expression\n")
| #fun -> printf ("closure 0x%x\n", x[0])
#val -> printf ("integer %d\n", x)
| #array -> printf ("array\n")
| #str -> printf ("string\n")
| #sexp -> printf ("S-expression\n")
| #fun -> printf ("closure 0x%x\n", x[0])
esac;
for local i; i := case x of #fun -> 1 | _ -> 0 esac, i < x.length, i := i + 1 do
show (level + 2, x[i])
od
case x of
#val -> skip
| _ -> for var i; i := case x of #fun -> 1 | _ -> 0 esac, i < x.length, i := i + 1 do
show (level + 2, x[i])
od
esac
}
show (0, x)