Data commit

Task/Best-shuffle/Zkl/best-shuffle-1.zkl

@@ -0,0 +1,15 @@
+fcn bestShuffle(str){
+   s:=str.split("").shuffle();    // -->List
+   if(not s) return(str,str.len()); // can't shuffle "" or "a"
+
+   n:=str.len();
+   foreach i in (n){
+      foreach j in (n){
+         if (i!=j and s[i]!=str[j] and s[j]!=str[i]){
+	    s.swap(i,j);
+	    break;
+	 }
+      }
+   }
+   return(s.concat(), s.zipWith('==,str).sum(0));
+}

Task/Best-shuffle/Zkl/best-shuffle-2.zkl

@@ -0,0 +1,5 @@
+ss:=T("abracadabra","immediately","grrrrrr","seesaw","pop","up","a","");
+foreach s in (ss){
+   ns,cnt:=bestShuffle(s);
+   println("%s --> %s (%d)".fmt(s,ns,cnt));
+}