Non-continuous subsequences: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added/changed whitespace and comments, used templates for the output sections.) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 29: | Line 29: | ||
{{Template:Strings}} |
{{Template:Strings}} |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|Python}} |
|||
<lang 11l>F ncsub(seq, s = 0) |
|||
I seq.empty |
|||
R I s >= 3 {[[Int]()]} E [[Int]]() |
|||
E |
|||
V x = seq[0.<1] |
|||
V xs = seq[1..] |
|||
V p2 = s % 2 |
|||
V p1 = !p2 |
|||
R ncsub(xs, s + p1).map(ys -> @x + ys) [+] ncsub(xs, s + p2) |
|||
print(ncsub(Array(1..3))) |
|||
print(ncsub(Array(1..4))) |
|||
print(ncsub(Array(1..5)))</lang> |
|||
{{out}} |
|||
<pre> |
|||
[[1, 3]] |
|||
[[1, 2, 4], [1, 3, 4], [1, 3], [1, 4], [2, 4]] |
|||
[[1, 2, 3, 5], [1, 2, 4, 5], [1, 2, 4], [1, 2, 5], [1, 3, 4, 5], [1, 3, 4], [1, 3, 5], [1, 3], [1, 4, 5], [1, 4], [1, 5], [2, 3, 5], [2, 4, 5], [2, 4], [2, 5], [3, 5]] |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |