Idris2/tests/base/data_vect001/Vect.idr
Joel Berkeley 078db21edf
Return a Vect from Stream take (#1812)
Co-authored-by: Guillaume ALLAIS <guillaume.allais@ens-lyon.org>
2021-08-30 16:00:20 +01:00

8 lines
161 B
Idris

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