Mercurial > hg > jgplsrc

annotate test/gsp431.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. \. ------------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 f =: 1 : (':'; '(u/\."x d ) -: $.^:_1 u/\."x (2;y)$.d ')
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 f2=: 2 : (':'; '(u/\."x d+0=d) -: $.^:_1 u/\."x (3;n)$.(2;y)$.d+0=d')
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 rk=: #@$
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 g =: i. @ >: @ rk
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 h =: ; @ (i.@>: <"1@comb&.> ]) @ rk
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 (g = f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 (g = f&>/ h) d=: _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 (g = f&>/ h) d=: o. _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 (g = f&>/ h) d=: j./_2+?2 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 (g < f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 (g < f&>/ h) d=: _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 (g < f&>/ h) d=: o. _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 (g <.f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 (g <.f&>/ h) d=: _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 (g <.f&>/ h) d=: o. _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 (g > f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 (g > f&>/ h) d=: _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 (g > f&>/ h) d=: o. _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 (g >.f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 (g >.f&>/ h) d=: _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 (g >.f&>/ h) d=: o. _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 (g + f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 (g + f&>/ h) d=: _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 (g + f&>/ h) d=: o. _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 (g + f&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 (g +.f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 (g +.f&>/ h) d=: _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 (g +.f&>/ h) d=: o. _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 (g +.f&>/ h) d=: j./_2+?2 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 (g +:f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 (g *.f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 (g *.f&>/ h) d=: _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 (g *.f&>/ h) d=: o. _2+? 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 (g *.f&>/ h) d=: j./_2+?2 5 3 4 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 (g *:f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 (g - f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 (g - f&>/ h) d=: _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 (g - f&>/ h) d=: o. _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (g - f&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 (g ~:f&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (g ~:f&>/ h) d=: _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (g ~:f&>/ h) d=: o. _2+? 5 7 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 (g ~:f&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 (g = f2 1&>/ h) d=: ? 5 7 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 (g = f2 1&>/ h) d=: _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 (g = f2 1&>/ h) d=: o. _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 (g = f2 1&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 (g * f2 1&>/ h) d=: ? 5 3 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 (g * f2 1&>/ h) d=: _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 (g * f2 1&>/ h) d=: o. _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 (g * f2 1&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 (g % f2 1&>/ h) d=: ? 5 3 6 2$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 (g % f2 1&>/ h) d=: _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 (g % f2 1&>/ h) d=: o. _2+? 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73 (g % f2 1&>/ h) d=: j./_2+?2 5 3 6 2$5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 d=: $.^:_1 s=: 1$.7 11 13;0 1 2;_1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 (+/\. d) -: +/\. s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 (+/\."1 d) -: +/\."1 s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 (+/\."2 d) -: +/\."2 s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 (-/\. d) -: -/\. s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 (-/\."1 d) -: -/\."1 s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81 (-/\."2 d) -: -/\."2 s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 4!:55 ;:'d f f2 g h rk s'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86