Mercurial > hg > jgplsrc

annotate test/gsp120.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. - monad -------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 f=: 3 : '(scheck q) *. (-xx) -: q=. -s=: (2;y)$.xx'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 f&> c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: ? 405$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 f&> c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: _10+? 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 f&> c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: o._10+? 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 f&> c=: ; (i.1+r) <"1@comb&.>r=:#$xx=:j./o._10+?2 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 f&> c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: (_10+?60$21),<.-2^31
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 g=: 4 : '(scheck q) *. (-$.^:_1 s) -: q=. -s=: (3;x)$.(2;y)$.xx'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 1 g&>/ c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: ? 405$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 _5 6 7 g&>/ c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: _10+? 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 _5 6.7 g&>/ c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: o._10+? 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 _5 6j7 g&>/ c=: ; (i.1+r) <"1@comb&.>r=:#$xx=: j./_10+?2 3 4 5$21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 0 -: 3 $. - $. 0 1 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 0 -: 3 $. - $. 2 3 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 0 -: 3 $. - $. 2 3.4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 0 -: 3 $. - $. 2 3j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 NB. - dyad --------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 f=: 4 : '(scheck t) *. (p-q) -: t=: ((2;x)$.p) - (2;y)$.q'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 g=: 4 : '(scheck t) *. (p-x) -: t=: ((2;y)$.p) - x'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 h=: 4 : '(scheck t) *. (x-p) -: t=: x - ((2;y)$.p)'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 p=: (?7 5$2) * ?7 5 3$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 q=: (?7 5$2) * ?7 5 3$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 c=: ; (i.1+r) <"1@comb&.>r=:#$p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 f&>/~c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 (1;2;_2.3;2j3) g&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 (1;2;_2.3;2j3) h&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 p=: (?4 2 5$2) * ?4 2 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 q=: (?4 2 5$2) * ?4 2 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 a=: ?2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 c=: ; (i.1+r) <"1@comb&.>r=:#$p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 f&>/~c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 (1;2;_2.3;2j3) g&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 (1;2;_2.3;2j3) h&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 p=: (?4 2 5$2) * o.?4 2 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 q=: (?4 2 5$2) * o.?4 2 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 c=: ; (i.1+r) <"1@comb&.>r=:#$p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 f&>/~c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 (1;2;_2.3;2j3) g&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 (1;2;_2.3;2j3) h&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 p=: (?7 5$2) * j./?2 7 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 q=: (?7 5$2) * j./?2 7 5 3$4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 a=: j./?2e6 2e6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 c=: ; (i.1+r) <"1@comb&.>r=:#$p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 f&>/~c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (1;2;_2.3;2j3) g&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 (1;2;_2.3;2j3) h&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 f=: 4 : 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 s=: (2;x)$.xx
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 t=: (2;y)$.yy
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 q=. s -"2 t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 (q-: xx-"2 yy) *. scheck q
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 c=: ; (i.1+r) <"1@comb&.>r=:4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 d=: ; (i.1+r) <"1@comb&.>r=:3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 xx=: (?5 4 2$2) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 yy=: (?5 2$2) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 c f&>/d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 xx=: (?5 4 2$2) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 yy=: ( 5 2$0) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 c f&>/d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 xx=: ( 5 4 2$0) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 yy=: (?5 2$2) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 c f&>/d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 xx=: ( 5 4 2$0) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 yy=: ( 5 2$0) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 c f&>/d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 xx=: (?5 2$2) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 yy=: (?5 4 2$2) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88 d f&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 xx=: (?5 2$2) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91 yy=: ( 5 4 2$0) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 d f&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94 xx=: ( 5 2$0) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 yy=: (?5 4 2$2) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96 d f&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 xx=: ( 5 2$0) * ?5 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99 yy=: ( 5 4 2$0) * ?5 4 2 6$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 d f&>/c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103 4!:55 ;:'a c d f g h p q r s t xx yy'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105