Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 16 lines (12 sloc) 253 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Lingua::EN::Numbers qw(num2en);
my $letters;
foreach my $n ( 1 .. 1000 ) {
my $number = num2en($n);
my @matches = ( $number =~ /[a-z]/g );
$letters += @matches;
}
say $letters;