chore: update sample lisp file (2)

2022-12-11 19:21:26 +08:00 · 2022-12-11 19:21:26 +08:00 · 92cc782c68
parent ec8e8e2c32
commit 92cc782c68
1 changed files with 3 additions and 0 deletions
--- a/sample.lisp
+++ b/sample.lisp
@ -55,3 +55,6 @@
 (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 (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