multiple applications

[fp.git] / Arithmetic.lc

diff --git a/Arithmetic.lc b/Arithmetic.lc
index 5a30a17..6851970 100644 (file)
--- a/Arithmetic.lc
+++ b/Arithmetic.lc
@@ -1,12 +1,12 @@
 import Logic
 import Logic

-Succ=\n.\f.\x.(f ((n f) x))
-Zero=\f.\x.x
+Succ=\n f x.(f ((n f) x))
+Zero=\f x.x

 One=(Succ Zero)
 Two=(Succ One)
 Three=(Succ Two)
 One=(Succ Zero)
 Two=(Succ One)
 Three=(Succ Two)

-Add=\n.\m.\f.\x.((n f) ((m f) x))
-Mult=\n.\m.\f.(n (m f))
-IsZero=\n.\x.\y.((n \z.y) x)
+Add=\n m f x.((n f) ((m f) x))
+Mult=\n m f.(n (m f))
+IsZero=\n x y.((n \z.y) x)

 ((Add Two) Three)
 ((Mult Two) Three)
 (PrintBool (IsZero Zero))
 ((Add Two) Three)
 ((Mult Two) Three)
 (PrintBool (IsZero Zero))