Well, considering that you have 500 pairs of the form (n) - (n + 1), which you are all adding, I'd do:

sub sum_alternating {-1 * 500}
[download]