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

21 lines
435 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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)
);