From 152c726aa35b99830a98d7b7dff57036c2901eaa Mon Sep 17 00:00:00 2001
From: Dmitriy Gorshenin <dmitriy.gorshenin@gmail.com>
Date: Thu, 12 May 2022 19:14:58 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A1=D1=81=D1=8B=D0=BB=D0=BA=D0=B8=20=D0=B8?=
 =?UTF-8?q?=20=D0=BC=D0=B0=D1=81=D1=81=D0=B8=D0=B2=D1=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Тюлюбаев Артём/README.md  | 14 ++++++++++++++
 Тюлюбаев Артём/base+.lisp | 11 +++++++++++
 Тюлюбаев Артём/base.lisp  |  6 ++++++
 3 files changed, 31 insertions(+)
 create mode 100644 Тюлюбаев Артём/README.md
 create mode 100644 Тюлюбаев Артём/base+.lisp
 create mode 100644 Тюлюбаев Артём/base.lisp

diff --git a/Тюлюбаев Артём/README.md b/Тюлюбаев Артём/README.md
new file mode 100644
index 0000000..fb419ed
--- /dev/null
+++ b/Тюлюбаев Артём/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
\ No newline at end of file
diff --git a/Тюлюбаев Артём/base+.lisp b/Тюлюбаев Артём/base+.lisp
new file mode 100644
index 0000000..2f66f39
--- /dev/null
+++ 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))
+   )
+)
\ No newline at end of file
diff --git a/Тюлюбаев Артём/base.lisp b/Тюлюбаев Артём/base.lisp
new file mode 100644
index 0000000..fc99fc3
--- /dev/null
+++ b/Тюлюбаев Артём/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)
\ No newline at end of file