mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
12 lines
227 B
Idris
12 lines
227 B
Idris
total
|
|
notHack : Nat -> (Nat, Nat)
|
|
notHack Z = (Z, Z)
|
|
notHack (S n) = let (baz1, baz2) = notHack n
|
|
in (baz2, S baz1)
|
|
|
|
|
|
total
|
|
hack : Nat -> (Void, Void)
|
|
hack n = let (baz1, baz2) = hack n
|
|
in (baz1, baz2)
|