9 lines
302 B
Text
9 lines
302 B
Text
|
ProvidedSet = {"ABCD" , "CABD" , "ACDB" , "DACB" , "BCDA" , "ACBD",
|
||
|
|
"ADCB" , "CDAB", "DABC", "BCAD" , "CADB", "CDBA" , "CBAD" , "ABDC",
|
||
|
|
"ADBC" , "BDCA", "DCBA" , "BACD", "BADC", "BDAC" , "CBDA", "DBCA", "DCAB"};
|
||
|
|
|
||
|
|
Complement[StringJoin /@ Permutations@Characters@First@#, #] &@ProvidedSet
|
||
|
|
|
||
|
|
|
||
|
|
->{"DBAC"}
|