Mercurial > hg > jgplsrc

annotate test/gsco.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 NB. s: ------------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 x0=: ' Cogito , ergo sum.'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 y0=: s: x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 y0 -: s: x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 y0 -: _1 s: x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 y0 -: _2 s: 1|.x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 y0 -: _4 s: >;:x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 z0=: ;:x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 (s:^:_1 y0) -: z0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 (1 s: y0) -: ;'`',&.>z0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 (2 s: y0) -: ;z0,&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 (3 s: y0) -: z0,&>((>./ - ]) #&>z0)$&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 (4 s: y0) -: >z0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 (5 s: y0) -: z0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 (, -: _1&s:@(1&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 (, -: _2&s:@(2&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 (] -: _3&s:@(3&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 (] -: _4&s:@(4&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 (] -: _5&s:@(5&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 (] -: _6&s:@(6&s:)) y0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 x1=: ":"0 ?133$12000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 y1=: s: x1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 y0 -: s: x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 y1 -: s: x1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 z1=: (<"1 x1)-.&.>' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 (s:^:_1 y1) -: z1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 (1 s: y1) -: ;'`',&.>z1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 (2 s: y1) -: ;z1,&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 (3 s: y1) -: z1,&>((>./ - ]) #&>z1)$&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 (4 s: y1) -: x1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 (5 s: y1) -: z1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 (, -: _1&s:@(1&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 (, -: _2&s:@(2&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 (] -: _3&s:@(3&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 (] -: _4&s:@(4&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 (] -: _5&s:@(5&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 (] -: _6&s:@(6&s:)) y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 x=: ;:'anaphoric boustrophedonic chthonic epigrammatic metonymic oxymoronic'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 x2=: x,&.>/":&.>?100$150
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 y2=: s: x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 y0 -: s: x0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 y1 -: s: x1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 y2 -: s: x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 (s:^:_1 y2) -: x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 (1 s: y2) -: ;,'`',&.>x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 (2 s: y2) -: ;,x2,&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (3 s: y2) -: x2,&>((>./@, - ]) #&>x2)$&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 (4 s: y2) -: >x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 (5 s: y2) -: x2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (, -: _1&s:@(1&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (, -: _2&s:@(2&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 (] -: _3&s:@(3&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 (] -: _4&s:@(4&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 (] -: _5&s:@(5&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 (] -: _6&s:@(6&s:)) y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 (,1) -: $ s: ' singleton'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 (s: '') -: 0$ s: ' ab c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 NB. s: fill -------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 (,1) -: $ s: ' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 ({.s: ' ') -: {: 5{.s: ' ab c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 0 = 6 s: s: ' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 (2 4$s: ' 0 1 2 3 4 5 ') -: > (s: ' 0 1 2 3'); s: ' 4 5'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 (2 4$s: ' 0 1 2 3 4 5 ') -: s:"1 (<;._1 ' 0 1 2 3'),:<;._1 ' 4 5'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 NB. 0 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 t=: 0 s: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 0 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85 1 <: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 t=: 0 s: 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89 0 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 1 <: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 t=: 0 s: 2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94 2 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 (0 s: 0) <: #t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96 *./ (0<:i) *. i<: 0 s: 1 [ i=: (0 s: 0){.+/"1 (0 1){"1 t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 t=: 0 s: 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99 2 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 (0 s: 1) <: #t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103 t=: 0 s: 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106 (0 s: 0) <: #t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
107 *./ (_1=t) +. (0<:t)*.t<0 s: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
108
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
109 t=: 0 s: 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
110 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
111 0 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
112 (0 <: t) *. (t < 0 s: 0)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
113
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
114 t=: 0 s: 6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
115 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
116 0 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
117 0 <: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
118
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
119 t=: 0 s: 7
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
120 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
121 0 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
122 0 <: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
123
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
124 t=: 0 s: 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
125 32 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
126 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
127 (,8) -: $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
128 t -: 0 s:&.>i.8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
129
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
130 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
131
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
132 t=: 0 s: 12
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
133 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
134 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
135 (,0 s: 0) -: $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
136 *./ 1 <: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
137 (0 s: 0) >: >./t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
138
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
139
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
140 NB. 1 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
141
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
142 x=: (;:'now is the time') ,&.>/ ":&.>?100$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
143 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
144 (;,'`',&.>x) -: 1 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
145 (,y) -: _1 s: ;,'*',&.>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
146
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
147 t=: 1 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
148 2 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
149 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
150 '`' -: {.t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
151
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
152 x=: <"1 ] 97+?31 13 4$26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
153 x=: (?($x)$4){.&.>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
154 (, x{&.><a.) -: 5 s: _1 s: (; 32,&.>x){a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
155
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
156 (0$s: ' a') -: _1 s: ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
157
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
158
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
159 NB. 2 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
160
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
161 x=: (;:'bou stro phe don ic') ,&.>/ ":&.>?2 25$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
162 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
163 (;,x,&.>{.a.) -: 2 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
164 (,y) -: _2 s: ;,x,&.>'*'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
165
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
166 t=: 2 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
167 2 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
168 1 = #$t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
169 ({.a.) -: {:t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
170
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
171 x=: <"1 ] 97+?31 13 4$26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
172 x=: (?($x)$4){.&.>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
173 (, x{&.><a.) -: 5 s: _2 s: (; x,&.>0){a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
174
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
175 (0$s: ' a') -: _2 s: ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
176
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
177
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
178 NB. 3 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
179
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
180 x=: (;:'el eem o syn ary') ,&.>/ ":&.>?2 3 4$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
181 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
182 m=: >./,i=: #&>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
183 (>x,&.>(m-i)$&.>{.a.) -: 3 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
184 y -: _3 s: >x,&.>(m-i)$&.>{.a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
185
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
186 t=: 3 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
187 2 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
188 (($x),m) = $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
189 (>x,&.>(m-i)$&.>{.a.) -: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
190
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
191 x=: <"1 ] 97+?31 13 4$26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
192 x=: (?($x)$4){.&.>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
193 (x{&.><a.) -: 5 s: _3 s: (>x){a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
194
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
195
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
196 NB. 4 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
197
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
198 x=: (;:'el eem o syn ary') ,&.>/ ":&.>?2 3 4$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
199 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
200 (>x) -: 4 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
201 y -: _4 s: >x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
202
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
203 t=: 4 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
204 2 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
205 (($x),>./,#&>x) = $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
206 (>x) -: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
207
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
208 x=: <"1 ] 97+?31 13 4$26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
209 x=: (?($x)$4){.&.>x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
210 (x{&.><a.) -: 5 s: _4 s: >x{&.><a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
211
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
212
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
213 NB. 5 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
214
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
215 x=: (;:'el eem o syn ary') ,&.>/ ":&.>?2 3 4$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
216 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
217 x -: 5 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
218 y -: _5 s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
219
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
220 t=: 5 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
221 32 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
222 ($y) = $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
223 x -: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
224
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
225
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
226 NB. 6 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
227
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
228 x=: (;:'el eem o syn ary') ,&.>/ ":&.>?2 3 4$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
229 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
230
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
231 t =: 6 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
232 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
233 ($y) = $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
234 y -: _6 s: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
235 *./ (0<:t) *.t< 0 s: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
236
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
237
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
238 NB. 7 s: y --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
239
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
240 x=: (;:'el eem o syn ary') ,&.>/ ":&.>?2 3 4$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
241 y=: s: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
242
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
243 t =: 7 s: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
244 4 -: type t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
245 ($y) = $t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
246
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
247
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
248 NB. 10 s: y -------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
249
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
250 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
251
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
252 x=: 0 s: 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
253
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
254 'domain error' -: 10 s: etx ($x)$0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
255 'domain error' -: 10 s: etx ($x)$1 2 3 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
256 'domain error' -: 10 s: etx ($x)$1 2 3.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
257 'domain error' -: 10 s: etx ($x)$1 2 3j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
258 'domain error' -: 10 s: etx ($x)$1 2 3r4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
259 'domain error' -: 10 s: etx ($x)$1 2 3 4x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
260 'domain error' -: 10 s: etx ($x)$' 2 3 4'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
261
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
262 'domain error' -: 10 s: etx }.x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
263 'domain error' -: 10 s: etx }:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
264 'domain error' -: 10 s: etx ,:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
265 'domain error' -: 10 s: etx {.x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
266
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
267 'domain error' -: 10 s: etx x 0}~< 'a'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
268 'domain error' -: 10 s: etx x 0}~< 100002.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
269 'domain error' -: 10 s: etx x 0}~< 100002j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
270 'domain error' -: 10 s: etx x 0}~< 100002r4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
271 'domain error' -: 10 s: etx x 0}~< ({.x),&.>0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
272 'domain error' -: 10 s: etx x 0}~< 1+#>2{x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
273 'domain error' -: 10 s: etx x 0}~< 1+#>4{x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
274 'domain error' -: 10 s: etx x 0}~< _1e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
275
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
276 'domain error' -: 10 s: etx x 1}~< 'a'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
277 'domain error' -: 10 s: etx x 1}~< 100002.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
278 'domain error' -: 10 s: etx x 1}~< 100002j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
279 'domain error' -: 10 s: etx x 1}~< 100002r4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
280 'domain error' -: 10 s: etx x 1}~< (1{x),&.>0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
281 'domain error' -: 10 s: etx x 1}~< 1+#>3{x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
282
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
283 'domain error' -: 10 s: etx x 3}~< 1234
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
284 'domain error' -: 10 s: etx x 3}~< ,:>2{x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
285 'domain error' -: 10 s: etx x 3}~< ($>2{x)$'2'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
286 'domain error' -: 10 s: etx x 3}~< ($>2{x)$2.3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
287 'domain error' -: 10 s: etx x 3}~< ($>2{x)$2j3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
288 'domain error' -: 10 s: etx x 3}~< ($>2{x)$2r3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
289 'domain error' -: 10 s: etx x 3}~< }:"1 >2{x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
290 'domain error' -: 10 s: etx x 3}~< (>2{x),.0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
291
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
292
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
293 NB. s: errors -----------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
294
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
295 'domain error' -: s: etx 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
296 'domain error' -: s: etx 0 1 2 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
297 'domain error' -: s: etx 0 1 2.3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
298 'domain error' -: s: etx 0 1 2j3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
299 'domain error' -: s: etx 0 1 2 3x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
300 'domain error' -: s: etx 0 1 2r3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
301
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
302 'domain error' -: s: etx 'abc';0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
303 'domain error' -: s: etx 'abc';0 1 2 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
304 'domain error' -: s: etx 'abc';0 1 2.3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
305 'domain error' -: s: etx 'abc';0 1 2j3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
306 'domain error' -: s: etx 'abc';0 1 2 3x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
307 'domain error' -: s: etx 'abc';0 1 2r3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
308
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
309 'domain error' -: 77 s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
310 'domain error' -: _39 s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
311 'domain error' -: 'a' s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
312 'domain error' -: 2.3 s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
313 'domain error' -: 2j3 s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
314 'domain error' -: 2r3 s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
315 'domain error' -: (<2)s: etx s: ' a b c'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
316
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
317 'domain error' -: 1 s: etx ' a bc d'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
318 'domain error' -: 2 s: etx ' a bc d'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
319 'domain error' -: 3 s: etx ' a bc d'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
320 'domain error' -: 4 s: etx ' a bc d'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
321 'domain error' -: 5 s: etx ' a bc d'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
322
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
323 'domain error' -: 0 s: etx 413
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
324 'domain error' -: 0 s: etx 4.3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
325 'domain error' -: 0 s: etx 4j3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
326 'domain error' -: 0 s: etx 4r3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
327 'domain error' -: 0 s: etx 'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
328 'domain error' -: _9 s: etx 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
329
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
330 'domain error' -: ex ' 0&s: b. _1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
331 'domain error' -: ex ' 7&s: b. _1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
332 'domain error' -: ex '_7&s: b. _1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
333
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
334 'rank error' -: s: etx 'abc';2 3$'foobar'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
335 'rank error' -: 1 2 s: etx s: ' a bc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
336
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
337
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
338 4!:55 ;:'i m t x x0 x1 x2 y y0 y1 y2 z0 z1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
339
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
340