Prime Substrings by int-e

m@main=do x<-getLine;putStrLn(do n<-[read$take a$drop b$x|a<-[1..9],b<-[0..length x-a]];show$product[1..n-1]^2`mod`max 1n);m

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

download

return to the top page