idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-24 04:09:10 +03:00
Code Issues Projects Releases Wiki Activity

[ new ] Implement Sized for Seqs

Browse Source
This commit is contained in:
Denis Buzdalov 2023-09-27 21:25:11 +03:00 committed by G. Allais
parent 0c40a76c2c
commit 276d41d86c
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CHANGELOG.md
View File

@ -232,6 +232,8 @@
were made to be indeed lazy by the effect, but their requirements were strengthened were made to be indeed lazy by the effect, but their requirements were strengthened
from `Applicative` to `Monad`. from `Applicative` to `Monad`.
* Implements `Sized` for `Data.Seq.Sized` and `Data.Seq.Unsized`.
#### Papers #### Papers
* In `Control.DivideAndConquer`: a port of the paper * In `Control.DivideAndConquer`: a port of the paper

4
libs/contrib/Data/Seq/Sized.idr
View File

@ -207,3 +207,7 @@ public export
implementation {n : Nat} -> Applicative (Seq n) where implementation {n : Nat} -> Applicative (Seq n) where
pure = replicate n pure = replicate n
(<*>) = zipWith ($) (<*>) = zipWith ($)
public export
implementation Sized (Seq n a) where
size (MkSeq s) = size s

4
libs/contrib/Data/Seq/Unsized.idr
View File

@ -218,3 +218,7 @@ public export
public export public export
implementation Monad Seq where implementation Monad Seq where
xs >>= f = foldMap f xs xs >>= f = foldMap f xs
public export
implementation Sized (Seq a) where
size (MkSeq s) = size s