RosettaCodeData/Task/Non-continuous-subsequences/Bracmat/non-continuous-subsequences.bracmat

21 lines
435 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
( ( 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)
);