RosettaCodeData/Task/Non-continuous-subsequences/J/non-continuous-subsequences-1.j

5 lines
128 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
allmasks=: 2 #:@i.@^ #
firstend=:1 0 i.&1@E."1 ]
laststart=: 0 1 {:@I.@E."1 ]
noncont=: <@#~ (#~ firstend < laststart)@allmasks