会员的功能定义是什么?

时间:2010-04-22 11:17:17

标签: scheme

(define (member atom list)
  (cond
    ((null? list) '())
    (= atom (car list) "True")
      (else
      (member atom(cdr list)))
    )
 )

(member '5 '(1 2 3 4 5))

即使该原子不是列表中的成员,它也始终为真。你能不能帮助我尽快澄清这个问题。

1 个答案:

答案 0 :(得分:2)

cond的第二个条款应为:

((= atom (car list)) "True")