Data commit

Task/Best-shuffle/BaCon/best-shuffle.bacon

@@ -0,0 +1,18 @@
+DECLARE case$[] = { "tree", "abracadabra", "seesaw", "elk", "grrrrrr", "up", "a" }
+
+FOR z = 0 TO UBOUND(case$)-1
+
+    result$ = EXPLODE$(case$[z], 1)
+    FOR y = 1 TO AMOUNT(result$)
+        FOR x = 1 TO LEN(case$[z])
+            IF TOKEN$(result$, y) <> MID$(case$[z], x, 1) AND TOKEN$(result$, x) = MID$(case$[z], x, 1) THEN result$ = EXCHANGE$(result$, x, y)
+        NEXT
+    NEXT
+
+    total = 0
+    FOR x = 1 TO AMOUNT(result$)
+        INCR total, IIF(MID$(case$[z], x, 1) = TOKEN$(result$, x), 1, 0)
+    NEXT
+
+    PRINT MERGE$(result$), ":", total
+NEXT