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

3 lines
79 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
contmasks=: a: ;@, 1 <:/~@i.&.>@i.@+ #
noncont=: <@#~ (allmasks -. contmasks)