Jump to content

Kronecker product: Difference between revisions

m
→‎{{header|Haskell}}: Minor rearrangement for fewer brackets
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 ()
9,659

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.