blob: 4bee3450e7f7d6fffaaee56e023efa2f6fec9eb3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# MIT License, Copyright (c) 2024 Marvin Borner
# TODO: hash instead of comparing
:input std/Set
:import std/String S
# adds a number of a set
add S.<?>add ⧗ String → StringSet → StringSet
# returns true if a number is in a set
has? S.<?>has? ⧗ String → StringSet → Boolean
:test (has? "abc" (add "abc" empty)) ([[1]])
:test (has? "abc" empty) ([[0]])
# converts a list to a set
list→set S.<?>list→set ⧗ (List String) → StringSet
:test (has? "0" (list→set ("a" : ("b" : ("d" : ("c" : {}"0")))))) ([[1]])
:test (has? "a" (list→set ("a" : ("b" : ("d" : ("c" : {}"0")))))) ([[1]])
:test (has? "e" (list→set ("a" : ("b" : ("d" : ("c" : {}"0")))))) ([[0]])
:test (has? "c" (list→set ("a" : ("c" : {}"b")))) ([[1]])
|
