15 lines
284 B
Haskell
15 lines
284 B
Haskell
module Main where
|
|
|
|
import Data.Void
|
|
|
|
import Props.Lambda.Term
|
|
|
|
yCombinator :: Term Void String String
|
|
yCombinator = Lambda "f"
|
|
(App
|
|
(Lambda "x" (App (Var 1) (App (Var 0) (Var 0))))
|
|
(Lambda "x" (App (Var 1) (App (Var 0) (Var 0))))
|
|
)
|
|
|
|
main :: IO ()
|
|
main = print yCombinator
|