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

[ base ] Move the worker outside of the Vect's reverse definition

Browse Source
This commit is contained in:
0xd34df00d 2022-10-02 15:55:02 -05:00 committed by G. Allais
parent 7d9d39c045
commit c6a8c9e7a7
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
libs/base/Data/Vect.idr
View File

@ -257,6 +257,17 @@ replaceAtDiffIndexPreserves (_::_) (FS z) (FS w) co y = replaceAtDiffIndexPreser
-- Transformations
--------------------------------------------------------------------------------
||| Reverse the second vector, prepending the result to the first.
|||
||| ```idris example
||| reverseOnto [0, 1] [10, 11, 12]
||| ```
public export
reverseOnto : Vect n elem -> Vect m elem -> Vect (n+m) elem
reverseOnto {n} acc [] = rewrite plusZeroRightNeutral n in acc
reverseOnto {n} {m=S m} acc (x :: xs) = rewrite sym $ plusSuccRightSucc n m
in reverseOnto (x::acc) xs
||| Reverse the order of the elements of a vector
|||
||| ```idris example
@ -264,11 +275,7 @@ replaceAtDiffIndexPreserves (_::_) (FS z) (FS w) co y = replaceAtDiffIndexPreser
||| ```
public export
reverse : (xs : Vect len elem) -> Vect len elem
reverse xs = go [] xs
where go : Vect n elem -> Vect m elem -> Vect (n+m) elem
go {n} acc [] = rewrite plusZeroRightNeutral n in acc
go {n} {m=S m} acc (x :: xs) = rewrite sym $ plusSuccRightSucc n m
in go (x::acc) xs
reverse = reverseOnto []
||| Alternate an element between the other elements of a vector
||| @ sep the element to intersperse