Refactor Mult and add MultNeutral
This commit is contained in:
parent
015b7f8cb1
commit
a0d9c766c0
4 changed files with 37 additions and 13 deletions
|
|
@ -56,6 +56,8 @@ unit3D pol az = vector [cos az * sin pol, sin az * sin pol, cos pol]
|
|||
-- Indexing
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
infix 10 !!
|
||||
infix 10 !?
|
||||
|
||||
export
|
||||
index : Fin n -> Vector n a -> a
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue