閑古鳥

オールドプログラマの日記。プログラミングとか病気(透析)の話とか。

2007-08-28から1日間の記事一覧

フィボナッチ数を求めるプログラム

SICP読み始めた記念にHaskellで書いてみました。久しぶりなので非常に苦労しました。 再帰 main = print $ fib 50 fib :: Integer -> Integer fib 0 = 0 fib 1 = 1 fib (n) = fib(n-2) + fib(n-1) 反復 main = print $ fib 50 fib :: Integer -> Integer fib…

フィボナッチ数を求めるプログラム

C++

C++版。g++ 4.0.1でコンパイル。 再帰 #include <iostream> using namespace std; template<int N> struct fib { enum { Value = fib<N-2>::Value + fib<N-1>::Value }; }; template<> struct fib<1> { enum { Value = 1 }; }; template<> struct fib<0> { enum { Value = 0 }; }; int m</n-1></n-2></int></iostream>…