Mercurial > hg > may
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 |