[ create a new paste ] login | about

Link: http://codepad.org/y84JhuDH    [ raw code | output | fork ]

johannes - Haskell, pasted on Aug 4:
1
2
3
4
5
6
7
8
module Main where

zero = \f -> \x -> x
one  = \f -> \x -> f x
two  = \f -> \x -> f (f x)
-- etc

main = print (two succ 0)


Output:
1
2


Create a new paste based on this one


Comments: