13 lines
375 B
Plaintext
13 lines
375 B
Plaintext
link strings
|
|
|
|
procedure main()
|
|
givens := set("ABCD", "CABD", "ACDB", "DACB", "BCDA", "ACBD",
|
|
"ADCB", "CDAB", "DABC", "BCAD", "CADB", "CDBA",
|
|
"CBAD", "ABDC", "ADBC", "BDCA", "DCBA", "BACD",
|
|
"BADC", "BDAC", "CBDA", "DBCA", "DCAB")
|
|
|
|
every p := permutes("ABCD") do
|
|
if not member(givens, p) then write(p)
|
|
|
|
end
|