Лемма 7.6

Павлова Наташа/README.md

@@ -0,0 +1,3 @@
+# Лемма 7.6
+## Ссылка на видеоразбор
+https://youtu.be/8mOFRUgdmZU

Павлова Наташа/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))))
+
+
+
+
+
+