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: | Line 596: | ||
$ret = [*] $ret, |@suf.map: { %suffix{$_} } if @suf[0]; |
$ret = [*] $ret, |@suf.map: { %suffix{$_} } if @suf[0]; |
||
$ret = [*] ($ret, * - $fact.chars …^ * < 2) if $fact.chars; |
$ret = [*] ($ret, * - $fact.chars …^ * < 2) if $fact.chars; |
||
$ret.?precise |
$ret.?precise // $ret |
||
} |
} |
||