From 231c3491b6575abebb93b1e32d6a0a0314542917 Mon Sep 17 00:00:00 2001 From: Dmitriy Gorshenin Date: Thu, 12 May 2022 19:16:00 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9B=D0=B5=D0=BC=D0=BC=D0=B0=207.4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Фурина Валерия/README.md | 7 +++++++ Фурина Валерия/var1.rkt | 11 +++++++++++ Фурина Валерия/var2.rkt | 6 ++++++ 3 files changed, 24 insertions(+) create mode 100644 Фурина Валерия/README.md create mode 100644 Фурина Валерия/var1.rkt create mode 100644 Фурина Валерия/var2.rkt diff --git a/Фурина Валерия/README.md b/Фурина Валерия/README.md new file mode 100644 index 0000000..2b72b87 --- /dev/null +++ b/Фурина Валерия/README.md @@ -0,0 +1,7 @@ +# Лемма 7.4 +## Комментарии к коду +#### Вариант 1: добавляет пустой список и переворачивает результат. +#### Вариант 2: ничего не переворачивает, как и было в лемме. +## Ссылка на видеоразбор +https://www.youtube.com/watch?v=t_9Jv9RKarY + diff --git a/Фурина Валерия/var1.rkt b/Фурина Валерия/var1.rkt new file mode 100644 index 0000000..8683dc5 --- /dev/null +++ b/Фурина Валерия/var1.rkt @@ -0,0 +1,11 @@ +(define (concat li1 li2) + (if (empty? li2) + li1 + (concat (append li1 (list (car li2))) (cdr li2)) + ) +) + +(define (rev li1 li2) + (reverse (concat li1 li2)) +) +(writeln (rev (list 1 2) (list 3 4))) diff --git a/Фурина Валерия/var2.rkt b/Фурина Валерия/var2.rkt new file mode 100644 index 0000000..1c6d40b --- /dev/null +++ b/Фурина Валерия/var2.rkt @@ -0,0 +1,6 @@ +(define (concat li1 li2) + (if (empty? li2) + li1 + (concat (append li1 (list (car li2))) (cdr li2)) + ) +)