Kronecker product: Difference between revisions

Content added Content deleted
m (→‎{{header|Haskell}}: Minor rearrangement for fewer brackets)
Line 975:
kprod xs ys =
let f = fmap . fmap . (*) -- Multiplication by n over list of lists
in (concatfmap <$>)concat . transpose =<< fmap (`f` ys) <$> xs
 
main :: IO ()
Retrieved from "https://rosettacode.org/wiki/Kronecker_product"