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

Create Field and Scalar interfaces

Browse source
This commit is contained in:
Kiana Sheibani 2022-09-06 13:37:50 -04:00
parent 47e889992d
commit 3e12505377
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
8 changed files with 56 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/Data/NumIdr/Vector.idr
View file

@ -1,7 +1,8 @@
module Data.NumIdr.Vector
import Data.Vect
import Data.NumIdr.Multiply
import Data.Permutation
import Data.NumIdr.Interfaces
import public Data.NumIdr.Array
%default total
@ -117,7 +118,7 @@ export
--------------------------------------------------------------------------------
-- Swizzling
-- Swizzling & permuting elements
--------------------------------------------------------------------------------
@ -130,6 +131,14 @@ swizzle p v = rewrite sym (lengthCorrect p)
)
export
swapCoords : (i,j : Fin n) -> Vector n a -> Vector n a
swapCoords = swapInAxis 0
export
permuteCoords : Permutation n -> Vector n a -> Vector n a
permuteCoords = permuteInAxis 0
--------------------------------------------------------------------------------
-- Vector operations