aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorqorg11 <qorg@vxempire.xyz>2021-12-19 13:40:17 +0100
committerqorg11 <qorg@vxempire.xyz>2021-12-19 13:40:17 +0100
commit888623da7bc64a7cf042f5ade2780a466c4203ee (patch)
tree30a15abc028b736f719b3de3084d8929a01b5441
parentba67c2776772b9a3e555802ab91a895455e4d691 (diff)
downloadkill9-888623da7bc64a7cf042f5ade2780a466c4203ee.tar.gz
kill9-888623da7bc64a7cf042f5ade2780a466c4203ee.zip
Index code uses pandoc syntax highlighter instead of inline css
-rw-r--r--index.md23
1 files changed, 12 insertions, 11 deletions
diff --git a/index.md b/index.md
index 7a71e72..df59e54 100644
--- a/index.md
+++ b/index.md
@@ -63,21 +63,22 @@ typos" to a whole new article. Anyways, I hope it helps you.
![](/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>
-<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>
+~~~{.commonlisp}
-<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>
-<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>
- <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>
- 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>
- <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>
+(defconstant NUMBER_OF_PEOPLE 10)
+(defvar *i* 0)
-</pre>
+(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
+ (rewrite (memory *i*))
+ (defparameter *i* (1+ *i*))))
+~~~
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