Mercurial > hg > jgplsrc

annotate test/g100i.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. +/ B ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 f=: 3 : 'y -: +/y$1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 f"0 ?2 10$1e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 f"0 i.4 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 f"0 [_1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 f"0 [_1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 f"0 [_1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 f=: 3 : 'y -: +/(i.5e3) e. y?5e3'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 f"0 ?2 10$4e3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 f"0 i.4 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 f"0 [_1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 f"0 [_1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 f"0 [_1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 f=: 3 : 'n -: +/(i.y) e. (n=.<.-:y)?y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 f"0 ?2 10$1e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 f"0 i.4 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 f"0 [_1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 f"0 [_1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 f"0 [_1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 f=: 3 : '($/|.y) -: +/y$1'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 ,f"1 ,."0 1~i.10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 f=: 3 : '200 -: +/+/(i.y) e. 200?*/y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 plus=: 4 : 'x+y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 f=: 3 : '(+/ -: plus/) y ?@$ 2'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+ 255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 ,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 ,f"1 |."1 x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 NB. +/ I ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 plus=: 4 : 'x+y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (+/ -: plus/) x=:1 2 3 1e9 2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (+/ -: plus/) |.x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 (+/ -: plus/ ) x=:_1e4+? 23$2e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 (+/ -: plus/ ) x=:_1e4+?4 23$2e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 (+/ -: plus/ ) x=:_1e4+?7 5 23$2e4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 (+/"2 -: plus/"2) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 (+/ -: plus/ ) x=:_1e9+? 23$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 (+/ -: plus/ ) x=:_1e9+?4 23$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 (+/ -: plus/ ) x=:_1e9+?7 5 23$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 (+/"2 -: plus/"2) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 NB. +/ D ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 plus=: 4 : 'x+y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 (+/ -: plus/ ) x=:0.01*_1e9+? 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 (+/ -: plus/ ) x=:0.01*_1e9+?4 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81 (+/ -: plus/ ) x=:0.01*_1e9+?7 5 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 (+/"2 -: plus/"2) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 NB. +/ Z ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88 plus=: 4 : 'x+y'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 (+/ -: plus/ ) x=:j./0.01*_1e9+?2 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91 (+/ -: plus/ ) x=:j./0.01*_1e9+?2 4 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93 (+/ -: plus/ ) x=:j./0.01*_1e9+?2 7 5 11$2e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94 (+/"1 -: plus/"1) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 (+/"2 -: plus/"2) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 NB. +/ X ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 (+/ -: +/ @:x:) x=:_1e5+?2 7 5 23$2e5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 (+/"1 -: +/"1@:x:) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102 (+/"2 -: +/"2@:x:) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103 (+/"3 -: +/"3@:x:) x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105 'domain error' -: +/ etx 3 4$'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106 'domain error' -: +/"1 etx 3 4$'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
107 'domain error' -: +/ etx ;:'modus operandi'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
108 'domain error' -: +/"1 etx 3 4$;:'I think not'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
109
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
110
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
111 4!:55 ;:'f plus x'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
112
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
113