I’m not really involved in this discussion, but I did just dream up this solution to the original problem.
icont -su states7 && time ./states7
----------------------------------------------
StatePair(" CDNSaaaahhiklnoooorrtttu","North Carolina","South
Dakota")StatePair(" CDNSaaaahhiklnoooorrtttu","North Dakota","South Carolina")
./states7 0.03s user 0.01s system 93% cpu 0.038 total
----------------------------------------------
link core, fullimag
procedure getStates()
return ["Alabama", "Alaska", "Arizona", "Arkansas",
"California", "Colorado", "Connecticut",
"Delaware", ## "District of Columbia",
"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"]
end
record StatePair (key, name1, name2)
procedure main ()
local i, j, pairs, pairs_sorted, states
states := getStates ()
pairs := []
every i := 1 to *states do
every j := i + 1 to *states do
put (pairs, StatePair (csort (states[i] || states[j]), states[i],
states[j]))
pairs_sorted := sortf (pairs)
every i := 1 to *pairs_sorted - 1 do
if pairs_sorted[i].key == pairs_sorted[i + 1].key then
write (fullimage (pairs_sorted[i]), fullimage (pairs_sorted[i + 1]))
end
pgpAfcipZHLOr.pgp
Description: PGP signature
------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________ Unicon-group mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/unicon-group
