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

Remove redundant array' function

Browse source
This commit is contained in:
Kiana Sheibani 2024-04-25 13:38:22 -04:00
parent 8cdcf4664c
commit 762a41c32b
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 1 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Data/NumIdr/Array/Array.idr
View file

@ -171,22 +171,12 @@ fromFunction : {default B rep : Rep} -> RepConstraint rep a =>
(s : Vect rk Nat) -> (Coords s -> a) -> Array s a (s : Vect rk Nat) -> (Coords s -> a) -> Array s a
fromFunction s f = MkArray rep s (PrimArray.fromFunction s f) fromFunction s f = MkArray rep s (PrimArray.fromFunction s f)
||| Construct an array using a structure of nested vectors. The elements are arranged
||| to the specified order before being written.
|||
||| @ s The shape of the constructed array
||| @ ord The order of the constructed array
export
array' : {default B rep : Rep} -> RepConstraint rep a =>
(s : Vect rk Nat) -> Vects s a -> Array s a
array' s v = MkArray rep s (fromVects s v)
||| Construct an array using a structure of nested vectors. ||| Construct an array using a structure of nested vectors.
||| To explicitly specify the shape and order of the array, use `array'`. ||| To explicitly specify the shape and order of the array, use `array'`.
export export
array : {default B rep : Rep} -> RepConstraint rep a => array : {default B rep : Rep} -> RepConstraint rep a =>
{s : Vect rk Nat} -> Vects s a -> Array s a {s : Vect rk Nat} -> Vects s a -> Array s a
array {rep} = array' {rep} _ array v = MkArray rep s (fromVects s v)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------