simon/ledit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added skeleton Common Lisp package.

Browse source
This commit is contained in:
Simon Brooke 2019-09-12 14:08:26 +01:00
parent 78c15dbed6
commit 95f6c3bdbb
10 changed files with 110 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

33
resources/test-fragments/defun-fact.html Normal file
View file

@ -0,0 +1,33 @@
<!-- in theory this should exactly translate into `defun-fact.lisp`, q.v. -->
<div class="sexpr list">
<var class="sexpr symbol">defun</var>
<var class="sexpr symbol">fact</var>
<div class="sexpr list">
<var class="sexpr symbol">n</var>
</div>
<div class="sexpr list">
<var class="sexpr symbol">cond</var>
<div class="sexpr list">
<div class="sexpr list">
<var class="sexpr symbol">zerop</var>
<var class="sexpr symbol">n</var>
</div>
<code class="sexpr number">1</code>
</div>
<div class="sexpr list">
<var class="sexpr symbol">t</var>
<div class="sexpr list">
<var class="sexpr symbol">*</var>
<var class="sexpr symbol">n</var>
<div class="sexpr list">
<var class="sexpr symbol">fact</var>
<div class="sexpr list">
<var class="sexpr symbol">1-</var>
<var class="sexpr symbol">n</var>
</div>
</div>
</div>
</div>
</div>
</div>

5
resources/test-fragments/defun-fact.lisp Normal file
View file

@ -0,0 +1,5 @@
;; In theory this should exactly translate into `defun-fact.html`, q.v.
(defun fact (n)
(cond ((zerop n) 1)
(t (* n (fact (1- n))))))