From c6d0207fa5a54b9ecb88ceb1c54be1f1c92e7ce1 Mon Sep 17 00:00:00 2001
From: Dmitriy Gorshenin <dmitriy.gorshenin@gmail.com>
Date: Thu, 12 May 2022 19:11:30 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9B=D0=B5=D0=BC=D0=BC=D0=B0=207.6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Павлова Наташа/README.md     |  3 +++
 Павлова Наташа/lemma_7.6.rkt | 22 ++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 Павлова Наташа/README.md
 create mode 100644 Павлова Наташа/lemma_7.6.rkt

diff --git a/Павлова Наташа/README.md b/Павлова Наташа/README.md
new file mode 100644
index 0000000..472aecf
--- /dev/null
+++ b/Павлова Наташа/README.md	
@@ -0,0 +1,3 @@
+# Лемма 7.6
+## Ссылка на видеоразбор
+https://youtu.be/8mOFRUgdmZU
\ No newline at end of file
diff --git a/Павлова Наташа/lemma_7.6.rkt b/Павлова Наташа/lemma_7.6.rkt
new file mode 100644
index 0000000..ee0ca27
--- /dev/null
+++ b/Павлова Наташа/lemma_7.6.rkt	
@@ -0,0 +1,22 @@
+#lang racket
+
+(define (rev lst)
+  (if (null? lst);ф-я принимает пустой список
+      lst;возвращает пустой список
+      (if (= 1 (length lst));ф-я принимает список из 1 элемента
+          lst; возвращает  список из 1 элемента
+          ;в списке можно выделить голову и хвост
+          (append (rev (cdr lst)); запускаем rev для хвоста (cdr - хвост)
+                      (list(car lst));возвращаем голову (car - голова)
+           )
+      )
+  )
+)
+
+(writeln(rev(rev '(1 2 3 4))))
+
+
+
+
+
+