scheme - "scheme and: bad syntax in: and"是什么意思

Question

我收到以下错误“and: 语法错误:and”

#lang racket

(define fold 
    (lambda (fn lst)
        (if (null? (cdr lst))
            (car lst)  
            (fn (car lst) (fold fn (cdr lst)))
        )
    )
)

(define none-diff?
    (lambda (lst num) 
        (if (even? num) 
            (fold and (map even? lst))
            (fold and (map odd?  lst))
        )
    )
)

我在szScheme中尝试foldr，同样的错误，我不知道为什么？

1. (折叠+(列表1 2 3)):好的
2. (fold and (map (even? (list 1 2 3)))) : 错误

“and”和“+”是函数，但是？

Answer 1

And不是函数，而是 macro 。并且宏不能用作高阶函数的参数(例如 map、apply 或 foldl 变体)。

在这种情况下，您可以使用 andmap :

> (andmap even? (list 2 4 6))
#t
> (andmap even? (list 1 2 3))
#f