计划试图检查列表中是否有单词

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))))