Ссылки и массивы

2022-05-12 19:14:58 +03:00
parent 91d7fb3beb
commit 152c726aa3
3 changed files with 31 additions and 0 deletions
--- a/Артём/base+.lisp
+++ b/Артём/base+.lisp
@@ -0,0 +1,11 @@
+(setq a (make-array '(4 3)))
+(dotimes (i 4)
+   (dotimes (j 3)
+      (setf (aref a i j) (list i 'x j '= (* i j)))
+   )
+)
+(dotimes (i 4)
+   (dotimes (j 3)
+      (print (aref a i j))
+   )
+)