Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module DenseMatrix =
- type DenseMatrix<'t> =
- {
- NumRows : int;
- NumCols : int;
- Data : 't array
- }
- static member inline (+) (x, y) =
- DenseMatrix<_>.map2 (+) x y
- // Failed to inline the value 'map2' marked 'inline',
- //perhaps because a recursive value was marked 'inline'
- static member inline map2 f x y =
- {
- NumRows = x.NumRows;
- NumCols = x.NumCols;
- Data = Array.map2 f x.Data y.Data
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement