Add 'string-tries-sml/' from commit 'd056e08ce768e014ab409c7f63e8fd0adfc1dff2'

git-subtree-dir: string-tries-sml
git-subtree-mainline: dba78da7ec
git-subtree-split: d056e08ce7

string-tries-sml/bench/build-get-prefix-string-set.sml

@@ -0,0 +1,20 @@
+structure BuildGetPrefixStringSet =
+struct
+  fun main () =
+    let
+      val endTrie =
+        Vector.foldl StringSet.insert StringSet.empty WordsList.words
+
+      val startTime = Time.now ()
+      val lst = StringSet.getPrefixList ("a", endTrie)
+      val finishTime = Time.now ()
+
+      val searchDuration = Time.- (finishTime, startTime)
+      val searchDuration = Time.toNanoseconds searchDuration
+      val searchDuration = LargeInt.toString searchDuration ^ " ns\n"
+    in
+      print searchDuration
+    end
+end
+
+val _ = BuildGetPrefixStringSet.main ()