mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
94 lines
5.7 KiB
Plaintext
94 lines
5.7 KiB
Plaintext
data Bool : Type where
|
|
False : Bool
|
|
True : Bool
|
|
|
|
data Nat : Type where
|
|
Z : Nat
|
|
S : Nat -> Nat
|
|
|
|
data Vect : Nat -> Type -> Type where
|
|
Nil : Vect Z $a
|
|
Cons : $a -> Vect $k $a -> Vect (S $k) $a
|
|
|
|
-- Throw in a complication :)
|
|
namespace List
|
|
data List : Type -> Type where
|
|
Nil : List $a
|
|
Cons : $a -> List $a -> List $a
|
|
|
|
stuff : Vect ? Bool
|
|
stuff = Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
Nil)))))))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|