Goldbach partition by Mithran

for$p(@p=grep 2**$_%++$_==1,@n=2..300){$p<=$_&&push@{$p+$_},"$p+$_"for@p}@$_&&print"$_: @$_
"for@n

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

download

return to the top page