scalar moved to Linear and equal used for ==

1 files changed, 3 insertions, 0 deletions

diff --git a/examples/parallel.hs b/examples/parallel.hs
index efcbe8a..3c83c54 100644
--- a/examples/parallel.hs
+++ b/examples/parallel.hs
@@ -12,10 +12,13 @@ inParallel = parMap rwhnf id
 parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ]
     where ys = splitColumns p y
 
+-- x <||> y = fromColumns . inParallel . map (x <>) . toColumns $ y
+
 main = do
     n <- (read . head) `fmap` getArgs
     let m = ident n :: Matrix Double
     time $ print $ vectorMax $ takeDiag $ m <> m
+--    time $ print $ vectorMax $ takeDiag $ m <||> m
     time $ print $ vectorMax $ takeDiag $ parMul 2 m m
     time $ print $ vectorMax $ takeDiag $ parMul 4 m m
     time $ print $ vectorMax $ takeDiag $ parMul 8 m m