RosettaCodeData/Task/Non-continuous-subsequences/J/non-continuous-subsequences-3.j
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
79 B
Text

contmasks=: a: ;@, 1 <:/~@i.&.>@i.@+ #
noncont=: <@#~ (allmasks -. contmasks)