2009-06-06から1日間の記事一覧
;;exercise3.16,17 ;;;exercise3.16 (define (count-pairs x) (if (not (pair? x)) 0 (+ (count-pairs (car x)) (count-pairs (cdr x)) 1))) ;;;exercise3.17 (define (new-count-pairs x) (define already-list '()) (define (count-pairs x) (cond [(not (…