mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
16 lines
366 B
Idris
16 lines
366 B
Idris
import Data.Vect
|
|
|
|
nums : List (Int, Int)
|
|
nums = [(1, 2), (3, 4), (5, 6)]
|
|
|
|
addToNums : List (Int, Int) -> List (Int, Int)
|
|
addToNums = map (\ (x, y) => (x + 1, y + 1))
|
|
|
|
vects : List (n ** Vect n Int)
|
|
vects = [(_ ** [1,2,3]),
|
|
(_ ** [1,2,3,4]),
|
|
(_ ** [1,2,3,4,5])]
|
|
|
|
lengths : List (n ** Vect n a) -> List Nat
|
|
lengths = map (\ (len ** xs) => length xs)
|