Eban numbers: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Doh. Fix stupid error. |
Thundergnat (talk | contribs) m →{{header|Perl 6}}: account for zero |
||
Line 42:
<lang perl6>use Lingua::EN::Numbers::Cardinal;
sub nban (
sub comma { $^i.flip.comb(3).join(',').flip }
Line 61:
@ban.append: @these
}
@ban.unshift(0) if 0.&nban($n);
say "\nDisplaying output for {$n}-ban:";
put my @k = @ban.grep: * <= 100;
Line 99 ⟶ 101:
Displaying output for t-ban:
0 1 4 5 6 7 9 11 100
Up to 100:
========================================
From 1,000 to 4,000: 0
========================================
Up to 10,000:
========================================
Up to 100,000:
========================================
Up to 1,000,000:
========================================
Up to 10,000,000:
========================================
Up to 100,000,000:
========================================
Up to 1,000,000,000:
========================================</pre>
|