diff options
| author | EuAndreh <eu@euandre.org> | 2025-04-30 06:23:27 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2025-04-30 06:33:36 -0300 |
| commit | 61ffa8466bbfa4ca8b13b442a3bd63ef9504a6da (patch) | |
| tree | fc3c799bece509682b712f6e42e2816059c83c7a /src/content/en/pastebins/2016 | |
| parent | Makefile: No need to remove non-generated *.mo files (diff) | |
| download | euandre.org-61ffa8466bbfa4ca8b13b442a3bd63ef9504a6da.tar.gz euandre.org-61ffa8466bbfa4ca8b13b442a3bd63ef9504a6da.tar.xz | |
src/content/en/: Unpluralize collection names
Diffstat (limited to 'src/content/en/pastebins/2016')
| -rw-r--r-- | src/content/en/pastebins/2016/04/05/rpn.adoc | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/content/en/pastebins/2016/04/05/rpn.adoc b/src/content/en/pastebins/2016/04/05/rpn.adoc deleted file mode 100644 index c567d0d..0000000 --- a/src/content/en/pastebins/2016/04/05/rpn.adoc +++ /dev/null @@ -1,23 +0,0 @@ -= 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. -|# ----- |