Initial commitHEADmain

1 files changed, 14 insertions, 0 deletions

diff --git a/tree/src/main.adb b/tree/src/main.adb
new file mode 100644
index 0000000..b9ece1a
--- /dev/null
+++ b/tree/src/main.adb
@@ -0,0 +1,14 @@
+with Ada.Text_IO; use Ada.Text_IO;
+
+with Tree;
+
+procedure Main is
+   package IntTree is new Tree (Integer);
+   T : IntTree.Tree_Access := new IntTree.Tree;
+begin
+   T.Left := new IntTree.Tree;
+   T.Right := new IntTree.Tree;
+   T.Right.Left := new IntTree.Tree;
+
+   Put_Line ("Tree height:" & IntTree.Height (T)'Image);
+end Main;