Rosetta Code

State name puzzle: Difference between revisions

Page Discussion

State name puzzle (view source)

Revision as of 04:37, 25 November 2016

53 bytes removed ,  7 years ago
m
→‎{{header|zkl}}: udpate
m (→‎{{header|Perl 6}}: just 'take' keys for output)
Line 1,962:
=={{header|zkl}}==
{{trans|Python}}
<lang zkl>states#<<< := T("Alabama",// "Alaska",here "Arizona", "Arkansas",doc
states:=("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",
#/* Uncomment the next line for the fake states. */
# ",New Kory", "Wen Kory", "York New", "Kory New", "New Kory"
);
#<<<
).split(",").apply("strip");
smap := D();▼
 
▲smap := DDictionary();
Utils.Helpers.pickNFrom(2,states).apply2('wrap(ss){ // 1225 combinations
key:=(ss.concat()).toLower().sort()-" ";
Line 1,984 ⟶ 1,986:
foreach pairs in (smap.values){ // 1224 keys
// pairs=Utils.Helpers.listUnique(pairs); // eliminate dups
if (pairs.len() > 1)
println(pairs.concat(" = ")) }</lang>
{{out}}
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/199741"