mirror of
https://github.com/idris-lang/Idris2.git
synced 2025-01-02 08:35:07 +03:00
17 lines
304 B
Idris
17 lines
304 B
Idris
|
interface IsEven a where
|
||
|
isEven : a -> Bool
|
||
|
|
||
|
interface IsOdd b where
|
||
|
isOdd : b -> Bool
|
||
|
|
||
|
implementation IsOdd Nat
|
||
|
|
||
|
implementation IsEven Nat where
|
||
|
isEven 0 = True
|
||
|
isEven (S k) = not $ isOdd k
|
||
|
|
||
|
implementation Show Nat => IsOdd Nat where
|
||
|
isOdd 0 = True
|
||
|
isOdd (S k) = not $ isEven k
|
||
|
|