Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

10 lines (6 sloc) 0.122 kb
module Y where
fact :: (Int -> Int) -> Int -> Int
fact f 1 = 1
fact f n = n * f (n-1)
y :: (a -> a) -> a
y f = f (y f)
Jump to Line
Something went wrong with that request. Please try again.