Kronecker product by Lost_dog

import Text.Printf
main=interact$f.span(>[]).map(map read.words).lines
f(a,_:x)=unlines[printf"%5d"=<<[c*z::Int|c<-b,z<-y]|b<-a,y<-x]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page