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に貼り付けます。 かんたんな画像のビューアーをつくり...
  • シェルピンスキーのギャスケット
    ｐｂｍファイルでシェルピンスキーのギャスケットを描きます。 まずパスカルの三角形をつくります。 $ runghc -XParallelListComp pascal.hs 3 [1] [1,1] [1,2,1] [1,3,3,1] [1,4,6,4,1...
  • 平方根、立方根
    2の平方根 $ runghc nroot.hs 2 2 | tee a 2の立方根 $ runghc nroot.hs 2 ３ | tee ｂ 猛列な勢いで計算しますので適当なファイルに保存もしています。（Ctrl-Cで停止） なお√２に...