From de8ec8026b3fbf60cfa95ef1c48ad53e1b922d38 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 19 May 2024 00:18:44 -0600
Subject: Initial binary search tree

---
 binary-search/binary-search-test.scm | 13 +++++++++++++
 binary-search/binary-search.scm      |  7 +++++++
 2 files changed, 20 insertions(+)
 create mode 100644 binary-search/binary-search-test.scm
 create mode 100644 binary-search/binary-search.scm

diff --git a/binary-search/binary-search-test.scm b/binary-search/binary-search-test.scm
new file mode 100644
index 0000000..adbeacb
--- /dev/null
+++ b/binary-search/binary-search-test.scm
@@ -0,0 +1,13 @@
+(use-modules (srfi srfi-64)
+             (binary-search))
+
+(test-begin "harness")
+
+
+(define bst (make-empty-bst))
+
+(test-assert "empty-bst-missing-zero"
+  (not (bst-member-p bst 0)))
+
+
+(test-end "harness")
diff --git a/binary-search/binary-search.scm b/binary-search/binary-search.scm
new file mode 100644
index 0000000..95513df
--- /dev/null
+++ b/binary-search/binary-search.scm
@@ -0,0 +1,7 @@
+(define-module (binary-search))
+
+(define-public (make-empty-bst)
+  #t)
+
+(define-public (bst-member-p bst e)
+  #f)
-- 
cgit v1.2.3