1001コメント344KB

Lisp Scheme Part19

レス数が950を超えています。1000を超えると書き込みができなくなります。

0989デフォルトの名無しさん

2008/03/10(月) 20:43:30

(define length
(Y
(lambda (recfun)
(lambda (l)
(cond
((null? l) 0)
(t (add1
(recfun (cdr l)))))))))

レス数が950を超えています。1000を超えると書き込みができなくなります。