Multiplication Table by tanakh

main=mapM putStrLn[unwords[r$take 3$r(show$i*j)++"  "|j<-l]|i<-l]
r=reverse
l=[1..12]

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

download

return to the top page