On the implementation of the Fibonacci seq.

We all enjoy showing off how elegant our implementation of the Fibonacci sequence is in Haskell or Scheme or whatever.  But, frankly, they suck.  Even if you're using tail recursion to avoid fucking up the stack it's still terribly inefficient.

Here is the correct way to implement the Fibonacci sequence (in Scheme):
(define (fibonacci x)
    (let  ((phi (/ (+ 1 (sqrt 5)) 2)))
    (+ (/ (+ (expt phi x) (expt (- 1 phi) (- x 2))) (+ (expt phi 2) 1)) (/ (- (expt phi (- x 1)) (* phi (expt (- 1 phi) (- x 2)))) (+ (expt phi 2) 1)))))

　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　∧　∧　　｜　Hello, my name is longcat.　
　　（・∀・）　＜　　Please help me get long !!　
　　｜　　｜　｜＿＿＿＿＿＿＿＿＿＿＿＿＿
　⊂　　　　⊃
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜
　　｜　　｜

　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜

　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜

　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜

　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜
　｜　　｜

　　　　｜　   　｜
　　　　｜　   　｜　　　A meeting with a mini-boss
　　　　｜　   　｜
　　　　｜　　　 ｜　　　　　　　　　　　　　　　　　 ┌─—iiヽ＿
　　　　｜　　　 ｜　　　　　　　　　　　　　　　 _/‾lー—─'､　 ー､
　　　　｜　　　 ｜　 y‐‐‐‐‐''´´‾‾‾三‾　〉　　　/,'⌒ヽ二≡l‾ヽ、　　　
　　　　｜　　　 ｜　 ‾‾‾‾‾‾‾‾‾‾ｱ‾‾!.ゝ_.ノ |l l l | l l二ﾆ一´‾i三≡=､
　　　　｜　　　 ｜　　　　　　　　　　　　　　 ＿｀>‾‾'!ー−'‾‾`!､　 》＿[]＿＿_＿ ｀＼
　　　　｜　　　 ｜　　　　　　　　 　 　 　 ＿,ソ'´ﾘ—ー/‾ ＼＿＿/ ‾｀＞　 ＼　 　 ‾‾
　　　　｜　　　 ｜　　　　　 　 　 ＝ｴﾆ二＿__/　　　.l" ,'⌒ヽ |l l l |　　/‾l‾‾
　　　　｜　　　 └───────　　　　　,｛ﾆlﾆﾆ〕'! ゝ_.ノ/‾‾ ／〔〔|´ ──────────┐
　　　　｜　　　　　　　　　　　　　　　　　　⇒〕　l　(i二)`ﾆﾆﾆ､ﾆ二〕〉〉〕三） 　　　　　　　　　　　　　　.　|　　　
　　　　└───────────　　 　 ﾞ｛ﾆlﾆﾆ〕´.;'⌒`i.ヽ＿__ ＼〔〔|､ ───────┐　　　 |
　　　　　　　　　　　　　　　 　 　 ＝ｴ二‾‾ヽ‾‾l､ ゝ._.ノ　|l l l | 　 ヽ__.L＿_ 　　　　　　　　.|　　　　|
　　　　　　　　　　　　　　　　　　　 　　　｀‾ア''`i　　　 ヽ＿ ／‾‾｀!､　,＞　／ 　. ＿＿　　 ｜　.　 ｜
　　　　　　　　　　　　　　　　　　　　　　　　 ‾｀>‾‾`iー—､＿＿,√ 〜》‾[]‾‾‾　 ／. 　 ｜ 　　 ｜
　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿.ﾄ二二i ,'⌒` |l l l | l l二ﾆ,一､＿!三≡=′　　 　　|　 　.　 |
　　　　　　　　　　 `ー‐-､､＿＿＿＿三＿＿〉　　 ヽ.､_.ノ .二≡l ＿ /　　　　　　　　　　　　　 ｜　　　｜
　　　　　　　　　　　　　　 　 ヽ＿|———､´　,−′ 　　　　　　　　　　　　　　　　　　　　　　　　｜　　　|
　　　　　　　　　　　　　　　　 　 └‐— !!'"‾ 　　　　　　　　　　　　　　　　　　　　　　　　　 　　｜　　　｜
　　　　┌─────────────────────────────────┘　　　｜
　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
　　　　｜　　　　┌────────────────────────────────┘
　　　　｜　　　　｜

　　　　｜　   　｜
　　　　｜　   　｜　　　A meeting with a mini-boss
　　　　｜　   　｜
　　　　｜　　　 ｜　　　　　　　　　　　　　　　　　 ┌─—iiヽ＿
　　　　｜　　　 ｜　　　　　　　　　　　　　　　 _/‾lー—─'､　 ー､
　　　　｜　　　 ｜　 y‐‐‐‐‐''´´‾‾‾三‾　〉　　　/,'⌒ヽ二≡l‾ヽ、　　　
　　　　｜　　　 ｜　 ‾‾‾‾‾‾‾‾‾‾ｱ‾‾!.ゝ_.ノ |l l l | l l二ﾆ一´‾i三≡=､
　　　　｜　　　 ｜　　　　　　　　　　　　　　 ＿｀>‾‾'!ー−'‾‾`!､　 》＿[]＿＿_＿ ｀＼
　　　　｜　　　 ｜　　　　　　　　 　 　 　 ＿,ソ'´ﾘ—ー/‾ ＼＿＿/ ‾｀＞　 ＼　 　 ‾‾
　　　　｜　　　 ｜　　　　　 　 　 ＝ｴﾆ二＿__/　　　.l" ,'⌒ヽ |l l l |　　/‾l‾‾
　　　　｜　　　 └───────　　　　　,｛ﾆlﾆﾆ〕'! ゝ_.ノ/‾‾ ／〔〔|´ ──────────┐
　　　　｜　　　　　　　　　　　　　　　　　　⇒〕　l　(i二)`ﾆﾆﾆ､ﾆ二〕〉〉〕三） 　　　　　　　　　　　　　　.　|　　　
　　　　└───────────　　 　 ﾞ｛ﾆlﾆﾆ〕´.;'⌒`i.ヽ＿__ ＼〔〔|､ ───────┐　　　 |
　　　　　　　　　　　　　　　 　 　 ＝ｴ二‾‾ヽ‾‾l､ ゝ._.ノ　|l l l | 　 ヽ__.L＿_ 　　　　　　　　.|　　　　|
　　　　　　　　　　　　　　　　　　　 　　　｀‾ア''`i　　　 ヽ＿ ／‾‾｀!､　,＞　／ 　. ＿＿　　 ｜　.　 ｜
　　　　　　　　　　　　　　　　　　　　　　　　 ‾｀>‾‾`iー—､＿＿,√ 〜》‾[]‾‾‾　 ／. 　 ｜ 　　 ｜
　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿.ﾄ二二i ,'⌒` |l l l | l l二ﾆ,一､＿!三≡=′　　 　　|　 　.　 |
　　　　　　　　　　 `ー‐-､､＿＿＿＿三＿＿〉　　 ヽ.､_.ノ .二≡l ＿ /　　　　　　　　　　　　　 ｜　　　｜
　　　　　　　　　　　　　　 　 ヽ＿|———､´　,−′ 　　　　　　　　　　　　　　　　　　　　　　　　｜　　　|
　　　　　　　　　　　　　　　　 　 └‐— !!'"‾ 　　　　　　　　　　　　　　　　　　　　　　　　　 　　｜　　　｜
　　　　┌─────────────────────────────────┘　　　｜
　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
　　　　｜　　　　┌────────────────────────────────┘
　　　　｜　　　　｜