Wasteful, equidigital and frugal numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 127: / Line 127: @@
     my $upto = 1e6.Int;
-    my atomicint ($Wasteful, $Equidigital, $Frugal) = 0, 1, 0;
+    my atomicint ($Wasteful, $Equidigital, $Frugal);
     say "\nOf the positive integers up to {$upto.&cardinal} :";
-    (2..^$upto).race(:5000batch).map: { .&frugal($base) ?? ++⚛$Frugal !! .&equidigital($base) ?? ++⚛$Equidigital !! ++⚛$Wasteful };
+    (1..^$upto).race(:5000batch).map: { .&frugal($base) ?? ++⚛$Frugal !! .&equidigital($base) ?? ++⚛$Equidigital !! ++⚛$Wasteful };
     say "   Wasteful: {comma $Wasteful}\nEquidigital: {comma $Equidigital}\n     Frugal: {comma $Frugal}";
 }</lang>