方案尝试检查列表中是否有单词

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

功能调整？ 正在检查输入内容是否属于adjs的形容词列表。

我要使用OK函数尝试做的是用户将输入一个列表并通过adj运行该列表？ 查看它是否属于adjs列表。

当我运行该函数时，会发生错误返回，提示我在函数仅需要两个时输入了“ X”个参数。 为什么？

Answer 1

括号有问题。 有些是不必要的，而有些则是缺失的，例如，当您递归调用OK过程时，或者以调用adj? -请记住，在Scheme中，我们这样调用过程： (fx) ，而不是这样： 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))))