in reply to Adding 2 + 2

Stack machine! 
my @stack;
my $acc = 0;

sub PUSH() { push(@stack, $acc); }
sub POP()  { pop(@stack);        }
sub INC()  { $acc++;             }
sub ADD()  { $acc += POP;        }

INC;
INC;
PUSH;
ADD;

print($acc, "\n");

[download]

Replies are listed 'Best First'.
Re^2: Adding 2 + 2 (stack machine,bug fix)
by ikegami (Patriarch) on Apr 21, 2008 at 19:12 UTC
    The parent assumed the accumulator was initially zero. That's not likely in a real-life scenario, so this removes the assumption: 
    my @stack;
my $acc = rand;

sub PUSH() { push(@stack, $acc); }
sub POP()  { pop(@stack);        }
sub INC()  { $acc++;             }
sub ADD()  { $acc += POP;        }
sub SUB()  { $acc -= POP;        }

PUSH;
SUB;
INC;
INC;
PUSH;
ADD;

print("$acc\n");

    [download]
[reply]
[d/l]

In Section Cool Uses for Perl