RepoMirrors
/
kill9
mirror of git://git.qorg11.net/kill9.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Index code uses pandoc syntax highlighter instead of inline css

This commit is contained in:
qorg11 2021-12-19 13:40:17 +01:00
parent ba67c27767
commit 888623da7b
No known key found for this signature in database
GPG Key ID: 343FC20A4ACA62B9
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
index.md
View File

@ -63,21 +63,22 @@ typos" to a whole new article. Anyways, I hope it helps you.
![](/satania.png) ![](/satania.png)
<pre style="color:#000000; font-size:10pt; font-family:'Courier New',monospace;"><span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defconstant</span> NUMBER_OF_PEOPLE <span style="color:#b07e00">10</span><span style="color:#000000">)</span> ~~~{.commonlisp}
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defvar</span> <span style="color:#000000">*</span>i<span style="color:#000000">*</span> <span style="color:#b07e00">0</span><span style="color:#000000">)</span>
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defun</span> <span style="color:#0057ae">rewrite</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">n</span><span style="color:#000000">)</span> n<span style="color:#000000">)</span>
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defun</span> <span style="color:#0057ae">memory</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">n</span><span style="color:#000000">)</span> n<span style="color:#000000">)</span>
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">format</span> t <span style="color:#bf0303">&quot;Beginning system reset.....&quot;</span><span style="color:#000000">)</span> (defconstant NUMBER_OF_PEOPLE 10)
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">if</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">y-or-n-p</span> <span style="color:#bf0303">&quot;ALL RESET?&quot;</span><span style="color:#000000">)</span> (defvar *i* 0)
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">loop</span> while <span style="color:#000000">(&lt;= *</span>i<span style="color:#000000">*</span> NUMBER_OF_PEOPLE<span style="color:#000000">)</span>
(defun rewrite (n) n)
(defun memory (n) n)
(format t "Beginning system reset.....")
(if (y-or-n-p "ALL RESET?")
(loop while (<= *i* NUMBER_OF_PEOPLE)
do do
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">rewrite</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">memory</span> <span style="color:#000000">*</span>i<span style="color:#000000">*))</span> (rewrite (memory *i*))
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defparameter</span> <span style="color:#000000">*</span>i<span style="color:#000000">* (</span><span style="color:#000000; font-weight:bold">1</span><span style="color:#000000">+ *</span>i<span style="color:#000000">*))))</span> (defparameter *i* (1+ *i*))))
~~~
</pre>
car car car car cdr cdr cdr cdr car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car car car car cdr cdr cdr cdr car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply