hjp
/
rpn
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of ssh://hrunkner.hjp.at//home/hjp/wrk/rpn 

Conflicts:
	rpn
resolved trivial conflicts.
This commit is contained in:
Peter J. Holzer 2013-09-29 14:23:25 +02:00
parent 9d590f521c 4e77d495e7
commit 0f0027d73c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rpn
View File

@ -3,14 +3,16 @@ use warnings;
use strict; use strict;
use Term::ANSIColor; use Term::ANSIColor;
use Math::Trig ':pi'; use Math::Trig ':pi';
use Scalar::Util qw(looks_like_number);
my @stack; my @stack;
my $input_color = 'red'; my $input_color = 'red';
my $stack_color = 'blue'; my $stack_color = 'blue';
my $format;
print color $input_color; print color $input_color;
while (<>) { while (<>) {
for (split) { for (split) {
if (m{^[-+*/]|\*\*$}) { if (m{^([-+*/%]|\*\*)$}) {
my $y = pop @stack; my $y = pop @stack;
my $x = pop @stack; my $x = pop @stack;
my $z = eval "$x $_ $y"; my $z = eval "$x $_ $y";
@ -47,13 +49,20 @@ while (<>) {
} elsif (m{^0[0-7]+$}) { } elsif (m{^0[0-7]+$}) {
no warnings 'portable'; no warnings 'portable';
push @stack, oct($_); push @stack, oct($_);
} elsif (m{^format$}) {
$format = pop @stack;
} else { } else {
push @stack, $_; push @stack, $_;
} }
} }
for (@stack) { for (@stack) {
print color $stack_color; print color $stack_color;
print "$_\n"; if ($format && looks_like_number($_)) {
printf($format, $_);
print "\n";
} else {
print "$_\n";
}
} }
print color $input_color; print color $input_color;
} }