Goldbach partition by Songmu

for$i(3..150){print$i*2,":";for(3..$i){print" $_+$h"if f($_)&&f($h=$i*2-$_)}print"
"}sub f{($n)=@_;for(2..$n-1){return if$n%$_==0}1}

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

download

return to the top page