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

20 lines
435 B
Text

( ( noncontinuous
= sub
. ( sub
= su a nc
. !arg:(?su.?nc)
& !su
: %
%?a
( %:[%(sub$(!sjt.!nc !a))
| ?
& !nc:~
& out$(!nc !a)
& ~
)
)
& sub$(dummy !arg.)
|
)
& noncontinuous$(e r n i t)
);