From 92cc782c68f31772206e43dd995a91fcd6679ac6 Mon Sep 17 00:00:00 2001 From: Eatswap Date: Sun, 11 Dec 2022 19:21:26 +0800 Subject: [PATCH] chore: update sample lisp file (2) --- sample.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/sample.lisp b/sample.lisp index bb2ce73..b009ed9 100644 --- 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