Data update

Task/Deepcopy/Ada/deepcopy.adb

@@ -0,0 +1,16 @@
+with Ada.Containers.Doubly_Linked_Lists;
+with Ada.Text_IO;
+
+procedure Deepcopy is
+   package List is new Ada.Containers.Doubly_Linked_Lists (Integer);
+   L1, L2 : List.List;
+begin
+   L1 := List.Empty_List;
+   L1.Append (1);
+   L1.Append (2);
+   L2 := L1;
+   L2.Append (3);
+
+   Ada.Text_IO.Put_Line
+     ("L1.Length = " & L1.Length'Image & " L2.Length = " & L2.Length'Image);
+end Deepcopy;

Task/Deepcopy/Pluto/deepcopy.pluto

@@ -0,0 +1,12 @@
+local t = {
+    a = {
+        b = {
+            c = {}
+        }
+    }
+}
+local t1 = t:clone(1)
+assert(t1.a == t.a)      -- depth 1 does not copy nested tables
+local t2 = t:clone(2)
+assert(t2.a != t.a)      -- 'a' is cloned
+assert(t2.a.b == t.a.b)  -- but 'b' is shared

Task/Deepcopy/R/deepcopy.r

@@ -0,0 +1,5 @@
+a <- list(matrix(1:4, 2, 2), women, list(month.abb, pi), exp)
+b <- a
+b[[3]][[2]][1] <- 3.2
+print(a)
+print(b)