Data commit

Task/State-name-puzzle/Zkl/state-name-puzzle.zkl

@@ -0,0 +1,26 @@
+#<<<  // here doc
+states:=("Alabama, Alaska, Arizona, Arkansas,
+   California, Colorado, Connecticut, Delaware, Florida,
+   Georgia, Hawaii, Idaho, Illinois, Indiana, Iowa, Kansas,
+   Kentucky, Louisiana, Maine, Maryland, Massachusetts,
+   Michigan, Minnesota, Mississippi, Missouri, Montana,
+   Nebraska, Nevada, New Hampshire, New Jersey, New Mexico,
+   New York, North Carolina, North Dakota, Ohio, Oklahoma,
+   Oregon, Pennsylvania, Rhode Island, South Carolina,
+   South Dakota, Tennessee, Texas, Utah, Vermont, Virginia,
+   Washington, West Virginia, Wisconsin, Wyoming"
+   /* Uncomment the next line for the fake states. */
+   # ",New Kory, Wen Kory, York New, Kory New, New Kory"
+#<<<
+).split(",").apply("strip");
+
+smap:=Dictionary();
+Utils.Helpers.pickNFrom(2,states).apply2('wrap(ss){ // 1225 combinations
+   key:=(ss.concat()).toLower().sort()-" ";
+   smap[key]=smap.find(key,List()).append(ss.concat(" + "));
+});
+
+foreach pairs in (smap.values){ // 1224 keys
+//    pairs=Utils.Helpers.listUnique(pairs);  // eliminate dups
+    if(pairs.len()>1)
+        println(pairs.concat(" = ")) }