lazyness

2025-10-04 23:34:16 +01:00
parent a86ccba427
commit 5a554f2c8e
2 changed files with 10 additions and 6 deletions
--- a/utils.hs
+++ b/utils.hs
@@ -0,0 +1,5 @@
+church :: Integer -> String
+church n = "\\f.\\x."<>church' n
+  where church' :: Integer -> String
+        church' 0 = "x"
+        church' x = "(f " <> church' (x - 1) <> ")"