diff options
| author | EuAndreh <eu@euandre.org> | 2024-11-18 08:21:58 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-11-18 08:44:57 -0300 |
| commit | 960e4410f76801356ebd42801c914b2910a302a7 (patch) | |
| tree | 615d379416f72956d0c1666c63ce062859041fbe /_pastebins/2016-04-05-rpn-macro-setup.md | |
| parent | Remove jekyll infrastructure setup (diff) | |
| download | euandre.org-960e4410f76801356ebd42801c914b2910a302a7.tar.gz euandre.org-960e4410f76801356ebd42801c914b2910a302a7.tar.xz | |
v0 migration to mkwb
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. -|# -``` |