diff options
| -rw-r--r-- | packages/base/src/Data/Packed/Matrix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Data/Packed/Matrix.hs b/packages/base/src/Data/Packed/Matrix.hs index 067bf76..70b9232 100644 --- a/packages/base/src/Data/Packed/Matrix.hs +++ b/packages/base/src/Data/Packed/Matrix.hs | |||
| @@ -476,7 +476,7 @@ mapMatrixWithIndexM g m = liftM (reshape c) . mapVectorWithIndexM (mk c g) . fla | |||
| 476 | 476 | ||
| 477 | {- | | 477 | {- | |
| 478 | 478 | ||
| 479 | >>> mapMatrixWithIndex (\\(i,j) v -> 100*v + 10*fromIntegral i + fromIntegral j) (ident 3:: Matrix Double) | 479 | >>> mapMatrixWithIndex (\(i,j) v -> 100*v + 10*fromIntegral i + fromIntegral j) (ident 3:: Matrix Double) |
| 480 | (3><3) | 480 | (3><3) |
| 481 | [ 100.0, 1.0, 2.0 | 481 | [ 100.0, 1.0, 2.0 |
| 482 | , 10.0, 111.0, 12.0 | 482 | , 10.0, 111.0, 12.0 |