mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-18 16:51:51 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
38 lines
667 B
Plaintext
38 lines
667 B
Plaintext
-- The main purpose of this test is to ensure it runs instantly!
|
|
|
|
data Nat : Type where
|
|
Z : Nat
|
|
S : Nat -> Nat
|
|
|
|
plus : Nat -> Nat -> Nat
|
|
plus Z y = y
|
|
plus (S k) y = S (plus k y)
|
|
|
|
mult : Nat -> Nat -> Nat
|
|
mult Z y = Z
|
|
mult (S k) y = plus y (mult k y)
|
|
|
|
five : Nat
|
|
five = S (S (S (S (S Z))))
|
|
|
|
ten : Nat
|
|
ten = plus five five
|
|
|
|
thousand : Nat
|
|
thousand = mult ten (mult ten ten)
|
|
|
|
tenthousand : Nat
|
|
tenthousand = mult ten thousand
|
|
|
|
fiftythousand : Nat
|
|
fiftythousand = mult five tenthousand
|
|
|
|
hundredthousand : Nat
|
|
hundredthousand = mult ten tenthousand
|
|
|
|
data IsSuc : Nat -> Type where
|
|
Yes : IsSuc (S $k)
|
|
|
|
nonZero : IsSuc Main.hundredthousand
|
|
nonZero = Yes
|