Four is the number of letters in the ...: Difference between revisions

Uses the Lingua::EN::Numbers module to generate both cardinal and ordinal numbers. This module places commas in number words between 3-orders-of-magnitude clusters. E.G. <code>12345678.&ordinal</code> becomes: twelve million, three hundred forty-five thousand, six hundred seventy-eighth. Uses a custom 'no-commas' routine to filter them out for accurate character counts. Generates the 'sentence' lazily so only the words needed are ever calculated and reified.

 

 

my $index = 1;

my @sentence = flat 'Four is the number of letters in the first word of this sentence, '.words,

 

sub alpha ( $str ) { $str.subst(/\W/, '', :g).chars }

sub count ( $index ) { @sentence[^$index].join(' ').chars ~ " characters in the sentence, up to and including this word.\n" }