Mercurial > hg > jgplsrc

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