Numerical and alphabetical suffixes: Difference between revisions
Numerical and alphabetical suffixes (view source)
Revision as of 12:35, 28 October 2018
, 5 years ago→{{header|Perl 6}}: wording, whitespace and style tweaks
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Handle input numbers with commas correctly, add a demo of mixing named and factorial suffixes) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: wording, whitespace and style tweaks) |
||
Line 138:
=={{header|Perl 6}}==
{{works with|Rakudo|2018.09}}
Scientific notation, while supported in Perl 6, is limited to IEE-752 64bit accuracy so there is some rounding on values using it. It would certainly be possible to implement a custom high accuracy conversion routine but I can't really see the point since unfortunately, this routine is of limited use for practical everyday purposes. It focuses on handling excessively large and archaic units (googol, greatgross) and completely ignores or makes unusable (due to forcing case insensitivity) many common current ones: c(centi), m(milli), μ(micro). Ah well.
<lang perl6><PAIRs 2 SCOres 20 DOZens 12 GRoss 144 GREATGRoss 1728
GOOGOLs 1e100> ~~ m:g/ ((<.:Lu>+) <.:Ll>*) \s+ (\S+) /;
my %abr = |$/.map: {
my $abbrv =
my $mag = +
|map { $abbrv.substr( 0, $_ ) => $mag },
}
my %suffix = flat %abr,
(<K M G T P E Z Y X W V U>».fc Z=> (1000, * * 1000 … *)),
(<Ki Mi Gi Ti Pi Ei Zi Yi Xi Wi Vi Ui>».fc Z=> (1024, * * 1024 … *));
my $reg = %suffix.keys
sub comma ($i is copy) {
my $s = $i < 0 ?? '-' !! '';
my $whole = $i.abs.floor;
my $frac = $i.abs - $whole ?? '.' ~ $i.abs.split('.')[1] !! '';
$s ~ $whole.flip.comb(3).join(',').flip ~ $frac
}
Line 167 ⟶ 165:
sub units (Str $str) {
$str.fc ~~ /^(.+?)(<alpha>*)('!'*)$/;
my ($val, $unit, $fact) = $0, $1.Str.fc, $2.Str;
$val.=subst(',', '', :g);
my @suf = $unit;
Line 175 ⟶ 173:
}
my $ret = $val<>;
$ret = [*] $ret, |@suf.map: { %suffix{$_} } if @suf[0]
$ret
}
printf "%16s: %s\n", $_, comma .&units for <
>;</lang>
{{out}}
<pre> 2greatGRo: 3,456
|