Kronecker product: Difference between revisions
m
→{{header|Haskell}}
(→{{header|BQN}}: Nesting-based definition) |
|||
Line 1,608:
<lang haskell>import Data.List (transpose)
kprod :: Num a => [[a]] -> [[a]] -> [[a]]▼
▲ => [[a]] -> [[a]] -> [[a]]
kprod xs ys =
(fmap (`f` ys) <$> xs)
where
f = fmap . fmap . (*)
main :: IO ()
| |||