diff options
| author | EuAndreh <eu@euandre.org> | 2025-04-18 02:17:12 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2025-04-18 02:48:42 -0300 |
| commit | 020c1e77489b772f854bb3288b9c8d2818a6bf9d (patch) | |
| tree | 142aec725a52162a446ea7d947cb4347c9d573c9 /src/content/en/pastebins/2016 | |
| parent | Makefile: Remove security.txt.gz (diff) | |
| download | euandre.org-020c1e77489b772f854bb3288b9c8d2818a6bf9d.tar.gz euandre.org-020c1e77489b772f854bb3288b9c8d2818a6bf9d.tar.xz | |
git mv src/content/* src/content/en/
Diffstat (limited to 'src/content/en/pastebins/2016')
| -rw-r--r-- | src/content/en/pastebins/2016/04/05/rpn.adoc | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/content/en/pastebins/2016/04/05/rpn.adoc b/src/content/en/pastebins/2016/04/05/rpn.adoc new file mode 100644 index 0000000..c567d0d --- /dev/null +++ b/src/content/en/pastebins/2016/04/05/rpn.adoc @@ -0,0 +1,23 @@ += RPN macro setup + +[source,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. +|# +---- |