functional-programming - 写三个Scheme程序模拟这三个门: AND, OR和XOR

Question

到目前为止，我假设最后两个应该是:

(define or-gate
  (lambda (a b)
    (if (= a 1)
        1
        (if (= b 1)
            1
            0))))

(define xor-gate
  (lambda (a b)
    (if (= a b)
        0
        1)))

...但是 AND 一个令人费解。我该如何实现？

Answer 1

如果我们记住 = 可以接受两个以上的参数就很简单了:

(define and-gate
  (lambda (a b)
    (if (= a b 1)
        1
        0)))

换句话说:和逻辑连接器是true当且仅当它的两个参数都是true，对于所有其他参数它是假。