Select Code to Download

If executed from left-to-right,
4 - 5 + 6 = (4 - 5) + 6 = 5

If executed from right-to-left,
4 - 5 + 6 = 4 - (5 + 6) = -7

If executed from left-to-right,
4 ** 3 ** 2 = (4 ** 3) ** 2 = 4096

If executed from right-to-left,
4 ** 3 ** 2 = 4 ** (3 ** 2) = 262144

sum : sum /[+-]/ NUM
    | NUM

pow : NUM '**' pow
    | NUM

sum : sum '+' NUM { $item[1] + $item[3] }
    | sum '-' NUM { $item[1] - $item[3] }
    | NUM         { $item[1]            }

pow : NUM '**' sum { $item[1] ** $item[3] }
    | NUM          { $item[1]             }

sum : sum /[+-]/ NUM { [ @item[2,1,3] ] }
    | NUM            { [ $item[1]     ] }

pow : NUM '**' pow { [ @item[2,1,3] ] }
    | NUM          { [ $item[1]     ] }

sum  : NUM sum_        { [ $item[1], @{$item[2]} ] }
sum_ : /[+-]/ NUM sum_ { [ $item[1], $item[2], @{$item[3]} ] }
     |                 { [] }

{
   sub eval_sum {
...
sum  : NUM sum_         { eval_sum($item[1], @{$item[2]}) }
sum_ : /[+-]/ NUM sum_  { [ $item[1], $item[2], @{$item[3]} ] }
     |                  { [] }

{
   sub treeify {
...
sum  : NUM sum_         { treeify($item[1], @{$item[2]}) }
sum_ : /[+-]/ NUM sum_  { [ $item[1], $item[2], @{$item[3]} ] }
     |                  { [] }

{
   sub eval_sum {
...
}

sum : <leftop: NUM /[+-]/ NUM> { eval_sum(@{$item[1]}) }

{
   sub treeify {
...
}

sum : <leftop: NUM /[+-]/ NUM> { treeify(@{$item[1]}) }

rule1: token rule2
rule2: token rule3
rule3: token

sum  : NUM sum_[ $item[1] ]
sum_ : '+' NUM sum_[ $arg[0] + $item[2] ]
     | '-' NUM sum_[ $arg[0] - $item[2] ]
     | { $arg[0] }

sum  : NUM sum_[ $item[1] ]
sum_ : '+' NUM sum_[ [ $item[1], $arg[0], $item[2] ] ]
     | '-' NUM sum_[ [ $item[1], $arg[0], $item[2] ] ]
     | { $arg[0] }

pow : NUM '**' pow
    | NUM

pow   : NUM pow_
pow_  : '**' pow
      |

{
   sub eval_pow {
...
pow  : NUM pow_      { eval_pow($item[1], @{$item[2]}) }
pow_ : '**' NUM pow_ { [ $item[1], $item[2], @{$item[3]} ] }
     |               { [] }

{
   sub treeify_r {
...
pow  : NUM pow_      { treeify_r($item[1], @{$item[2]}) }
pow_ : '**' NUM pow_ { [ $item[1], $item[2], @{$item[3]} ] }
     |               { [] }

{
   sub eval_pow {
...
}

pow : <rightop: NUM /(\*\*)/ NUM> { eval_pow(@{$item[1]}) }

{
   sub treeify_r {
...
}

pow : <rightop: NUM /(\*\*)/ NUM> { treeify_r(@{$item[1]}) }

pow : NUM '**' pow { $item[1] ** $item[3] }
    | NUM          { $item[1] }

pow   : NUM pow_
pow_  : '**' pow { <<pow's $item[1]>> ** $item[2] }
      |          { <<pow's $item[1]>> }

pow  : NUM pow_[ $item[1] ]
pow_ : '**' pow { $arg[0] ** $item[2] }
     |          { $arg[0]             }

pow  : NUM pow_[ $item[1] ]
pow_ : '**' pow { [ $item[1], $arg[0], $item[2] ] }
     |          { $arg[0]                         }

Demonstrates left-associativity
4-5+6   =  5  got  5
...
4**3**2   = 262144  got 262144
(4**3)**2 =   4096  got   4096
4**(3**2) = 262144  got 262144

use strict;
use warnings;
...
   my $got = $parser->parse($expr);
   print("$expr = $expected  got $got\n");
}

use strict;
use warnings;
...
   my $got = eval_node($tree);
   print("$expr = $expected  got $got\n");
}