Jump to content

Eban numbers: Difference between revisions

→‎{{header|Perl 6}}: Doh. Fix stupid error.
(→‎{{header|Perl 6}}: make it more modular and easily customizable)
(→‎{{header|Perl 6}}: Doh. Fix stupid error.)
Line 48:
for 'e', 't' -> $n {
 
my @ban = flat ((1 .. 10099),).map: *.&nban($n);
 
my @orders = ( (32 .. 9).map({ 10**$_*1, 10**$_*2 ... 10**$_*9 }).map: *.&nban($n) );
 
for @orders -> @order {
Line 105:
From 1,000 to 4,000: 0
========================================
Up to 10,000: 855
========================================
Up to 100,000: 855
========================================
Up to 1,000,000: 855
========================================
Up to 10,000,000: 62391
========================================
Up to 100,000,000: 62391
========================================
Up to 1,000,000,000: 4402743
========================================</pre>
 
10,343

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.