Idris2/tests/node/node008/Nat.idr

12 lines
149 B
Idris
Raw Normal View History

2020-06-12 23:35:08 +03:00
myS : Nat -> Nat
myS n = S n
myS_crash : Nat -> Nat
myS_crash = S
main : IO ()
main = do
printLn (S Z)
printLn (myS Z)
printLn (myS_crash Z)