diff yetilab/vector/vector.yeti @ 265:c7efd12c27c5

Window fixes and tests

--- a/yetilab/vector/vector.yeti	Thu May 23 11:21:30 2013 +0100
+++ b/yetilab/vector/vector.yeti	Thu May 23 13:21:05 2013 +0100
@@ -77,6 +77,14 @@
 resizedTo n v is number -> ~double[] -> ~double[] =
     Arrays#copyOf(v, n);
 
+reversed v is ~double[] -> ~double[] =
+   (len = length (list v);
+    a = new double[len];
+    for [0..len-1] do i:
+        a[len-i-1] := v[i];
+    done;
+    a);
+
 concat vv is list?<~double[]> -> ~double[] =
    (len = sum (map length' vv);
     vout = zeros len;
@@ -106,6 +114,7 @@
     equalUnder,
     slice,
     resizedTo,
+    reversed,
     concat,
 } as {
     zeros is number -> vector,
@@ -125,6 +134,7 @@
     equalUnder is (number -> number -> boolean) -> vector -> vector -> boolean,
     slice is vector -> number -> number -> vector,
     resizedTo is number -> vector -> vector,
+    reversed is vector -> vector,
     concat is list?<vector> -> vector,
 }