Prime ruin by lynn

1%p=p
n%p=div n(gcd n$p^9)%(p+1)
main=mapM putStrLn[[1,n%2..n]>>["_/"," "]<*[2..n%2]>>=id|n<-[1..100]]

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

download

return to the top page