気の向くままにschemeで殴り書きするシリーズと化してきました。 ;;フィボナッチ数 (define (fib n) (cond ((= n 0) 0) ((= n 1) 1) (else (+ (fib (- n 1)) (fib (- n 2)))))) ;;フィボナッチ数2 (define (fib2 n) (let ((route5 (sqrt 5))) (* (/ 1 route5…