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

add a version of test039 with debug print

Browse source
This commit is contained in:
danyabeerzun 2018-11-29 18:27:00 +03:00
parent 4c3dba947c
commit 369c0b1ddf
1 changed files with 41 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

41
regression/test039(1).expr Normal file
View file

@ -0,0 +1,41 @@
fun insert (t, x) {
case t of
`leaf -> return `node (x, `leaf, `leaf)
| `node (y, l, r) -> if x > y
then return `node (y, insert (l, x), r)
else return `node (y, l, insert (r, x))
fi
esac
}
fun find (t, x) {
case t of
`leaf -> return 0
| `node (y, l, r) -> if x == y then return 1
elif x > y then return find (l, x)
else return find (r, x)
fi
esac
}
n := read ();
write (0);
t := insert (`leaf, 5);
write (2);
t := insert (t, 4);
write (3);
t := insert (t, 6);
write (4);
t := insert (t, 3);
write (5);
write (find (t, 5));
write (6);
write (find (t, 4));
write (find (t, 6));
write (find (t, 3));
write (find (t, 2));
write (find (t, 1));
t := insert (insert (insert (insert (`leaf, 5), 4), 6), 3)