Increasing gaps between consecutive Niven numbers: Difference between revisions
Increasing gaps between consecutive Niven numbers (view source)
Revision as of 12:40, 12 January 2020
, 4 years ago→{{header|Perl 6}}: Add a Perl 6 example
m (→add digits in chunks: corrected a typo.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 133:
276 1,039,028,518 18,879,988,824
</pre>
=={{header|Perl 6}}==
{{works with|Rakudo|2019.11}}
<lang perl6>use Lingua::EN::Numbers;
my int $index = 0;
my int $last = 0;
my int $gap = 0;
my int $threshold = 10000000;
say 'Gap Index of gap Starting Niven';
for 1..* -> \count {
next unless count %% sum count.comb;
++$index;
if (my \diff = count - $last) > $gap {
$gap = diff;
printf "%3d %15s %15s\n", $gap, comma($index - 1 || 1), comma($last || 1);
}
$last = count;
exit if $index >= $threshold;
}</lang>
{{out}}
<pre>Gap Index of gap Starting Niven
1 1 1
2 10 10
6 11 12
7 26 63
8 28 72
10 32 90
12 83 288
14 102 378
18 143 558
23 561 2,889
32 716 3,784
36 1,118 6,480
44 2,948 19,872
45 4,194 28,971
54 5,439 38,772
60 33,494 297,864
66 51,544 478,764
72 61,588 589,860
88 94,748 989,867
90 265,336 2,879,865
99 800,054 9,898,956
108 3,750,017 49,989,744
126 6,292,149 88,996,914</pre>
=={{header|REXX}}==
| |||