- 315 名前：312 mailto:sage [04/09/16 16:42:23]
- >>314
あーそうか
(define make-function
(lambda (operator null-value)
(lambda (list0)
(if (null? list0)
null-value
(operator (lambda () (not (pair? (car list0))))
(lambda () ((make-function operator null-value) (cdr list0))))))))
(define has-atom? (make-function (lambda (a b) (or (a) (b))) #f))
こんな感じでどう？もしかしてまた勘違いしてるかな
