Data commit

Task/Deepcopy/PicoLisp/deepcopy-1.l

@@ -0,0 +1 @@
+(mapcar copy List)

Task/Deepcopy/PicoLisp/deepcopy-2.l

@@ -0,0 +1,4 @@
+(de deepCopy (X)
+   (if (atom X)
+      X
+      (cons (deepCopy (car X)) (deepCopy (cdr X))) ) )

Task/Deepcopy/PicoLisp/deepcopy-3.l

@@ -0,0 +1,25 @@
+: (setq A '((a . b) (c d e) f g . e))
+-> ((a . b) (c d e) f g . e)
+
+: (setq B (deepCopy A))
+-> ((a . b) (c d e) f g . e)
+
+: A
+-> ((a . b) (c d e) f g . e)
+
+: B
+-> ((a . b) (c d e) f g . e)
+
+: (= A B)
+-> T              # A and its copy B are structure-equal
+: (== A B)
+-> NIL            # but they are not identical (pointer-equal)
+
+: (cadr A)
+-> (c d e)
+
+: (cadr B)
+-> (c d e)
+
+: (== (cadr A) (cadr B))
+-> NIL            # The same holds for sub-structures

Task/Deepcopy/PicoLisp/deepcopy-4.l

@@ -0,0 +1,11 @@
+(de deepCopy (X)
+   (let Mark NIL
+      (recur (X)
+         (cond
+            ((atom X) X)
+            ((asoq X Mark) (cdr @))
+            (T
+               (prog1 (cons)
+                  (push 'Mark (cons X @))
+                  (set @ (recurse (car X)))
+                  (con @ (recurse (cdr X))) ) ) ) ) ) )

Task/Deepcopy/PicoLisp/deepcopy-5.l

@@ -0,0 +1,12 @@
+: (setq A '(a b .)  B (deepCopy A))
+-> (a b .)
+: A
+-> (a b .)
+: B
+-> (a b .)
+
+: (= A B)
+-> T              # A and its copy B are structure-equal
+
+: (== A B)
+-> NIL            # but they are not identical (pointer-equal)