Sujet : Re: Multivalue tail recursion?
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp comp.lang.schemeDate : 28. Aug 2024, 00:19:41
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <valjdo$35a95$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Kent M. Pitman wrote:
(loop for x in '(3 5 7)
for y in '(2 5 8)
when (= x y)
collect (cons x y))
What if there were more than two lists?
This will handle any number of lists:
Scheme:
(filter-map
(lambda xs (and (apply = xs) xs))
'(0 3 5 7 9)
'(0 2 5.0 8 9.0)
'(2 4 5 8 9))
((5 5.0 5) (9 9.0 9))