Kronecker product: Difference between revisions

let f = (<$>)fmap . (<$>)fmap . (*)

in concat $ ((fmap concat <$>) . transpose) <$> ((<$>)fmap (`f` ys) <$> xs)