Mercurial > hg > jgplsrc

comparison test/g011p.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 min=. 4 : 'x<.y'
8
9 (<./\ -: min/\ ) x=.? 13$2
10 (<./\ -: min/\ ) x=.?7 13$2
11 (<./\"1 -: min/\"1) x
12 (<./\ -: min/\ ) x=.?3 5 13$2
13 (<./\"1 -: min/\"1) x
14 (<./\"2 -: min/\"2) x
15 (<./\ -: min/\ ) x=.? 12$2
16 (<./\ -: min/\ ) x=.?4 12$2
17 (<./\"1 -: min/\"1) x
18 (<./\ -: min/\ ) x=.?4 8 12$2
19 (<./\"1 -: min/\"1) x
20 (<./\"2 -: min/\"2) x
21
22
23 NB. <./\ I ---------------------------------------------------------------
24
25 min=. 4 : 'x<.y'
26
27 (<./\ -: min/\) x=.1 2 3 1e9 2e9
28 (<./\ -: min/\) |.x
29
30 (<./\ -: min/\ ) x=._1e4+? 13$2e4
31 (<./\ -: min/\ ) x=._1e4+?4 13$2e4
32 (<./\"1 -: min/\"1) x
33 (<./\ -: min/\ ) x=._1e4+?3 5 13$2e4
34 (<./\"1 -: min/\"1) x
35 (<./\"2 -: min/\"2) x
36
37 (<./\ -: min/\ ) x=._1e9+? 13$2e9
38 (<./\ -: min/\ ) x=._1e9+?4 13$2e9
39 (<./\"1 -: min/\"1) x
40 (<./\ -: min/\ ) x=._1e9+?3 5 13$2e9
41 (<./\"1 -: min/\"1) x
42 (<./\"2 -: min/\"2) x
43
44
45 NB. <./\ D ---------------------------------------------------------------
46
47 min=. 4 : 'x<.y'
48
49 (<./\ -: min/\ ) x=.0.01*_1e4+? 13$2e4
50 (<./\ -: min/\ ) x=.0.01*_1e4+?4 13$2e4
51 (<./\"1 -: min/\"1) x
52 (<./\ -: min/\ ) x=.0.01*_1e4+?3 5 13$2e4
53 (<./\"1 -: min/\"1) x
54 (<./\"2 -: min/\"2) x
55
56
57 NB. <./\. Z ---------------------------------------------------------------
58
59 min=. 4 : 'x<.y'
60
61 (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+? 13$2e2
62 (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+?4 13$2e2
63 (<./\"1 -: min/\"1) x
64 (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+?3 5 13$2e2
65 (<./\"1 -: min/\"1) x
66 (<./\"2 -: min/\"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 ;:'f min x'
75
76