Mercurial > hg > jgplsrc

comparison test/g110p.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 ---------------------------------------------------------------
2
3 (0 0 1 1 ,: 0 0 0 1) -: */\ 0 0 1 1 ,: 0 1 0 1
4 (20$1) -: */\20$1
5 (20$0) -: */\20$0
6
7 times=. 4 : 'x*y'
8
9 (*/\ -: times/\ ) x=.? 13$2
10 (*/\ -: times/\ ) x=.?7 13$2
11 (*/\"1 -: times/\"1) x
12 (*/\ -: times/\ ) x=.?3 5 13$2
13 (*/\"1 -: times/\"1) x
14 (*/\"2 -: times/\"2) x
15 (*/\ -: times/\ ) x=.? 12$2
16 (*/\ -: times/\ ) x=.?4 12$2
17 (*/\"1 -: times/\"1) x
18 (*/\ -: times/\ ) x=.?4 8 12$2
19 (*/\"1 -: times/\"1) x
20 (*/\"2 -: times/\"2) x
21
22
23 NB. */\ I ---------------------------------------------------------------
24
25 times=. 4 : 'x*y'
26
27 (*/\ -: times/\) x=.1 2 3 1e9 2e9
28 (*/\ -: times/\) |.x
29
30 (*/\ -: times/\ ) x=._10+? 7$20
31 (*/\ -: times/\ ) x=._10+?4 7$20
32 (*/\"1 -: times/\"1) x
33 (*/\ -: times/\ ) x=._10+?3 5 7$20
34 (*/\"1 -: times/\"1) x
35 (*/\"2 -: times/\"2) x
36
37 (*/\ -: times/\ ) x=._1e9+? 13$2e9
38 (*/\ -: times/\ ) x=._1e9+?4 13$2e9
39 (*/\"1 -: times/\"1) x
40 (*/\ -: times/\ ) x=._1e9+?3 5 13$2e9
41 (*/\"1 -: times/\"1) x
42 (*/\"2 -: times/\"2) x
43
44
45 NB. */\ D ---------------------------------------------------------------
46
47 times=. 4 : 'x*y'
48
49 (*/\ -: times/\ ) x=.0.1*_1e2+? 13$2e2
50 (*/\ -: times/\ ) x=.0.1*_1e2+?4 13$2e2
51 (*/\"1 -: times/\"1) x
52 (*/\ -: times/\ ) x=.0.1*_1e2+?3 5 13$2e2
53 (*/\"1 -: times/\"1) x
54 (*/\"2 -: times/\"2) x
55
56
57 NB. */\. Z ---------------------------------------------------------------
58
59 times=. 4 : 'x*y'
60
61 (*/\ -: times/\ ) x=.j./0.1*_1e2+?2 13$2e2
62 (*/\ -: times/\ ) x=.j./0.1*_1e2+?2 4 13$2e2
63 (*/\"1 -: times/\"1) x
64 (*/\ -: times/\ ) x=.j./0.1*_1e2+?2 3 5 13$2e2
65 (*/\"1 -: times/\"1) x
66 (*/\"2 -: times/\"2) x
67
68 (,'j') -: */\'j'
69 (,<'ace') -: */\<'ace'
70
71 'domain error' -: */\ etx 'deipnosophist'
72 'domain error' -: */\ etx ;:'peace in our time'
73
74 4!:55 ;:'times x'
75
76