Eatswap
/
DragonLisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: more, more strange lisp sample

This commit is contained in:
Eatswap 2022-12-11 20:05:57 +08:00
parent 159a28c9fb
commit 60b3da0087
Signed by: Eatswap
GPG Key ID: BE661106A1F3FA0B
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sample.lisp
View File

@ -6,11 +6,11 @@
(defconstant xconst (= (and 3 6 9) (or 9 6 3))) ;; xconst is T (defconstant xconst (= (and 3 6 9) (or 9 6 3))) ;; xconst is T
(print xconst) (print xconst)
(print (pRiNt
(>= (max 4 5 8 2 1 9) (min 3843 29 72 222)) (>= (max 4 5 8 2 1 9) (min 3843 29 72 222))
); => NIL ); => NIL
(print (not (PrInT (not
(>= (max 4 5 8 2 1 9) (min 3843 29 72 222)) (>= (max 4 5 8 2 1 9) (min 3843 29 72 222))
)); => T )); => T
@ -20,7 +20,7 @@
) ; x <- 1033 ) ; x <- 1033
( (
defun fibonacci (x) DeFuN fibonacci (x)
"This function calculates fibonacci numbers." "This function calculates fibonacci numbers."
( (
if (<= x 1) if (<= x 1)
@ -57,5 +57,5 @@
(loop for i from 0 to 9 do (setf (aref arr i) i)) (loop for i from 0 to 9 do (setf (aref arr i) i))
(loop for i from 0 to 9 do (print (aref arr i))) ; prints 0 1 2 3 4 5 6 7 8 9 (loop for i from 0 to 9 do (print (aref arr i))) ; prints 0 1 2 3 4 5 6 7 8 9
(dotimes (i (+ 99999 -99989)) (print i) (setf (aref arr i) (* i i i))) ; prints 0 1 2 3 4 5 6 7 8 9 (DoTiMeS (i (+ 99999 -99989)) (print i) (setf (aref arr i) (* i i i))) ; prints 0 1 2 3 4 5 6 7 8 9
(dotimes (i 10) (print (aref arr i))) ; prints 0 1 8 27 64 125 216 343 512 729 (dOtImEs (i 10) (print (aref arr i))) ; prints 0 1 8 27 64 125 216 343 512 729