in reply to (Golf) Reversing RPN Notation
I decided to tackle the problem of associativity, and came up with this solution, at 171 characters in the body of the sub:
It's pretty ugly. :/ I hope someone will provide a more elegant solution!%o = ('+' => 1, '-' => 1, '*' => 2, '/' => 2, ); %a = ('-' => 1, '/' => 1, ); sub rpn2ltr { for$i(@r=@_){if($p=$o{$i}){$r=$p>($r=pop)->[0]||($p==$r-> [0]&&$a{$i})?"($r->[1])":$r->[1];$l=$p>($l=pop)->[0]?"($l->[ 1])":$l->[1]}push@_,[$p||9,$p?"$l $i $r":$i]}$_[-1][1] }
|
---|