Rename stack to concat

This commit is contained in:
Kiana Sheibani 2022-06-13 14:42:35 -04:00
parent 87d8814c38
commit 03d06a42aa
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
3 changed files with 17 additions and 17 deletions

View file

@ -289,9 +289,9 @@ enumerate arr = map (\is => (is, index is arr))
(rewrite shapeEq arr in getAllCoords $ shape arr)
export
stack : (axis : Fin rk) -> Array {rk} s a -> Array (replaceAt axis d s) a ->
concat : (axis : Fin rk) -> Array {rk} s a -> Array (replaceAt axis d s) a ->
Array (updateAt axis (+d) s) a
stack axis a b = let sA = shape a
concat axis a b = let sA = shape a
sB = shape b
dA = index axis sA
dB = index axis sB

View file

@ -95,10 +95,10 @@ getColumn c mat = rewrite sym (minusZeroRight m) in indexRange [All, One c] mat
--------------------------------------------------------------------------------
export
vstack : Matrix m n a -> Matrix m' n a -> Matrix (m + m') n a
vstack = stack 0
vconcat : Matrix m n a -> Matrix m' n a -> Matrix (m + m') n a
vconcat = concat 0
export
hstack : Matrix m n a -> Matrix m n' a -> Matrix m (n + n') a
hstack = stack 1
hconcat : Matrix m n a -> Matrix m n' a -> Matrix m (n + n') a
hconcat = concat 1

View file

@ -94,8 +94,8 @@ swizzle p v = rewrite sym (lengthCorrect p)
export
concat : Vector m a -> Vector n a -> Vector (m + n) a
concat = stack 0
(++) : Vector m a -> Vector n a -> Vector (m + n) a
(++) = concat 0
export