lisp - Jscheme 如何查找列表中的所有事件？

Question

(定义 myList '(a b c d e a f))

我怎样才能返回所有出现的 'a.在这种情况下，返回值为 '(a a)

Answer 1

您可以简单地用结果列表迭代列表，并在找到匹配项时使用搜索到的元素:

racket@> (define (occurrences list elem)
           (define (iter list result)
             (cond ((null? list) result)
                   ((equal? (car list) elem)
                    (iter (cdr list) (cons elem result)))
                   (else (iter (cdr list) result))))
           (iter list '()))
racket@> (occurrences '(1 2 3) 1)
'(1)
racket@> (occurrences '(a b c d e a f) 'a)
'(a a)
racket@> 

顺便说一句，我是用 Racket 写的，但它应该适用于任何 Scheme 方言/实现。