Some optimizations.

Author: shlomif

categories/euler/prob601-shlomif.p6

@@ -16,17 +16,13 @@ L<http://projecteuler.net/problem=601>
 sub calc_P($s, $N)
 {
     my $l = [lcm] 1 .. $s;
-    my $i = $l;
+    my $i = 0;
     my $ret = 0;
     my $t = $s + 1;
     my $M = $N - 1;
-    while $i < $M
+    while (($i = $i + $l) < $M)
     {
-        if $i % $t
-        {
-            ++$ret;
-        }
-        $i += $l;
+        ++$ret if $i % $t;
     }
     return $ret;
 }