Mercurial > hg > jgplsrc

comparison test/goi.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. o./ B ---------------------------------------------------------------
2
3 cir=. 4 : 'x o. y'
4
5 (o./ -: cir/ ) x=. ? 23$2
6 (o./ -: cir/ ) x=. ?3 23$2
7 (o./"1 -: cir/"1) x
8 (o./ -: cir/ ) x=. ?7 5 23$2
9 (o./"1 -: cir/"1) x
10 (o./"2 -: cir/"2) x
11
12 (o./ -: cir/ ) x=. ? 24$2
13 (o./ -: cir/ ) x=. ?4 12$2
14 (o./"1 -: cir/"1) x
15 (o./ -: cir/ ) x=. ?4 2 8$2
16 (o./"1 -: cir/"1) x
17 (o./"2 -: cir/"2) x
18
19
20 NB. o./ I ---------------------------------------------------------------
21
22 cir=. 4 : 'x o. y'
23
24 (o./ -: cir/ ) x=. _5+? 3$13
25 (o./ -: cir/ ) x=. _5+?2 3$13
26 (o./"1 -: cir/"1) x
27 (o./ -: cir/ ) x=. _3+?2 3 3$7
28 (o./"1 -: cir/"1) x
29 (o./"2 -: cir/"2) x
30
31
32 NB. o./ D ---------------------------------------------------------------
33
34 cir=. 4 : 'x o. y'
35
36 (o./ -: cir/ ) x=. [&.o. _5+?2 $13
37 (o./ -: cir/ ) x=. [&.o. _5+?2 3$13
38 (o./"1 -: cir/"1) x
39 (o./ -: cir/ ) x=. [&.o. _5+?2 3 3$13
40 (o./"1 -: cir/"1) x
41 (o./"2 -: cir/"2) x
42
43
44 NB. o./ Z ---------------------------------------------------------------
45
46 cir=. 4 : 'x o. y'
47
48 (o./ -: cir/ ) x=.[&.j._5+?2 $13
49 (o./ -: cir/ ) x=.[&.j._5+?2 3$13
50 (o./"1 -: cir/"1) x
51 (o./ -: cir/ ) x=.[&.j._5+?2 3 3$13
52 (o./"1 -: cir/"1) x
53 (o./"2 -: cir/"2) x
54
55 'domain error' -: o./ etx 'eleemosynary'
56 'domain error' -: o./ etx ;:'quod erat demonstratum'
57
58 4!:55 ;:'cir x'
59
60