Лемма 7.4

Фурина Валерия/README.md

@@ -0,0 +1,7 @@
+# Лемма 7.4
+## Комментарии к коду
+#### Вариант 1: добавляет пустой список и переворачивает результат.
+#### Вариант 2: ничего не переворачивает, как и было в лемме.
+## Ссылка на видеоразбор
+https://www.youtube.com/watch?v=t_9Jv9RKarY
+

Фурина Валерия/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)))

Фурина Валерия/var2.rkt

@@ -0,0 +1,6 @@
+(define (concat li1 li2)
+    (if (empty? li2)
+        li1
+        (concat (append li1 (list (car li2))) (cdr li2))
+    )
+)