2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Arithmetic-Rational/Perl-6/arithmetic-rational-1.pl6
+++ b/Task/Arithmetic-Rational/Perl-6/arithmetic-rational-1.pl6
@ -5,7 +5,7 @@ for 2..2**19 -> $candidate {
            $sum += 1 / $factor + 1 / ($candidate / $factor);
        }
    }
-    if $sum.denominator == 1 {
+    if $sum.nude[1] == 1 {
        say "Sum of reciprocal factors of $candidate = $sum exactly", ($sum == 1 ?? ", perfect!" !! ".");
    }
 }