idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-17 00:10:31 +03:00
Code Issues Projects Releases Wiki Activity
0e4168edbf
Idris2/tests/ttimp/perf002/BigVect.yaff

93 lines
5.7 KiB
Plaintext
Raw Normal View History

Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 20:25:18 +03:00
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)))))))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
Reference in New Issue Copy Permalink