From 960e4410f76801356ebd42801c914b2910a302a7 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Mon, 18 Nov 2024 08:21:58 -0300 Subject: v0 migration to mkwb --- _pastebins/2016-04-05-rpn-macro-setup.md | 34 -------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 _pastebins/2016-04-05-rpn-macro-setup.md (limited to '_pastebins/2016-04-05-rpn-macro-setup.md') 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. -|# -``` -- cgit v1.2.3