Numerical and alphabetical suffixes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: extend the precision some more) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: simplify slightly) |
||
Line 596:
$ret = [*] $ret, |@suf.map: { %suffix{$_} } if @suf[0];
$ret = [*] ($ret, * - $fact.chars …^ * < 2) if $fact.chars;
$ret.?precise
}
|