mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 01:01:59 +03:00
14 lines
214 B
Idris
14 lines
214 B
Idris
module Main
|
|
|
|
mutual
|
|
is_even : Nat -> Bool
|
|
is_even Z = True
|
|
is_even (S k) = is_odd k
|
|
|
|
is_odd : Nat -> Bool
|
|
is_odd Z = False
|
|
is_odd (S k) = is_even k
|
|
|
|
main : IO ()
|
|
main = printLn (is_even 10)
|