Tumblelog by Soup.io
Newer posts are loading.
You are at the newest post.
Click here to check if anything new just came in.

December 17 2010

nvm

Fixpoint Iterations in Haskell

ffix f x =
    let x' = f x
    in if x' == x
       then x
       else ffix f x'

let fixpoint f = fst . head . dropWhile (uncurry (/=)) . uncurry zip <<< id &&& tail <<< iterate f in fixpoint cos 0
Tags: haskell maths numeric code