Mercurial > hg > jgplsrc

comparison test/gsp0.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
comparison
equal deleted inserted replaced
-1:000000000000 0:e0bbaa717f41
1 NB. < -------------------------------------------------------------------
2
3 (scheck <. $.x), (<. -: <.&.$.) x=: _10+? 405$2
4 (scheck <. $.x), (<. -: <.&.$.) x=: _10+? 3 4 5$21
5 (scheck <. $.x), (<. -: <.&.$.) x=: o._10+? 3 4 5$21
6 (scheck <. $.x), (<. -: <.&.$.) x=:j./o._10+?2 3 4 5$21
7
8 0 -: 3 $. <. $. 0 1 0
9 0 -: 3 $. <. $. 2 3 4
10 0 -: 3 $. <. $. 2 3.4
11 0 -: 3 $. <. $. 2 3j4
12
13 f=: 4 : '(scheck t) *. (p<q) -: t=: ((2;x)$.p) < (2;y)$.q'
14
15 p=: ?2 4 5 3$2
16 q=: ?2 4 5 3$2
17 c=: ; (i.1+r) <"1@comb&.>r=:#$p
18 f&>/~c
19
20 p=: ?2 4 5 3$4
21 q=: ?2 4 5 3$4
22 c=: ; (i.1+r) <"1@comb&.>r=:#$p
23 f&>/~c
24
25 p=: o.?2 4 5 3$4
26 q=: o.?2 4 5 3$4
27 c=: ; (i.1+r) <"1@comb&.>r=:#$p
28 f&>/~c
29
30 'domain error' -: 1 2 < etx $. 3j4 5
31
32
33 NB. <. ------------------------------------------------------------------
34
35 (scheck <. $.x), (<. -: <.&.$.) x=: _10+? 405$2
36 (scheck <. $.x), (<. -: <.&.$.) x=: _10+? 3 4 5$21
37 (scheck <. $.x), (<. -: <.&.$.) x=: o._10+? 3 4 5$21
38 (scheck <. $.x), (<. -: <.&.$.) x=:j./o._10+?2 3 4 5$21
39
40 0 -: 3 $. <. $. 0 1 0
41 0 -: 3 $. <. $. 2 3 4
42 0 -: 3 $. <. $. 2 3.4
43 0 -: 3 $. <. $. 2 3j4
44
45 f=: 4 : '(scheck t) *. (p<.q) -: t=: ((2;x)$.p) <. (2;y)$.q'
46
47 p=: ?2 4 5 3$2
48 q=: ?2 4 5 3$2
49 c=: ; (i.1+r) <"1@comb&.>r=:#$p
50 f&>/~c
51
52 p=: ?2 4 5 3$4
53 q=: ?2 4 5 3$4
54 c=: ; (i.1+r) <"1@comb&.>r=:#$p
55 f&>/~c
56
57 p=: o.?2 4 5 3$4
58 q=: o.?2 4 5 3$4
59 c=: ; (i.1+r) <"1@comb&.>r=:#$p
60 f&>/~c
61
62 'domain error' -: 1 2 <. etx $. 3j4 5
63
64
65 NB. <: ------------------------------------------------------------------
66
67 (scheck <: $.x), (<: -: <:&.$.) x=: _10+? 405$2
68 (scheck <: $.x), (<: -: <:&.$.) x=: _10+? 3 4 5$21
69 (scheck <: $.x), (<: -: <:&.$.) x=: o._10+? 3 4 5$21
70 (scheck <: $.x), (<: -: <:&.$.) x=:j./o._10+?2 3 4 5$21
71
72 (scheck <: $.x), (<: -: <:&.$.) x=: (_10+?60$21),<.-2^31
73
74 _1 -: 3 $. <: $. 0 1 0
75 _1 -: 3 $. <: $. 2 3 4
76 _1 -: 3 $. <: $. 2 3.4
77 _1 -: 3 $. <: $. 2 3j4
78
79 f=: 4 : '(scheck t) *. (p<:q) -: t=: ((2;x)$.p) <: (2;y)$.q'
80
81 p=: ?2 4 5 3$2
82 q=: ?2 4 5 3$2
83 c=: ; (i.1+r) <"1@comb&.>r=:#$p
84 f&>/~c
85
86 p=: ?2 4 5 3$4
87 q=: ?2 4 5 3$4
88 c=: ; (i.1+r) <"1@comb&.>r=:#$p
89 f&>/~c
90
91 p=: o.?2 4 5 3$4
92 q=: o.?2 4 5 3$4
93 c=: ; (i.1+r) <"1@comb&.>r=:#$p
94 f&>/~c
95
96 'domain error' -: 1 2 <: etx $. 3j4 5
97
98
99 NB. > -------------------------------------------------------------------
100
101 f=: 4 : '(scheck t) *. (p>q) -: t=: ((2;x)$.p) > (2;y)$.q'
102
103 p=: ?2 4 5 3$2
104 q=: ?2 4 5 3$2
105 c=: ; (i.1+r) <"1@comb&.>r=:#$p
106 f&>/~c
107
108 p=: ?2 4 5 3$4
109 q=: ?2 4 5 3$4
110 c=: ; (i.1+r) <"1@comb&.>r=:#$p
111 f&>/~c
112
113 p=: o.?2 4 5 3$4
114 q=: o.?2 4 5 3$4
115 c=: ; (i.1+r) <"1@comb&.>r=:#$p
116 f&>/~c
117
118 'domain error' -: 1 2 > etx $. 3j4 5
119
120
121 NB. >. ------------------------------------------------------------------
122
123 (scheck >. $.x), (>. -: >.&.$.) x=: _10+? 405$2
124 (scheck >. $.x), (>. -: >.&.$.) x=: _10+? 3 4 5$21
125 (scheck >. $.x), (>. -: >.&.$.) x=: o._10+? 3 4 5$21
126 (scheck >. $.x), (>. -: >.&.$.) x=:j./o._10+?2 3 4 5$21
127
128 0 -: 3 $. >. $. 0 1 0
129 0 -: 3 $. >. $. 2 3 4
130 0 -: 3 $. >. $. 2 3.4
131 0 -: 3 $. >. $. 2 3j4
132
133 f=: 4 : '(scheck t) *. (p>.q) -: t=: ((2;x)$.p) >. (2;y)$.q'
134
135 p=: ?2 4 5 3$2
136 q=: ?2 4 5 3$2
137 c=: ; (i.1+r) <"1@comb&.>r=:#$p
138 f&>/~c
139
140 p=: ?2 4 5 3$4
141 q=: ?2 4 5 3$4
142 c=: ; (i.1+r) <"1@comb&.>r=:#$p
143 f&>/~c
144
145 p=: o.?2 4 5 3$4
146 q=: o.?2 4 5 3$4
147 c=: ; (i.1+r) <"1@comb&.>r=:#$p
148 f&>/~c
149
150 'domain error' -: 1 2 >. etx $. 3j4 5
151
152
153 NB. >: ------------------------------------------------------------------
154
155 (scheck >: $.x), (>: -: >:&.$.) x=: _10+? 405$2
156 (scheck >: $.x), (>: -: >:&.$.) x=: _10+? 3 4 5$21
157 (scheck >: $.x), (>: -: >:&.$.) x=: o._10+? 3 4 5$21
158 (scheck >: $.x), (>: -: >:&.$.) x=:j./o._10+?2 3 4 5$21
159
160 (scheck >: $.x), (>: -: >:&.$.) x=: (_10+?60$21),<._1+2^31
161
162 1 -: 3 $. >: $. 0 1 0
163 1 -: 3 $. >: $. 2 3 4
164 1 -: 3 $. >: $. 2 3.4
165 1 -: 3 $. >: $. 2 3j4
166
167 f=: 4 : '(scheck t) *. (p>:q) -: t=: ((2;x)$.p) >: (2;y)$.q'
168
169 p=: ?2 4 5 3$2
170 q=: ?2 4 5 3$2
171 c=: ; (i.1+r) <"1@comb&.>r=:#$p
172 f&>/~c
173
174 p=: ?2 4 5 3$4
175 q=: ?2 4 5 3$4
176 c=: ; (i.1+r) <"1@comb&.>r=:#$p
177 f&>/~c
178
179 p=: o.?2 4 5 3$4
180 q=: o.?2 4 5 3$4
181 c=: ; (i.1+r) <"1@comb&.>r=:#$p
182 f&>/~c
183
184 'domain error' -: 1 2 >: etx $. 3j4 5
185
186
187 4!:55 ;:'c f p q r t x y z'
188
189