RosettaCodeData/Task/Hash-from-two-arrays/Standard-ML/hash-from-two-arrays-2.ml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

7 lines
219 B
Standard ML

exception NotFound;
val keys = [ "foo", "bar", "baz" ]
and vals = [ 16384, 32768, 65536 ]
and hash = HashTable.mkTable (HashString.hashString, op=) (42, NotFound);
ListPair.appEq (HashTable.insert hash) (keys, vals);