2008-06-02から1日間の記事一覧
問題14です。 (define table (make-hash-table)) (define (count ini) (define (next n) (if (= (modulo n 2) 0) (/ n 2) (+ (* n 3) 1))) (define (count-iter n i) (if (= n 1) (begin (hash-table-put! table ini i) i) (let1 memo (hash-table-get table…