let fib = let rec f x y n = if n=1 then x else f (x+y) x (n-1) in f 1 1;; けっこう時間かかってくやしい。ふつうに fib(n) = fib(n-1)+fib(n-2)みたいなノリで書くと計算量が 2^n で増えていくからいろいろよろしくない。かといってHaskellみたいに遅延…