Help for this page

Select Code to Download


  1. or download this
    p:\test>x1
500000500000
...
p:\test>x2
500000500000
  2. or download this
    map{ $sum += $_ } 1 .. 1000000; print $sum;
  3. or download this
    $sum += $_ for 1 .. 1000000; print $sum;