Eban numbers: Difference between revisions

Line 42:

<lang perl6>use Lingua::EN::Numbers::Cardinal;

sub nban (@seq, $n = 'e') { (@seq).map: { next if .&cardinal.contains($n); $_ } }

sub nban ($seq, $n = 'e') { ($seq).map: { next if .&cardinal.contains($n); $_ } }

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:

Line 101:

Displaying output for t-ban:

1 4 5 6 7 9 11 100

0 1 4 5 6 7 9 11 100

Up to 100: 8

Up to 100: 9

========================================

From 1,000 to 4,000: 0

========================================

Up to 10,000: 55

Up to 10,000: 56

========================================

Up to 100,000: 55

Up to 100,000: 56

========================================

Up to 1,000,000: 55

Up to 1,000,000: 56

========================================

Up to 10,000,000: ~~391~~

Up to 10,000,000: 392

========================================

Up to 100,000,000: ~~391~~

Up to 100,000,000: 392

========================================

Up to 1,000,000,000: ~~2743~~

Up to 1,000,000,000: 2744

========================================</pre>