2017年10月30日月曜日

フィボナッチ数


f6 の実行例

*Main> last $ take 10 f6
[55,34,21,13,8,5,3,2,1,1,0]

これは

foldl (\x@(a:b:_) _ -> (a+b):x) [1,0] [0..８]

と同じです。

フィボナッチ数列の隣り合う 2 項の比は黄金比に収束Wします。

$ runghc fibo2.hs | runghc gr.hs

~
~
~
1.618033988749895
1.618033988749895
1.618033988749895
~
~
~
Ctrl-Cを押して終了。
時刻:
ラベル:

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)

myPlayer

-- pipe.hs import System.Process import System.Environment main :: IO () a:_ IO [FilePath] randomize lst = do let c = length lst ...

  • 画像ビューアー
    この画像（IMGP2850.JPG）を表示します。 ただこのやり方だと元画像の大きさそのままで表示されます。 サイズを変更して表示するには一旦Pixbufのインスタンスをつくってから Buttonに貼り付けます。 かんたんな画像のビューアーをつくり...
  • gist.github の罠
    上のコードをコピペして実行する。 $ runghc a.hs a.hs:3:11: error: Variable not in scope: ｎ たぶんこのようなエラーになるはずです。 最初はなぜエラーになるのか理解できませんでした。 Vim上ではまったく...
  • myPlayer
    -- pipe.hs import System.Process import System.Environment main :: IO () a:_ IO [FilePath] randomize lst = do let c = length lst ...