1 files changed, 12 insertions, 0 deletions

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;