RosettaCodeData/Task/Find-the-missing-permutation/Ursala/find-the-missing-permutation-2.ursala
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

29 lines
171 B
Text

#import std
#show+
main =
~&j/permutations'ABCD' -[
ABCD
CABD
ACDB
DACB
BCDA
ACBD
ADCB
CDAB
DABC
BCAD
CADB
CDBA
CBAD
ABDC
ADBC
BDCA
DCBA
BACD
BADC
BDAC
CBDA
DBCA
DCAB]-