Kronecker product: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|Haskell}}: Minor rearrangement for fewer brackets) |
||
Line 975: | Line 975: | ||
kprod xs ys = |
kprod xs ys = |
||
let f = fmap . fmap . (*) -- Multiplication by n over list of lists |
let f = fmap . fmap . (*) -- Multiplication by n over list of lists |
||
in |
in fmap concat . transpose =<< fmap (`f` ys) <$> xs |
||
main :: IO () |
main :: IO () |