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

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

diff --git a/tree/src/tree.adb b/tree/src/tree.adb
new file mode 100644
index 0000000..7e4a897
--- /dev/null
+++ b/tree/src/tree.adb
@@ -0,0 +1,12 @@
+package body tree is
+
+   function Height (T : Tree_Access) return Integer is
+   begin
+      if T = null then
+         return 0;
+      else
+         return 1 + Integer'Max (Height (T.Left), Height (T.Right));
+      end if;
+   end Height;
+
+end tree;
-- 
cgit v1.2.3