Is this what you need? From David Lambert's rpn calculator email:
NB. u Monad replaces top of stack with u TOS
Monad =: (@:{:)(]`}:`,`)(`:6)~ Stack
On Friday, June 6, 2014, Linda Alvord <[email protected]
<javascript:_e(%7B%7D,'cvml','[email protected]');>> wrote:
> reciprocal''
>
> |value error: Monad
>
> | reciprocal''
>
> |[-26]
>
>
>
> Dyad
>
> ((((/(]`(_2&}.)`,`[:`))(`(_2&{.)))(`:6))~)Stack
>
>
>
> Monad
>
> |value error: Monad
>
>
>
> Linda
>
>
>
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Sent from Gmail Mobile
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
