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

chore: update sample lisp file (2)

This commit is contained in:
Eatswap 2022-12-11 19:21:26 +08:00
parent ec8e8e2c32
commit 92cc782c68
Signed by: Eatswap
GPG Key ID: BE661106A1F3FA0B
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
sample.lisp
View File

@ -55,3 +55,6 @@
(defvar arr (make-array 10)) (defvar arr (make-array 10))
(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 10) (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