mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-30 00:04:55 +03:00
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)
|