Anonymous user
Non-continuous subsequences: Difference between revisions
m
→Recursive
m (→{{header|REXX}}: added a comment, added whitespace. -- ~~~~) |
m (→Recursive) |
||
Line 715:
A disjointed subsequence is a consecutive subsequence followed by a gap, then by any nonempty subsequence to its right:
<lang haskell>import Data.List (subsequences, tails, delete)
disjoint a =
cutAt s n = [a ++ b | b <-
a <- init (tails left) ] where
(left,
main = print $ length $ disjoint [1..20]</lang>
| |||