Cleaned common lisp code in index and fixed email address

This commit is contained in:
qorg11 2020-05-29 08:59:45 +02:00
parent 0a36af2084
commit 55c0f48da8
No known key found for this signature in database
GPG Key ID: 343FC20A4ACA62B9
1 changed files with 11 additions and 19 deletions

View File

@ -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">&quot;Beginning system reset.....&quot;</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">&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>
<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; '>&lt;=</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