From c6e39268be197a4eaccc0187271764a646017715 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 27 Oct 2024 01:00:38 +0200
Subject: Refactored comparisons and sets

---
 std/Set/NumberSet.bruijn | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 std/Set/NumberSet.bruijn

(limited to 'std/Set/NumberSet.bruijn')

diff --git a/std/Set/NumberSet.bruijn b/std/Set/NumberSet.bruijn
new file mode 100644
index 0000000..220e2dc
--- /dev/null
+++ b/std/Set/NumberSet.bruijn
@@ -0,0 +1,22 @@
+# MIT License, Copyright (c) 2024 Marvin Borner
+
+:input std/Set
+
+:import std/Number T
+
+# adds a number of a set
+add T.<?>add ⧗ Number → NumberSet → NumberSet
+
+# returns true if a number is in a set
+has? T.<?>has? ⧗ Number → NumberSet → Boolean
+
+:test (has? (+5) (add (+5) empty)) ([[1]])
+:test (has? (+5) empty) ([[0]])
+
+# converts a list to a set
+list→set T.<?>list→set ⧗ (List Number) → NumberSet
+
+:test (has? (+0) (list→set ((+5) : ((+3) : ((+2) : ((+1) : {}(+0))))))) ([[1]])
+:test (has? (+5) (list→set ((+5) : ((+3) : ((+2) : ((+1) : {}(+0))))))) ([[1]])
+:test (has? (+6) (list→set ((+5) : ((+3) : ((+2) : ((+1) : {}(+0))))))) ([[0]])
+:test (has? (+7) (list→set ((+5) : ((+7) : {}(+1))))) ([[1]])
-- 
cgit v1.2.3