Jump to content

State name puzzle: Difference between revisions

State name puzzle (view source)

Revision as of 16:31, 30 April 2018

57 bytes added ,  6 years ago
m
→‎{{header|Perl 6}}: clarify output
m (→‎{{header|Perl 6}}: Fix syntax errors, update)
m (→‎{{header|Perl 6}}: clarify output)
Line 1,427:
say "\n54 states:";
.say for sort anastates @states, < New_Kory Wen_Kory York_New Kory_New New_Kory >;
 
sub anastates (*@states) {
Line 1,444:
for $i ^..^ @c -> $j {
my $set = set @c[$i].list, @c[$j].list;
take @c[$seti].keyslist.join(', ') ~ ' = ' ~ @c[$j].list.join(', ') if $set == 4;
}
}
Line 1,452:
Output:
<pre>50 states:
North Carolina, NorthSouth Dakota, South= CarolinaNorth Dakota, South DakotaCarolina
 
54 states:
New Kory, Kory New York,= YorkWen NewKory, WenYork KoryNew
New Kory, New York, Wen Kory = York New, Kory New
New Kory, York New York,= YorkWen NewKory, Kory New
New KoryYork, Kory New York, York= New Kory, Wen Kory
New KoryYork, Kory New York,= WenNew Kory, KoryYork New
New York, YorkKory New, = Wen Kory, KoryYork New
New KoryYork, New York,Kory York New,= Wen Kory, Kory New
New KoryYork, New York,Kory York= Wen NewKory, KoryYork New
New York, York New, Wen Kory = York New, Kory New
New Kory, New York, Wen Kory = New Kory, Kory New
New KoryYork, NewWen York,Kory York= New Kory, KoryYork New
New York, York New, Wen Kory = York New, Kory New
New KoryYork, York New, Wen= New Kory, Kory New
New KoryYork, York New, Wen= New Kory, KoryWen NewKory
New KoryYork, York New, = Wen Kory, Kory New
North Carolina, South Dakota, = North Dakota, South Carolina</pre>
 
=={{header|Phix}}==
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/199749"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information