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

Question

（定义myList'（a b c d e a f））

我怎样才能返回'a的所有出现的列表。在这种情况下，返回的值是“（AA）

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方言/实现。