Anonymous user
Best shuffle: Difference between revisions
→{{header|Icon}} and {{header|Unicon}}
Line 420:
=={{header|Icon}} and {{header|Unicon}}==
<lang icon>procedure main(args)
while
write(line," -> ",scram," (",unchanged(line,scram),")")
end
procedure
t := s
# every !t :=: ?t # Uncomment
every i := 1 to *t do
every j := (1 to i-1) | (i+1 to *t) do
if (t[i] ~== s[j]) & (s[i] ~== t[j]) then break t[i] :=: t[j]
return t
end
procedure unchanged(s1,s2) # Number of unchanged elements
every (count := 0) +:= (s1[i := 1 to *s1] == s2[i], 1)
return count
end
The code works in both Icon and Unicon.
Line 443 ⟶ 442:
Sample output:
<pre>
->scramble <scramble.data
abracadabra -> raaracababd (0)▼
seesaw -> wasese (0)
elk -> lke (0)
grrrrrr -> rgrrrrr (5)▼
▲raaracababd (0)
up -> pu (0)▼
aardvarks are ant eaters -> sdaaaraaasv rer nt keter (0)
▲pu (0)
▲rgrrrrr (5)
->
</pre>
|