Rosetta Code

Non-continuous subsequences: Difference between revisions

Page Discussion

Non-continuous subsequences (view source)

Revision as of 17:15, 10 August 2009

31 bytes removed ,  14 years ago
m
minor renaming
(function names & docstrings, destructive operations where possible)
m (minor renaming)
Line 129:
the designated subsequence."
(map-into subsequence-d 'first subsequence-d)))
(let* ((nc-subsequences (delete-if #'continuous-p (subsequences list))))
(subsequencesmap-into (deletenc-ifsubsequences #'continuousdesignated-psequence nc-subsequences))))</lang>
(map-into subsequences #'designated-sequence subsequences))))</lang>
 
From Scheme version:
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/65299"