Best shuffle: Difference between revisions
→{{header|Phix}}
m (→{{header|C++}}: added works with and trans templates) |
|||
Line 2,111:
printf "%s, %s, (%d)\n", $_, best-shuffle $_
for <abracadabra seesaw elk grrrrrr up a>;</lang>
=={{header|Phix}}==
<lang Phix>constant tests = {"abracadabra", "seesaw", "elk", "grrrrrr", "up", "a"}
string s,t
integer c
for test=1 to length(tests) do
s = tests[test]
t = shuffle(s)
for i=1 to length(t) do
for j=1 to length(t) do
if i!=j and t[i]!=s[j] and t[j]!=s[i] then
{t[i], t[j]} = {t[j], t[i]}
exit
end if
end for
end for
c = 0
for i=1 to length(t) do
if t[i]==s[i] then c += 1 end if
end for
printf(1,"%s -> %s (%d)\n",{s,t,c})
end for</lang>
=={{header|PHP}}==
| |||