2009-09-28から1日間の記事一覧

q1.38

オイラーだった。 (define (kyusu x) (if (= (modulo (+ x 1) 3) 0) (* 2 (+ 1 (floor (/ x 3)))) 1 ) ) (kyusu 1) (kyusu 2) (kyusu 3) (kyusu 4) (kyusu 5) (kyusu 6) (kyusu 7) (kyusu 8) (kyusu 9) (kyusu 10) (kyusu 11) (kyusu 12) (define (cont-frac…