State name puzzle: Difference between revisions
m
→{{header|Perl 6}}: just 'take' keys for output
m (→{{header|REXX}}: changed/added comments and whitespace, changed indentations.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: just 'take' keys for output) |
||
Line 1,221:
=={{header|Perl 6}}==
{{
<lang perl6>my @states = <
Alabama Alaska Arizona Arkansas California Colorado Connecticut Delaware
Line 1,247:
}
my $equivs = hash @pairs.classify: *.lc.comb.sort.join
gather for $equivs.values -> @c {
Line 1,253:
for $i ^..^ @c -> $j {
my $set = set @c[$i].list, @c[$j].list;
take $set.keys.join(', ') if $set == 4;
}
}
Line 1,261:
Output:
<pre>50 states:
North Carolina,
54 states:
New
New
New
New
New York, Wen Kory, New Kory, Kory New▼
New York, Wen Kory, York New, Kory New▼
▲New York, York New, New Kory, Wen Kory
New York, York New, New Kory, Kory New▼
New York, York New, Wen Kory, Kory New
New
New
New York,
New Kory,
New Kory, York New, Wen Kory, Kory New
New Kory, York New, Wen Kory, Kory New
=={{header|PicoLisp}}==
| |||