A-M baby

Task/Arrays/Factor/arrays-1.factor

@@ -0,0 +1,7 @@
+{ 1 2 3 }
+{
+  [ "The initial array: " write . ]
+  [ [ 42 1 ] dip set-nth ]
+  [ "Modified array: " write . ]
+  [ "The element we modified: " write [ 1 ] dip nth . ]
+} cleave

Task/Arrays/Factor/arrays-2.factor

@@ -0,0 +1,6 @@
+V{ 1 2 3 }
+{
+  [ "The initial vector: " write . ]
+  [ [ 42 ] dip push ]
+  [ "Modified vector: " write . ]
+} cleave