Numerical and alphabetical suffixes: Difference between revisions
Numerical and alphabetical suffixes (view source)
Revision as of 01:15, 2 November 2018
, 5 years ago→{{header|Perl 6}}: extend the precision some more
(→{{header|Factor}}: add EBNF solution) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: extend the precision some more) |
||
Line 552:
Note: I am blatantly and deliberately ignoring the task guidelines for formatting the output. It has no bearing on the core of the task. If you really, ''really'','' '''REALLY''' ''want to see badly formatted output, uncomment the last line.
<lang perl6>
my $googol = 10**100;
«PAIRs 2 SCOres 20 DOZens 12 GRoss 144 GREATGRoss 1728 GOOGOLs $googol»
~~ m:g/ ((<.:Lu>+) <.:Ll>*) \s+ (\S+) /;
Line 564 ⟶ 566:
my %suffix = flat %abr,
(<K M G T P E Z Y X W V U>».fc
(<Ki Mi Gi Ti Pi Ei Zi Yi Xi Wi Vi Ui>».fc Z=> (1024, * * 1024 … *));
Line 571 ⟶ 573:
sub comma ($i is copy) {
my $s = $i < 0 ?? '-' !! '';
my ($whole, $frac) = $i.
$s ~ $whole.abs.flip.comb(3).join(',').flip ~ $frac
}
Line 594 ⟶ 596:
$ret = [*] $ret, |@suf.map: { %suffix{$_} } if @suf[0];
$ret = [*] ($ret, * - $fact.chars …^ * < 2) if $fact.chars;
$ret.?precise ?? $ret.precise !! $ret
}
Line 610 ⟶ 612:
# Task required stupid layout
# say "\n
{{out}}
<pre> 2greatGRo: 3,456
Line 627 ⟶ 629:
2.5123e-00002Gi: 26,975,615.844352
+.25123E-7Ei: 28,964,846,960.237816578048
-.25123e-34Vikki: -33,394.
2e-77gooGols: 200,000,000,000,000,000,000,000
9!: 362,880
Line 638 ⟶ 640:
9!!!!!!!!: 9
9!!!!!!!!!: 9
.
=={{header|REXX}}==
| |||