Вызов `and` в списке аргументов

Question

Есть ли способ вызвать and или or к списку аргументов? Например,

(and (list #t #t #f))

?

Я пытался написать (apply and (list #t #t #f)), но это не сработало.

Answer 1

Попробуйте ormap и andmap

(ormap values (list #t #t #f))
(andmap values (list #t #t #f))

, где values по сути является функцией идентификации в этом контексте .

Причина, по которой (apply and (list #t #t #f)) не работает, заключается в том, что and не является функцией. Это макрос, который необходим, потому что (and #f (error 'foo)) должен закоротить (оценивается как #f). Если бы это была функция, это привело бы к ошибке.

Answer 2

Основываясь на предыдущем ответе. Бедняк поступил бы так.

 > (ormap (lambda (x) (not (false? x))) (list #t #t #f))
 ## #t

 > (andmap (lambda (x) (not (false? x))) (list #t #t #f))
 ## #f

Answer 3

Вы можете использовать any? и all? из библиотеки relation (раскрытие: я автор):

(require relation)

(any? (list #t #t #f)) ;=> #t
(all? (list #t #t #f)) ;=> #f