Add Sets to the language

1 files changed, 36 insertions, 0 deletions

diff --git a/test/sets.tm b/test/sets.tm
new file mode 100644
index 00000000..bfec068e
--- /dev/null
+++ b/test/sets.tm
@@ -0,0 +1,36 @@
+
+func main():
+    >> t1 := {10, 20, 30, 10}
+    = {10, 20, 30}
+    >> t1:has(10)
+    = yes
+    >> t1:has(-999)
+    = no
+
+    >> t2 := {30, 40}
+
+    >> t1:with(t2)
+    >> {10, 20, 30, 40}
+
+    >> t1:without(t2)
+    >> {10, 20}
+
+    >> t1:overlap(t2)
+    >> {30}
+
+
+    >> {1,2}:is_subset_of({2,3})
+    = no
+    >> {1,2}:is_subset_of({1,2,3})
+    = yes
+    >> {1,2}:is_subset_of({1,2})
+    = yes
+    >> {1,2}:is_subset_of({1,2}, strict=yes)
+    = no
+
+    >> t1:add_all(t2)
+    >> t1
+    = {10, 20, 30, 40}
+    >> t1:remove_all(t2)
+    >> t1
+    = {10, 20}