returns a fixed point of its argument (which is a function). fix :: (a -@# a) -@# a fix f = f (fix f) Which satisfies the equation fix f = x such that f x = x. Somewhat surprisingly, fix can be defined as the non-recursive fix = h . ( x . h (x x)) ( x . h (x x)) Since this involves self-application, it has an infinitetype. A function defined by f x1 .. xN = E can be expressed as f = fix ( f . x1 ... xN . E) = ( f . x1 ... xN . E) (fix ( f . x1 ... xN . E)) = let f = (fix ( f . x1 ... xN . E)) in x1 ... xN . E then this reduces to simply f = x1 ... xN . E In the case where N = 0 and f is free in E, this defines an infinite data object, e.g. ones = fix ( ones . 1 : ones) = ( ones . 1 : ones) (fix ( ones . 1 : ones)) = 1 : (fix ( ones . 1 : ones)) = 1 : 1 : ... Fix f is also sometimes written as mu f where mu is the Greek letter or alternatively, if f = x . E, written as mu x . E. (1995-04-13) (1998-06-25)
|
