Speedup by using native ints.

Thanks to dogbert17 .
Raku · Apr 30, 2017 · 1fe0a75 · 1fe0a75
1 parent b5fd7f5
commit 1fe0a75
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/categories/euler/prob601-shlomif.p6 b/categories/euler/prob601-shlomif.p6
@@ -15,11 +15,11 @@ L<http://projecteuler.net/problem=601>
 
 sub calc_P($s, $N)
 {
-    my $l = [lcm] 1 .. $s;
-    my $i = 0;
-    my $ret = 0;
-    my $t = $s + 1;
-    my $M = $N - 1;
+    my int $l = [lcm] 1 .. $s;
+    my int $i = 0;
+    my int $ret = 0;
+    my int $t = $s + 1;
+    my int $M = $N - 1;
     while (($i = $i + $l) < $M)
     {
         ++$ret if $i % $t;