June 2018 Update

Task/Anagrams/BaCon/anagrams.bacon

@@ -0,0 +1,20 @@
+OPTION COLLAPSE TRUE
+
+DECLARE idx$ ASSOC STRING
+
+FOR w$ IN LOAD$("unixdict.txt") STEP NL$
+
+    set$ = SORT$(EXPLODE$(w$, 1))
+
+    idx$(set$) = APPEND$(idx$(set$), 0, w$)
+    total = AMOUNT(idx$(set$))
+
+    IF MaxCount < total THEN MaxCount = total
+NEXT
+
+PRINT "Analyzing took ", TIMER, " msecs.", NL$
+
+LOOKUP idx$ TO n$ SIZE x
+FOR y = 0 TO x-1
+    IF MaxCount = AMOUNT(idx$(n$[y])) THEN PRINT n$[y], ": ", idx$(n$[y])
+NEXT