Лемма 7.4

2022-05-12 19:16:00 +03:00
parent 152c726aa3
commit 231c3491b6
3 changed files with 24 additions and 0 deletions
--- a/Валерия/var1.rkt
+++ 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)))