2008-10-18から1日間の記事一覧

つかれたーSICP

苦労した (define (reverse ls) (reverse-itr ls '()) ) (define (reverse-itr ls ans) (if (null? ls) ans (reverse-itr (cdr ls) (cons (car ls) ans)) ) ) (define (deep-reverse ls) (deep-reverse-itr ls '()) ) (define (deep-reverse-itr ls ans) (if…