Scheme当然一样支持相互递归,r5rs中也是以上述奇偶来做例子。 (define (even? x) (if (zero? x) #t (odd?
filter这么常用的算子似乎并未出现在r5rs中,很奇怪,我在这里就给出一个实现如下: (define (filter boolf set) (cond ((null?