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

Create Data.NumIdr.Multiply

Browse source
This commit is contained in:
Kiana Sheibani 2022-05-26 18:50:07 -04:00
parent 97d1bdb538
commit 87d8814c38
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
6 changed files with 122 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Data/NumIdr/Scalar.idr
View file

@ -1,6 +1,7 @@
module Data.NumIdr.Scalar
import Data.Vect
import Data.NumIdr.Multiply
import Data.NumIdr.PrimArray
import public Data.NumIdr.Array
@ -21,3 +22,9 @@ scalar x = fromVect _ [x]
export
unwrap : Scalar a -> a
unwrap = index 0 . getPrim
export
Num a => Mult (Scalar a) (Scalar a) where
Result = Scalar a
(*.) = (*)