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

Window fixes and tests
author Chris Cannam
date Thu, 23 May 2013 13:21:05 +0100
parents de770971a628
children 0011c9a8c0ec
comparison
equal deleted inserted replaced
264:046a2e323716 265:c7efd12c27c5
75 Arrays#copyOfRange(v, start, end); 75 Arrays#copyOfRange(v, start, end);
76 76
77 resizedTo n v is number -> ~double[] -> ~double[] = 77 resizedTo n v is number -> ~double[] -> ~double[] =
78 Arrays#copyOf(v, n); 78 Arrays#copyOf(v, n);
79 79
80 reversed v is ~double[] -> ~double[] =
81 (len = length (list v);
82 a = new double[len];
83 for [0..len-1] do i:
84 a[len-i-1] := v[i];
85 done;
86 a);
87
80 concat vv is list?<~double[]> -> ~double[] = 88 concat vv is list?<~double[]> -> ~double[] =
81 (len = sum (map length' vv); 89 (len = sum (map length' vv);
82 vout = zeros len; 90 vout = zeros len;
83 var base = 0; 91 var base = 0;
84 for vv do v: 92 for vv do v:
104 at = at', 112 at = at',
105 equal, 113 equal,
106 equalUnder, 114 equalUnder,
107 slice, 115 slice,
108 resizedTo, 116 resizedTo,
117 reversed,
109 concat, 118 concat,
110 } as { 119 } as {
111 zeros is number -> vector, 120 zeros is number -> vector,
112 consts is number -> number -> vector, 121 consts is number -> number -> vector,
113 ones is number -> vector, 122 ones is number -> vector,
123 at is vector -> number -> number, 132 at is vector -> number -> number,
124 equal is vector -> vector -> boolean, 133 equal is vector -> vector -> boolean,
125 equalUnder is (number -> number -> boolean) -> vector -> vector -> boolean, 134 equalUnder is (number -> number -> boolean) -> vector -> vector -> boolean,
126 slice is vector -> number -> number -> vector, 135 slice is vector -> number -> number -> vector,
127 resizedTo is number -> vector -> vector, 136 resizedTo is number -> vector -> vector,
137 reversed is vector -> vector,
128 concat is list?<vector> -> vector, 138 concat is list?<vector> -> vector,
129 } 139 }
130 140
131 141
132 142