Конкатенация

Жегалин Михаил/Konkatenatsia.rkt

@@ -0,0 +1,7 @@
+(define (concat li1 li2)
+    (if (empty? li2)
+        li1
+        (concat (append li1 (list (car li2))) (cdr li2))
+    )
+)
+(writeln (concat (list 1 2 3) (list 3 4 5)))

Жегалин Михаил/README.md

@@ -0,0 +1,8 @@
+# Конкатенация
+## Ссылка на видеоразбор
+https://youtu.be/UCdiG5nTiFY
+## Код из книги
+    #let rec append l1 l2 = 
+    match l1 with
+    [] -> l2
+    | (h::t) -> h::(append t l2);;