RosettaCodeData/Task/Range-extraction/J/range-extraction-1.j

4 lines
132 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
fmt=: [: ;@(8!:0) [`]`({. ; (',-' {~ 2 < #) ; {:)@.(2 <. #)
group=: <@fmt;.1~ 1 ~: 0 , 2 -~/\ ]
extractRange=: ',' joinstring group