12 lines
511 B
Plaintext
12 lines
511 B
Plaintext
lst := ["ABCD","CABD","ACDB","DACB","BCDA","ACBD","ADCB","CDAB","DABC","BCAD","CADB","CDBA","CBAD","ABDC","ADBC","BDCA","DCBA","BACD","BADC","BDAC","CBDA","DBCA","DCAB"]:
|
|
perm := table():
|
|
for letter in "ABCD" do
|
|
perm[letter] := 0:
|
|
end do:
|
|
for item in lst do
|
|
for letter in "ABCD" do
|
|
perm[letter] += StringTools:-FirstFromLeft(letter, item):
|
|
end do:
|
|
end do:
|
|
print(StringTools:-Join(ListTools:-Flatten([indices(perm)], 4)[sort(map(x->60-x, ListTools:-Flatten([entries(perm)],4)),'output=permutation')], "")):
|