State name puzzle: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: Fix syntax errors, update)
m (→‎{{header|Perl 6}}: clarify output)
Line 1,427: Line 1,427:
say "\n54 states:";
say "\n54 states:";
.say for anastates @states, < New_Kory Wen_Kory York_New Kory_New New_Kory >;
.say for sort anastates @states, < New_Kory Wen_Kory York_New Kory_New New_Kory >;


sub anastates (*@states) {
sub anastates (*@states) {
Line 1,444: Line 1,444:
for $i ^..^ @c -> $j {
for $i ^..^ @c -> $j {
my $set = set @c[$i].list, @c[$j].list;
my $set = set @c[$i].list, @c[$j].list;
take $set.keys.join(', ') if $set == 4;
take @c[$i].list.join(', ') ~ ' = ' ~ @c[$j].list.join(', ') if $set == 4;
}
}
}
}
Line 1,452: Line 1,452:
Output:
Output:
<pre>50 states:
<pre>50 states:
North Carolina, North Dakota, South Carolina, South Dakota
North Carolina, South Dakota = North Dakota, South Carolina


54 states:
54 states:
New Kory, New York, York New, Wen Kory
New Kory, Kory New = Wen Kory, York New
New Kory, New York, Wen Kory, Kory New
New Kory, Wen Kory = York New, Kory New
New Kory, New York, York New, Kory New
New Kory, York New = Wen Kory, Kory New
New Kory, New York, York New, Wen Kory
New York, Kory New = New Kory, Wen Kory
New Kory, New York, Wen Kory, Kory New
New York, Kory New = New Kory, York New
New York, York New, Wen Kory, Kory New
New York, Kory New = Wen Kory, York New
New Kory, New York, York New, Wen Kory
New York, New Kory = Wen Kory, Kory New
New Kory, New York, York New, Kory New
New York, New Kory = Wen Kory, York New
New York, York New, Wen Kory, Kory New
New York, New Kory = York New, Kory New
New Kory, New York, Wen Kory, Kory New
New York, Wen Kory = New Kory, Kory New
New Kory, New York, York New, Kory New
New York, Wen Kory = New Kory, York New
New York, York New, Wen Kory, Kory New
New York, Wen Kory = York New, Kory New
New Kory, York New, Wen Kory, Kory New
New York, York New = New Kory, Kory New
New Kory, York New, Wen Kory, Kory New
New York, York New = New Kory, Wen Kory
New Kory, York New, Wen Kory, Kory New
New York, York New = Wen Kory, Kory New
North Carolina, South Dakota, North Dakota, South Carolina</pre>
North Carolina, South Dakota = North Dakota, South Carolina</pre>


=={{header|Phix}}==
=={{header|Phix}}==
Retrieved from "https://rosettacode.org/wiki/State_name_puzzle"