Goldbach partition by *yuko*

real::p(300)=1;do i=6,300,2;print'(i0":"$)',i;do j=3,i/2,2;p(j*2::j)=0
if(p(j)*p(i-j)>0)print'(xi0spi0$)',j,i-j;enddo;print*;enddo;end

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

download

return to the top page