オイラーだった。 (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…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。