計劃試圖檢查列表中是否有單詞

Question

我有幾個函數。

(define adjs '(black brown fast hairy hot quick red slow)) 
    (define adj? 
     (lambda (a) (if (member a adjs) #t #f) 
    ) 


    (define OK 
     (lambda (x) 
      (cond 
       ((equal? x()) #t) 
       ((equal? adj? (car x)) OK(cdr x)) 
       ((else x   #f)) 
      ) 
     ) 
) 

函數adj？正在檢查以查看輸入是否是形容詞列表的一部分。

我試圖用OK功能做的是用戶將輸入列表，並有一個列表，通過ADJ運行？看看它是否是調整列表的一部分。

當我運行的功能是我得到一個錯誤的回報，說我在參數「X」量進入當該功能只適用認爲的兩個會發生什麼。爲什麼？

Answer 1

沒有與括號問題。有些是不必要的，人失蹤，例如，當您遞歸調用的OK程序，或在路上你打電話adj? - 還記得，在我們計劃調用過程是這樣的：(f x)，不喜歡這樣的：f(x)。此外，遞歸的基本情況似乎關閉，並且else子句使用不正確。試試這個：

(define adj? 
    (lambda (a) 
    (if (member a adjs) #t #f))) 

(define OK 
    (lambda (x) 
    (cond 
     ((null? x) #t) 
     ((adj? (car x)) (OK (cdr x))) 
     (else #f))))