Initial data commit

Task/Vector/Arturo/vector.arturo

@@ -0,0 +1,37 @@
+define :vector [
+    x y
+][
+    print: -> render "(|this\x|, |this\y|)"   ; prettyprint function
+]
+
+ensureVector: function [block][
+    ensure -> every? @block => [is? :vector &]
+]
+
+vadd: function [a b][
+    ensureVector [a b]
+    to :vector @[a\x + b\x, a\y + b\y]
+]
+
+vsub: function [a b][
+    ensureVector [a b]
+    to :vector @[a\x - b\x, a\y - b\y]
+]
+
+vmul: function [a n][
+    ensureVector [a]
+    to :vector @[a\x * n, a\y * n]
+]
+
+vdiv: function [a n][
+    ensureVector [a]
+    to :vector @[a\x // n, a\y // n]
+]
+
+; test our vector object
+a: to :vector [5 7]
+b: to :vector [2 3]
+print [a '+ b '= vadd a b]
+print [a '- b '= vsub a b]
+print [a '* 11 '= vmul a 11]
+print [a '/ 11 '= vdiv a 2]