オブジェクトがSchemeの "listdiff"であるかどうかの確認

Question

listdiffはcarがLで、cdrがeqのペアですか？ L、または（cdr L）、または（cdr（cdr L）））などにすることができます。listdiffのcdrはリストである必要はありません。任意のオブジェクトであってもよい。

listdiff Dは、（car D）に先行する（car D）の接頭辞を表します。たとえば、ilsが不適切なリスト（a e i u。y）であるとします。リスト（ae）と同じ要素を持つlistdiffを返し、（cons（cdr ils） 'y）はlistdiffを返します。 （eiou）と同じ要素。逆に、（cons '（）ils）や（cons ils（append'（a e i o u）y））もリストディフを返しません。

私はラケット上で、次の手順を作成したい：

（？listdiff OBJ）

戻り値は、objが、そうでなければ#f listdiffであれば#tを返し。

誰でも私にその兆候を教えてもらえますか？

Answer 1

ここでは、使用できるスケルトンがあります。何が価値があるために

(define (listdiff? pair) 
    (define l (car pair))  ; l 
    (define needle (cdr pair)) ; needle is what to look for in l 
    (define (search haystack) 
    ;; #t when haystack looks the same as needle 
    ;; #f if haystackk is the empty list 
    ;; otherwise recurse to (cdr haystack) 
    ) 

    (search l))