Non-continuous subsequences: Difference between revisions
Content added Content deleted
(function names & docstrings, destructive operations where possible) |
m (minor renaming) |
||
Line 129: | Line 129: | ||
the designated subsequence." |
the designated subsequence." |
||
(map-into subsequence-d 'first subsequence-d))) |
(map-into subsequence-d 'first subsequence-d))) |
||
(let |
(let ((nc-subsequences (delete-if #'continuous-p (subsequences list)))) |
||
(map-into nc-subsequences #'designated-sequence nc-subsequences))))</lang> |
|||
(map-into subsequences #'designated-sequence subsequences))))</lang> |
|||
From Scheme version: |
From Scheme version: |