Idris2/tests/base/data_vect001/Vect.idr

8 lines
161 B
Idris
Raw Normal View History

import Data.Vect
takeFromStream : List (n ** Vect n Int)
takeFromStream = [(n ** take n [3..]) | n <- [0, 1, 5]]
main : IO ()
main = do printLn takeFromStream