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

Тюлюбаев Артём/README.md

@@ -0,0 +1,14 @@
+# Ссылки и массивы
+## Ссылка на видеоразбор
+https://www.youtube.com/watch?v=LapJ8pgGTk0
+## Код из книги
+    #let v = make_vect 5 0;;
+    v : int vect = [|0; 0; 0; 0; 0|]
+    #vect_item v 1;;
+    - : int = 0
+    #vect_assign v 1 10;;
+    - : unit = ()
+    #v;;
+    - : int vect = [|0; 10; 0; 0; 0|]
+    #vect_item v 1;;
+    - : int = 10

Тюлюбаев Артём/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))
+   )
+)

Тюлюбаев Артём/base.lisp

@@ -0,0 +1,6 @@
+(setf x (make-array '(3) 
+   :initial-contents '(0 1 2))
+)
+(write x)
+(setf (aref x 1) 23)
+(write x)