Rosetta Code

Wasteful, equidigital and frugal numbers: Difference between revisions

Page Discussion

Wasteful, equidigital and frugal numbers (view source)

Revision as of 01:45, 17 July 2022

10 bytes removed ,  1 year ago
m
→‎{{header|Raku}}: tweak
(→‎{{header|Raku}}: Add a Raku example)
Line 127:
 
my $upto = 1e6.Int;
my atomicint ($Wasteful, $Equidigital, $Frugal) = 0, 1, 0;
say "\nOf the positive integers up to {$upto.&cardinal} :";
(21..^$upto).race(:5000batch).map: { .&frugal($base) ?? ++⚛$Frugal !! .&equidigital($base) ?? ++⚛$Equidigital !! ++⚛$Wasteful };
say " Wasteful: {comma $Wasteful}\nEquidigital: {comma $Equidigital}\n Frugal: {comma $Frugal}";
}</lang>
Thundergnat
10,327

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/321862"