Eban numbers: Difference between revisions
m
→{{header|Perl 6}}: I twiddle because I can...
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Tidy up a bit, demo multi character "bans") |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: I twiddle because I can...) |
||
Line 150:
sub nban ($seq, $n = 'e') { ($seq).map: { next if .&cardinal.contains(any($n.comb)); $_ } }
sub filter ($n, $upto) {
my @ban = flat ((1 .. 99),).map: *.&nban($n);
my @orders = (2 ..
for @orders -> @order {
next unless +@order;
Line 167:
for 'e', 't', 'subur' -> $n {
my
my @bans = filter($n, $upto);
# DISPLAY
Line 176 ⟶ 177:
"{$n}-ban numbers between 1,000 & 4,000: {+@j}\n{@j.gist}\n";
for (1 ..
my $f = @bans.first( * > $e, :k );
printf "Up to %14s: %d\n",comma($e), $f ?? +@bans[^$f] !! +@bans;
|