想不到第一次写八皇后问题是用的scm
写代码的途中遇到一个错误,用let错了,用define对了,应该是编译器的原因,和nil差不多。
(define (accumulate op initial sequence)
(if (null? sequence)
initial
(op (car sequence)
(accumulate op initial (cdr sequence)))))
(define (enumerate-interval low high)
(if (> low high) '() (cons low (enumerate-interval (+ low 1) high))))
(define (fliter predicate sequence)
(cond ((null? sequence) '())