RosettaCodeData/Task/State-name-puzzle/J/state-name-puzzle-3.j
2015-02-20 09:02:09 -05:00

2 lines
102 B
Text

isolatePairs=: ~.@matchUp2@(#~ *./@matchUp"2)@({~ 2 comb #)
matchUp2=: /:~"2@:(/:~"1)@(#~ 4=#@~.@,"2)