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

Create Data.Permutation

Browse source
This commit is contained in:
Kiana Sheibani 2022-09-01 18:24:47 -04:00
parent 92fc8f00c9
commit 0177781c74
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
3 changed files with 68 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Data/NumIdr/Array/Coords.idr
View file

@ -9,7 +9,7 @@ import Data.NP
-- A Nat-based range function with better semantics
public export
export
range : Nat -> Nat -> List Nat
range x y = if x < y then assert_total $ takeBefore (>= y) (countFrom x S)
else []

6
src/Data/NumIdr/Matrix.idr
View file

@ -92,12 +92,12 @@ indexNB m n = indexNB [m,n]
||| Return a row of the matrix as a vector.
export
getRow : Fin m -> Matrix m n a -> Vector n a
getRow r mat = rewrite sym (rangeLenZ n) in mat !!.. [One r, All]
getRow r mat = rewrite sym (rangeLenZ n) in mat!!..[One r, All]
||| Return a column of the matrix as a vector.
export
getColumn : Fin n -> Matrix m n a -> Vector m a
getColumn c mat = rewrite sym (rangeLenZ m) in mat !!.. [All, One c]
getColumn c mat = rewrite sym (rangeLenZ m) in mat!!..[All, One c]
export
@ -114,7 +114,7 @@ diagonal mat with (viewShape mat)
-- TODO: throw an actual proof in here to avoid the unsafety
export
minor : Fin (S m) -> Fin (S n) -> Matrix (S m) (S n) a -> Matrix m n a
minor i j mat = believe_me $ mat !!.. [Filter (/=i), Filter (/=j)]
minor i j mat = believe_me $ mat!!..[Filter (/=i), Filter (/=j)]
--------------------------------------------------------------------------------