ラケットプログラムが正常に動作しない

Question

私はリストとそのリストの2つの要素をとる関数を作った。

また、想定されている要素のいずれかがまったく表示されない場合、プロシージャは#fも返す必要があります。ここ

は、私がこれまでに得たものである：

(define (before-in-list? lst a b) 
    (cond 
    ((empty? lst) #f) 
    ((eq? (car lst) a) (map b (cdr lst)) #t) 
    ((eq? (car lst) b) #f) 
    (else (before-in-list? (cdr lst) a b)))) 

はそれをテストするために、私が使用：

(before-in-list? '(back in the ussr) '(in) '(ussr)) 
(before-in-list? '(back in the ussr) '(the) '(ussr)) 

問題は、それが毎回fは私を与えることです。

どうすればいいですか？

Answer 1

mapの使用方法は意味がありません。また、より一般的な比較にはequal?を使用し、aとbのパラメータはリストではいけません。試してみてください：

(define (before-in-list? lst a b) 
    (cond 
    ((empty? lst) #f) 
    ((equal? (car lst) a) 
    (if (member b (cdr lst)) #t #f)) 
    ((equal? (car lst) b) #f) 
    (else (before-in-list? (cdr lst) a b)))) 

(before-in-list? '(back in the ussr) 'in 'ussr) 
=> #t 
(before-in-list? '(back in the ussr) 'the 'ussr) 
=> #t