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/tree.ads | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tree/src/tree.ads

(limited to 'tree/src/tree.ads')

diff --git a/tree/src/tree.ads b/tree/src/tree.ads
new file mode 100644
index 0000000..1cf26fc
--- /dev/null
+++ b/tree/src/tree.ads
@@ -0,0 +1,18 @@
+generic
+   type T is private;
+
+package tree is
+
+   type Tree;
+   type Tree_Access is access Tree;
+
+   type Tree is record
+      Val   : T;
+      Left  : Tree_Access;
+      Right : Tree_Access;
+   end record;
+
+   -- Returns the height of the tree.
+   function Height (T : Tree_Access) return Integer;
+
+end tree;
-- 
cgit v1.2.3