RosettaCodeData/Task/Non-continuous-subsequences/J/non-continuous-subsequences-3.j
2023-07-01 13:44:08 -04:00

2 lines
79 B
Text

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