From 61ffa8466bbfa4ca8b13b442a3bd63ef9504a6da Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Wed, 30 Apr 2025 06:23:27 -0300 Subject: src/content/en/: Unpluralize collection names --- src/content/en/pastebin/2016/04/05/rpn.adoc | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 src/content/en/pastebin/2016/04/05/rpn.adoc (limited to 'src/content/en/pastebin/2016') diff --git a/src/content/en/pastebin/2016/04/05/rpn.adoc b/src/content/en/pastebin/2016/04/05/rpn.adoc new file mode 100644 index 0000000..c567d0d --- /dev/null +++ b/src/content/en/pastebin/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. +|# +---- -- cgit v1.2.3