56 lines
359 B
Mathematica
56 lines
359 B
Mathematica
>> list = ['ABCD';
|
|
'CABD';
|
|
'ACDB';
|
|
'DACB';
|
|
'BCDA';
|
|
'ACBD';
|
|
'ADCB';
|
|
'CDAB';
|
|
'DABC';
|
|
'BCAD';
|
|
'CADB';
|
|
'CDBA';
|
|
'CBAD';
|
|
'ABDC';
|
|
'ADBC';
|
|
'BDCA';
|
|
'DCBA';
|
|
'BACD';
|
|
'BADC';
|
|
'BDAC';
|
|
'CBDA';
|
|
'DBCA';
|
|
'DCAB']
|
|
|
|
list =
|
|
|
|
ABCD
|
|
CABD
|
|
ACDB
|
|
DACB
|
|
BCDA
|
|
ACBD
|
|
ADCB
|
|
CDAB
|
|
DABC
|
|
BCAD
|
|
CADB
|
|
CDBA
|
|
CBAD
|
|
ABDC
|
|
ADBC
|
|
BDCA
|
|
DCBA
|
|
BACD
|
|
BADC
|
|
BDAC
|
|
CBDA
|
|
DBCA
|
|
DCAB
|
|
|
|
>> findMissingPerms(list)
|
|
|
|
ans =
|
|
|
|
DBAC
|