21 lines
695 B
Text
21 lines
695 B
Text
require'strings stats'
|
|
|
|
states=:<;._2]0 :0-.LF
|
|
|
|
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,
|
|
Maine,Maine,Maine,Maine,Maine,Maine,Maine,Maine,
|
|
|
|
)
|
|
|
|
pairUp=: (#~ matchUp)@({~ 2 comb #)@~.
|
|
matchUp=: (i.~ ~: i:~)@:(<@normalize@;"1)
|
|
normalize=: /:~@tolower@-.&' '
|