tex-projects/LaTeX-examples
2
0
Fork 0
mirror of https://github.com/MartinThoma/LaTeX-examples.git synced 2025-04-25 22:38:04 +02:00
Code Activity

some haskell / chruch numbers

Browse source
This commit is contained in:
Martin Thoma 2014-03-12 21:07:00 +01:00
parent 0277f365eb
commit 2f943ff667
4 changed files with 58 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
documents/Programmierparadigmen/scripts/haskell/church.hs Normal file
View file

@ -0,0 +1,8 @@
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