Jschemeリスト内のすべての出現を見つける方法？

Question

（myList '（a b c d e a f）を定義します）

どのように' aのすべての出現のリストを返すことができますか。この場合に返される値は、あなたは、単に結果一覧にあなたのリストを反復処理することができます

Answer 1

（AA）、および短所あなたがマッチを見つけるたびに検索要素」です：ところで

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の方言/実装でも動作するはずです。