逆ポーランド記法が使えると便利だな、と この記事を読んだとき 思ったので、Scheme で書いてみた (Gauche で確認。arity があるので移植性は低い)。
(define (rpn . args)
(let body ((stack '())
(args args))
(if (null? args)
(car stack)
(cond ((number? (car args))
(body (cons (car args) stack) (cdr args)))
((equal? (arity (car args)) 1)
(body (cons ((car args) (car stack)) (cdr stack)) (cdr args)))
(else
(body (cons ((car args) (cadr stack) (car stack)) (cddr stack)) (cdr args)))))))
; example.
(display (rpn 1 2 +))
(display "\n")
(display (rpn 1 2 + 3 4 + *))
(display "\n")
(display (rpn 16 2 - 10 2 / remainder))
(display "\n")
(display (rpn 3.141592 2.0 / sin))
(display "\n")
xyzzy とか Emacs の mini buffer で動くとなお良さそうだが、そこまではやっていない。