Table of divisors by konn

main=interact$unlines.(\n->zipWith((++).(++":").show)[1..]$map(unwords.map show.(\t->[m|m<-[1..t],t`mod`m==0]))[1..n]).read

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

download

return to the top page