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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
index.md
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
it, change whatever, make a pull request, ill merge, and your change
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.
<a href="http://killnod2s77o3axkktdu52aqmmy4acisz2gicbhjm4xbvxa2zfftteyd.onion/">Onion</a>
<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>
<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defvar</span> *key*<span style='color:#308080; '>)</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>
<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>
<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:#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:#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>
<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:#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:#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">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>
</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