Минимизация операций cons

Волынкина Мария/README.md

@@ -0,0 +1,9 @@
+# Минимизация операций cons
+## Ссылка на видеоразбор
+https://youtu.be/BFy0zovZw6Y
+## Код из книги
+	#let rev =
+	let rec reverse acc =
+	fun [] -> acc
+	| (h::t) -> reverse (h::acc) t in
+	reverse [];;

Волынкина Мария/cons-minimization.rkt

@@ -0,0 +1,6 @@
+#lang racket
+(define (rev lst) ; косвенно рекурсивная функция, вызывающая обращение списка
+  (define (reverse acc lst) ; явно рекурсивная функция
+    (if (null? lst) acc
+      (reverse (cons (car lst) acc) (cdr lst))))
+  (reverse '() lst))