humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

alternative isEmpty implementation in string-set.sml

Browse Source
This commit is contained in:
Humza Shahid
2024-09-09 18:22:56 +01:00
parent 6228a259bc
commit ede0da6643
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
bench/insert-string-set Executable file
View File

Binary file not shown.

5
src/string-set.sml
View File

@@ -67,7 +67,10 @@ struct
val empty = val empty =
CHILDREN {keys = Vector.fromList [], children = Vector.fromList []} CHILDREN {keys = Vector.fromList [], children = Vector.fromList []}
fun isEmpty trie = trie = empty fun isEmpty trie =
case trie of
CHILDREN {keys, ...} => Vector.length keys = 0
| _ => false
fun fromString str = fun fromString str =
if String.size str > 0 then if String.size str > 0 then