DigitalGhost https://blog.hatena.ne.jp/DigitalGhost/ デ-mk6 https://dechimal.hatenadiary.com/ Haskell フィボナッチ数列 fib = 0:1:zipWith (+) fib (tail fib)で、これを新しい名前を作ることなく、かつ無名関数を書かずにやってみる。まずは関数の形になおす。 fib = let fib' x y = x:fib' y (x+y) in fib' 0 1fib'のパターンを書かないように変形する。 fib = let fib' = curry $ fst &&& (snd &&& uncurry (+) >>> uncurry fib') >>> uncurry (:) in fib' 0 1Arrowさまさま…。次にfib'を、fixと無名関数使って変形。 (cur… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdechimal.hatenadiary.com%2Fentry%2F20091029%2F1256835684" title="フィボナッチ数列をアレする - デ-mk6" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-10-29 02:01:24 rich https://dechimal.hatenadiary.com/entry/20091029/1256835684 1.0 100%