Anonymous user
Best shuffle: Difference between revisions
→{{header|Elena}}
Walterpachl (talk | contribs) m (→{{header|PL/I}}: fix language tags) |
|||
Line 1,262:
#define system'routines.
#symbol shuffle =
[
#var aLength := aLiteral
#var aShuffled :=
control from:0 &till:aLength &do:
[
#var aChar := aLiteral@i.
(aChar == (aShuffled@i)) ?
[
control from:0 &till:aLength &do:
[
#var anAltChar := aShuffled@j.
Line 1,285:
].
^ Summing new:(String new) foreach:aShuffled
].
#symbol scoreShuffle =
[
#var aScore := Integer new.
control from:0 &till:(anOriginal
[ (anOriginal @ i) == (aShuffled @ i) ? [ aScore += 1. ]. ].
^ aScore
].
#symbol program =
[
control foreach:("abracadabra", "seesaw", "grrrrrr", "pop", "up", "a") &do:
[
#var aShuffled := shuffle:aWord.
|