diff options
Diffstat (limited to '_pastebins/2016-04-05-rpn-macro-setup.md')
-rw-r--r-- | _pastebins/2016-04-05-rpn-macro-setup.md | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/_pastebins/2016-04-05-rpn-macro-setup.md b/_pastebins/2016-04-05-rpn-macro-setup.md deleted file mode 100644 index 25ca6ba..0000000 --- a/_pastebins/2016-04-05-rpn-macro-setup.md +++ /dev/null @@ -1,34 +0,0 @@ ---- - -title: RPN macro setup - -date: 2016-04-05 - -layout: post - -lang: en - -ref: rpn-macro-setup - ---- - -```lisp -(defmacro rpn (body) - (rpn-expander body)) - -(defun rpn-expander (body) - (mapcar (lambda (x) - (if (listp x) - (rpn-expander x) - x)) - (reverse body))) - -(rpn ((2 1 +) 2 *)) -; => 6 - -#| -Just a quick stub. - -One could easily improve #'RPN-EXPANDER in order to better suit one's needs. -|# -``` |