From 727e3c59346da4f91284b34b4c18f2e0ba155e53 Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Sat, 9 Aug 2025 16:03:28 +0200
Subject: Initial commit

---
 tree/src/main.adb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tree/src/main.adb

(limited to 'tree/src/main.adb')

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;
-- 
cgit v1.2.3