mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 06:18:05 +02:00
8 lines
No EOL
201 B
Haskell
8 lines
No EOL
201 B
Haskell
type Church t = (t -> t) -> t -> t
|
|
|
|
int2church :: Integer -> Church t
|
|
int2church 0 s z = z
|
|
int2church n s z = int2church (n - 1) s (s z)
|
|
|
|
church2int :: Church Integer -> Integer
|
|
church2int n = n (+1) 0 |