toki/numidr
1
0
Fork 0
Code Issues Pull requests Activity

Add implementations for Array

Browse source
This commit is contained in:
Kiana Sheibani 2022-05-20 08:40:24 -04:00
parent 5914652b7c
commit ff48a18478
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
4 changed files with 177 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Data/NumIdr/Array/Order.idr
View file

@ -21,6 +21,15 @@ data Order : Type where
FOrder : Order
public export
Eq Order where
COrder == COrder = True
FOrder == FOrder = True
COrder == FOrder = False
FOrder == COrder = False
scanr : (el -> res -> res) -> res -> Vect len el -> Vect (S len) res
scanr _ q0 [] = [q0]
scanr f q0 (x::xs) = f x (head qs) :: qs