Goldbach partition by notogawa

main=[3]%[5..301]
(#)=shows
p%(q:n:x)=putStrLn(unwords$n#":":[a#"+"++b#""|a<-p,b<-p,a<=b,a+b==n])>>(p++[q|all((0<).mod q)p])%x

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

download

return to the top page