diff options
Diffstat (limited to 'examples/oldtests.hs')
| -rw-r--r-- | examples/oldtests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/oldtests.hs b/examples/oldtests.hs index 987ef98..1f1ca25 100644 --- a/examples/oldtests.hs +++ b/examples/oldtests.hs | |||
| @@ -10,7 +10,7 @@ realVector = fromList :: [Double] -> Vector Double | |||
| 10 | toComplexM = uncurry $ liftMatrix2 (curry toComplex) | 10 | toComplexM = uncurry $ liftMatrix2 (curry toComplex) |
| 11 | 11 | ||
| 12 | infixl 2 =~= | 12 | infixl 2 =~= |
| 13 | a =~= b = pnorm PNorm1 (flatten (a - b)) < 1E-6 | 13 | a =~= b = pnorm 1 (flatten (a - b)) < 1E-6 |
| 14 | 14 | ||
| 15 | randomMatrix seed (n,m) = reshape m $ realVector $ take (n*m) $ randomRs (-100,100) $ mkStdGen seed | 15 | randomMatrix seed (n,m) = reshape m $ realVector $ take (n*m) $ randomRs (-100,100) $ mkStdGen seed |
| 16 | 16 | ||