1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-23 11:43:08 +03:00
Idris2/tests/idris2/basic/basic008/If.idr
2023-09-07 14:57:22 +01:00

19 lines
333 B
Idris

data Bool = False | True
data Nat = Z | S Nat
not : Bool -> Bool
not False = True
not True = False
isZero : Nat -> Bool
isZero Z = True
isZero (S k) = False
isOdd : Nat -> Bool
isOdd Z = False
isOdd (S k) = not (isOdd k)
testZ : Nat -> String
testZ x = if isZero x then "Zero" else
if isOdd x then "Odd" else "Even"