Numerical and alphabetical suffixes: Difference between revisions

m
→‎{{header|Perl 6}}: simplify slightly
(→‎{{header|Perl 6}}: extend the precision some more)
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 ?? $ret.precise !!// $ret
}
 
10,333

edits