blob: a64ee93d65133df2aa81c684fdc3dc49d14e16aa (
about) (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#
msgid ""
msgstr ""
msgid ""
"(defmacro rpn (body)\n"
" (rpn-expander body))\n"
"\n"
"(defun rpn-expander (body)\n"
" (mapcar (lambda (x)\n"
" (if (listp x)\n"
" (rpn-expander x)\n"
" x))\n"
" (reverse body)))\n"
"\n"
"(rpn ((2 1 +) 2 *))\n"
"; => 6\n"
"\n"
"#|\n"
"Just a quick stub.\n"
"\n"
"One could easily improve #'RPN-EXPANDER in order to better suit one's needs.\n"
"|#\n"
msgstr ""
msgid ""
"title: RPN macro setup\n"
"date: 2016-04-05\n"
"layout: post\n"
"lang: en"
msgstr ""
#~ msgid ""
#~ "title: RPN macro setup\n"
#~ "date: 2016-04-05\n"
#~ "layout: pastebin\n"
#~ "lang: en"
#~ msgstr ""
|
