RosettaCodeData/Task/Find-the-missing-permutation/Icon/find-the-missing-permutation-2.icon
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
241 B
Text

every x := permutes("ABCD") do # generate all permutations
if member(givens,x) then delete(givens,x) # remove givens as they are generated
else insert(givens,x) # add back any not given