git-subtree-dir: string-tries-sml git-subtree-mainline:dba78da7ecgit-subtree-split:d056e08ce7
12 lines
184 B
Standard ML
12 lines
184 B
Standard ML
structure InsertBroTree =
|
|
struct
|
|
fun main () =
|
|
let
|
|
val endTree = Vector.foldl BroTree.insert BroTree.empty WordsList.words
|
|
in
|
|
()
|
|
end
|
|
end
|
|
|
|
val _ = InsertBroTree.main ()
|