Mercurial > hg > jgplsrc

comparison test/g222a.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. B ~: B --------------------------------------------------------------
2
3 x=. ?100$2
4 y=. ?100$2
5 (x~:y) -: (#.x,.y){0 1 1 0
6 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
7 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
8 (z~:y) -: (($y)$z)~:y [ z=.?2
9 (x~:z) -: x~:($x)$z [ z=.?2
10
11 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. ?10 40$2
12 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. ?10$2
13
14 0 1 1 0 -: 0 0 1 1 ~: 0 1 0 1
15
16
17 NB. B ~: I --------------------------------------------------------------
18
19 x=. ?100$2
20 y=. _1e2+?100$2e2
21 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
22 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
23 (z~:y) -: (($y)$z)~:y [ z=.?2
24 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
25
26 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. _1e2+?10 40$2e2
27 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. _1e2+?10$2e2
28
29 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 _4 3 4 _3
30
31
32 NB. B ~: D --------------------------------------------------------------
33
34 x=. ?100$2
35 y=. o._1e2+?100$2e2
36 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
37 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
38 (z~:y) -: (($y)$z)~:y [ z=.?2
39 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
40
41 (x~:y) -: (40$"0 x)~:y [ x=. ?10$2 [ y=. o._1e2+?10 40$2e2
42 (x~:y) -: x~:40$"0 y [ x=. ?10 40$2 [ y=. o._1e2+?10$2e2
43
44 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 _2.5 1.2 _2.5 1.2
45 0 1 1 0 1 1 1 1 -: 0 0 1 1 0 0 1 1 ~: 0 1 0 1 __ _ __ _
46 (14 6#1 0) -: 1~:1+10^-i.20
47
48
49 NB. I ~: B --------------------------------------------------------------
50
51 x=. _1e2+?100$2e2
52 y=. ?100$2
53 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
54 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
55 (z~:y) -: (($y)$z)~:y [ z=._1e2+?2e2
56 (x~:z) -: x~:($x)$z [ z=.?2
57
58 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. ?10 40$2
59 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. ?10$2
60
61 0 1 1 0 1 1 1 1 -: 0 0 1 1 _3 _3 4 4 ~: 0 1 0 1 0 1 0 1
62 1 1 1 1 -: 2147483647 2147483647 _2147483648 _2147483648 ~: 0 1 0 1
63
64
65 NB. I ~: I --------------------------------------------------------------
66
67 x=. _1e2+?100$2e2
68 y=. _1e2+?100$2e2
69 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
70 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
71 (z~:y) -: (($y)$z)~:y [ z=.?2e6
72 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
73
74 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. _1e2+?10 40$2e2
75 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. _1e2+?10$2e2
76
77 (9 1#1 0) -: 9~:i.10
78
79
80 NB. I ~: D --------------------------------------------------------------
81
82 x=. _1e2+?100$2e2
83 y=. o._1e2+?100$2e2
84 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
85 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
86 (z~:y) -: (($y)$z)~:y [ z=.?2e6
87 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
88
89 (x~:y) -: (40$"0 x)~:y [ x=. _1e2+?10$2e2 [ y=. o._1e2+?10 40$2e2
90 (x~:y) -: x~:40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. o._1e2+?10$2e2
91
92 (14 6#1 0) -: 17~:17*1+10^-i.20
93
94
95 NB. D ~: B --------------------------------------------------------------
96
97 x=. o._1e2+?100$2e2
98 y=. ?100$2
99 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
100 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
101 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
102 (x~:z) -: x~:($x)$z [ z=.?2
103
104 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. ?10 40$2
105 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. ?10$2
106
107 (14 6#1 0) -: (1+10^-i.20)~:1
108
109
110 NB. D ~: I --------------------------------------------------------------
111
112 x=. o._1e2+?100$2e2
113 y=. _1e2+?100$2e2
114 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
115 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
116 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
117 (x~:z) -: x~:($x)$z [ z=._1e2+?2e2
118
119 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. _1e2+?10 40$2e2
120 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. _1e2+?10$2e2
121
122 (14 6#1 0) -: (17*1+10^-i.20)~:17
123
124
125 NB. D ~: D --------------------------------------------------------------
126
127 x=. o._1e2+?100$2e2
128 y=. o._1e2+?100$2e2
129 (x~:y) -: (z+x)~:z+y [ z=.{.0 4.5
130 (x~:y) -: (z*x)~:z*y [ z=.{.1 4j5
131 (z~:y) -: (($y)$z)~:y [ z=.o._1e2+?2e2
132 (x~:z) -: x~:($x)$z [ z=.o._1e2+?2e2
133
134 (x~:y) -: (40$"0 x)~:y [ x=. o._1e2+?10$2e2 [ y=. o._1e2+?10 40$2e2
135 (x~:y) -: x~:40$"0 y [ x=. o._1e2+?10 40$2e2 [ y=. o._1e2+?10$2e2
136
137 (14 6#1 0) -: _17.4~:_17.4*1+10^-i.20
138
139 4!:55 ;:'x y z'
140
141