mirror of git://git.qorg11.net/kill9.git
Cleaned common lisp code in index and fixed email address
This commit is contained in:
parent
0a36af2084
commit
55c0f48da8
30
index.md
30
index.md
|
@ -15,35 +15,27 @@ Any article in this website is WIP. And they will always be WIP.
|
||||||
Go to the [GitLab repository](https://gitlab.com/qorg11/kill9), fork
|
Go to the [GitLab repository](https://gitlab.com/qorg11/kill9), fork
|
||||||
it, change whatever, make a pull request, ill merge, and your change
|
it, change whatever, make a pull request, ill merge, and your change
|
||||||
will appear here. If you don't want to use Git,
|
will appear here. If you don't want to use Git,
|
||||||
[email](mailto:qorg[@)vxempire.xyz) me a diff and I'll patch the
|
[email](mailto:qorg\[@\)vxempire.xyz) me a diff and I'll patch the
|
||||||
file. Atribution will be given if wanted.
|
file. Atribution will be given if wanted.
|
||||||
|
|
||||||
<a href="http://killnod2s77o3axkktdu52aqmmy4acisz2gicbhjm4xbvxa2zfftteyd.onion/">Onion</a>
|
<a href="http://killnod2s77o3axkktdu52aqmmy4acisz2gicbhjm4xbvxa2zfftteyd.onion/">Onion</a>
|
||||||
|
|
||||||
<img src="/satania.jpg" width=500>
|
<img src="/satania.jpg" width=500>
|
||||||
|
|
||||||
<pre style='color:#000020;'><span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defconstant</span> NUMBER_OF_PEOPLE <span style='color:#008c00; '>10</span><span style='color:#308080; '>)</span>
|
<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:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defvar</span> *key*<span style='color:#308080; '>)</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>
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defvar</span> *i* <span style='color:#008c00; '>0</span><span style='color:#308080; '>)</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:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defun</span> rewrite <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>n</span><span style='color:#308080; '>)</span> n<span style='color:#308080; '>)</span> <span style='color:#595979; '>;; idk what's this</span>
|
<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">format</span> t <span style="color:#bf0303">"Beginning system reset....."</span><span style="color:#000000">)</span>
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defun</span> memory <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>n</span><span style='color:#308080; '>)</span> n<span style='color:#308080; '>)</span> <span style='color:#595979; '>;; so it don't do anything</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">"ALL RESET?"</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">(<= *</span>i<span style="color:#000000">*</span> NUMBER_OF_PEOPLE<span style="color:#000000">)</span>
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>princ</span> <span style='color:#1060b6; '>"Beginning System Reset....."</span><span style='color:#308080; '>)</span>
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>terpri</span><span style='color:#308080; '>)</span>
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>princ</span> <span style='color:#1060b6; '>"ALL RESET? y/n"</span><span style='color:#308080; '>)</span>
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>terpri</span><span style='color:#308080; '>)</span>
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>setq</span> *key* <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>read</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span>
|
|
||||||
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>if</span> <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>string-equal</span> *key* <span style='color:#1060b6; '>"y"</span><span style='color:#308080; '>)</span>
|
|
||||||
|
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>loop</span> while <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '><=</span> *i* NUMBER_OF_PEOPLE<span style='color:#308080; '>)</span>
|
|
||||||
do
|
do
|
||||||
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>rewrite</span> <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>memory</span> *i*<span style='color:#308080; '>)</span><span style='color:#308080; '>)</span>
|
<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:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defparameter</span> *i* <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>+</span> *i* <span style='color:#008c00; '>1</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</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>
|
||||||
|
|
||||||
</pre>
|
</pre>
|
||||||
<!--Created using ToHtml.com on 2020-05-06 13:14:17 UTC -->
|
|
||||||
|
|
||||||
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
|
||||||
|
|
Loading…
Reference in New Issue