Idris2/libs/contrib/Data/Stream/Extra.idr

module Data.Stream.Extra

%default total

||| Insert elements from a Foldable at the start of an existing Stream
||| @ pfx the Foldable containing elements to prepend
||| @ stream the Stream to prepend the elements to
public export
startWith : Foldable t => (pfx : t a) -> (stream : Stream a) -> Stream a
startWith pfx stream = foldr (\x, xs => x :: xs) stream pfx
Add `Data.Stream.Extra.startWith` 2020-08-28 13:27:39 +03:00			`module Data.Stream.Extra`

			`%default total`

			`\|\|\| Insert elements from a Foldable at the start of an existing Stream`
			`\|\|\| @ pfx the Foldable containing elements to prepend`
			`\|\|\| @ stream the Stream to prepend the elements to`
			`public export`
			`startWith : Foldable t => (pfx : t a) -> (stream : Stream a) -> Stream a`
Remove trailing whitespaces and add trailing newlines 2021-01-16 10:03:45 +03:00			`startWith pfx stream = foldr (\x, xs => x :: xs) stream pfx`