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

4 lines
132 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fmt=: [: ;@(8!:0) [`]`({. ; (',-' {~ 2 < #) ; {:)@.(2 <. #)
group=: <@fmt;.1~ 1 ~: 0 , 2 -~/\ ]
extractRange=: ',' joinstring group