Equal prime and composite sums: Difference between revisions
m
→{{header|Perl}}: wrong limit
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: wrong limit) |
||
Line 100:
my $ci++;
for my $pi (1 ..
next if prime_sum($pi) < composite_sum($ci);
printf( "%20s - %11s prime sum, %12s composite sum\n",
|