From 9a0e65632e16741775ff45743bd7b508b6928b24 Mon Sep 17 00:00:00 2001
From: Dmitriy Gorshenin <dmitriy.gorshenin@gmail.com>
Date: Thu, 12 May 2022 19:07:59 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9A=D0=BE=D0=BD=D0=BA=D0=B0=D1=82=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=D1=86=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Жегалин Михаил/Konkatenatsia.rkt | 7 +++++++
 Жегалин Михаил/README.md         | 8 ++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 Жегалин Михаил/Konkatenatsia.rkt
 create mode 100644 Жегалин Михаил/README.md

diff --git a/Жегалин Михаил/Konkatenatsia.rkt b/Жегалин Михаил/Konkatenatsia.rkt
new file mode 100644
index 0000000..0e800f6
--- /dev/null
+++ b/Жегалин Михаил/Konkatenatsia.rkt	
@@ -0,0 +1,7 @@
+(define (concat li1 li2)
+    (if (empty? li2)
+        li1
+        (concat (append li1 (list (car li2))) (cdr li2))
+    )
+)
+(writeln (concat (list 1 2 3) (list 3 4 5)))
\ No newline at end of file
diff --git a/Жегалин Михаил/README.md b/Жегалин Михаил/README.md
new file mode 100644
index 0000000..523979b
--- /dev/null
+++ b/Жегалин Михаил/README.md	
@@ -0,0 +1,8 @@
+# Конкатенация
+## Ссылка на видеоразбор
+https://youtu.be/UCdiG5nTiFY
+## Код из книги
+    #let rec append l1 l2 = 
+    match l1 with
+    [] -> l2
+    | (h::t) -> h::(append t l2);;
\ No newline at end of file