2018-02-22から1日間の記事一覧

SICPゼミ第59回

練習問題4.41 (define (generate-list n) (define (pow n k) (if (= k 0) 1 (* n (pow n (- k 1))) ) ) (define (int-to-list m n k) (if (= k 0) (list) (cons (remainder m n) (int-to-list (/ (- m (remainder m n)) n) n (- k 1))) ) ) (define (list-ge…