mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-15 22:32:19 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
27 lines
540 B
Idris
27 lines
540 B
Idris
|
|
import Data.Fin
|
|
import Data.Vect
|
|
|
|
tail : {0 A : Type} -> {n : Nat} -> (Fin (S n) -> A) -> (Fin n -> A)
|
|
tail f = f . FS
|
|
|
|
toVect : {0 A : Type} -> {n : Nat} -> (Fin n -> A) -> Vect n A
|
|
toVect {n = Z} _ = Nil
|
|
toVect {n = S m} f = (f FZ) :: (toVect (tail f))
|
|
|
|
record Iso a b where
|
|
constructor MkIso
|
|
to : a -> b
|
|
from : b -> a
|
|
toFrom : (y : b) -> to (from y) = y
|
|
fromTo : (x : a) -> from (to x) = x
|
|
|
|
interface Finite t where
|
|
card : Nat
|
|
iso : Iso t (Fin card)
|
|
|
|
-- default methods
|
|
|
|
foo : Vect card t
|
|
foo = toVect (from iso)
|