mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
19 lines
428 B
Text
19 lines
428 B
Text
fun insert (tree, value) {
|
|
case tree of
|
|
Empty -> return Node (value, Empty, Empty)
|
|
| Node (x, left, right) ->
|
|
if x > value
|
|
then return Node (x, insert (left, value), right)
|
|
else return Node (x, left, insert (right, value))
|
|
fi
|
|
esac
|
|
}
|
|
|
|
local i, tree = Empty;
|
|
|
|
for i := 0, i <= 10, i := i+1 do
|
|
printf ("%s\n", tree.string);
|
|
tree := insert (tree, i)
|
|
od;
|
|
|
|
printf ("%s\n", tree.string)
|