12 lines
1,000 B
Text
12 lines
1,000 B
Text
|
letters[words_,n_] := Sort[Flatten[Characters /@ Take[words,n]]];
|
||
|
|
groupSameQ[g1_, g2_] := Sort /@ Partition[g1, 2] === Sort /@ Partition[g2, 2];
|
||
|
|
permutations[{a_, b_, c_, d_}] = Union[Permutations[{a, b, c, d}], SameTest -> groupSameQ];
|
||
|
|
Select[Flatten[permutations /@
|
||
|
|
Subsets[Union[ToLowerCase/@{"Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", "Delaware", "Florida",
|
||
|
|
"Georgia", "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", "Maryland",
|
||
|
|
"Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire",
|
||
|
|
"New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", "Pennsylvania",
|
||
|
|
"Rhode Island", "South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington",
|
||
|
|
"West Virginia", "Wisconsin", "Wyoming"}], {4}], 1],
|
||
|
|
letters[#, 2] === letters[#, -2] &]
|