use Perl

optimized for wetware: See http://en.wikipedia.org/wiki/File:Principia_Mathematica_theorem_54-43.png

I was hoping to use zero arity like so:

'pi' => { 3.1415926 }

Perhaps

'sum' => { @stack = [+]@stack; } but WholeStack,

or something along those lines would work.

I have one version here: http://use.perl.org/~amahabal/journal/38583 Thanks to your suggestion, I added 'say' and 'rotate3'. I will try my original idea next, for which I need to go from a name (such as 'double') to a callable object (&double). Not sure yet what I'd do with multis and such, but I will see how far I get.

fREW++ and pmichaud++ have, between them, three versions of the RPN calculator. Here is a fourth, clener in some ways. You can use it as follows:

>  ./perl6 rpn.pl '4 5 9 sqrt + *'
32
> ./perl6 rpn.pl '4 5 9 sqrt rotate3 + *'
35

And here is the code:

I don't know how to do this, but I am sure Patrick or Jonathan can do this quickly... In the code above, there is still repetition: all entries in %op_dispatch_table are nearly identical, differing only depending on the arity. We could replace that with something generic which is passed a sub, it pops as many elements as the arity of the passed sub and pushes back the value of applying the sub to the reverse of this list. I was unable to do this myself because I could not get from the name of the sub to the callable object (I tried &($name), but got a message that it is unimplemented).