Mercurial > hg > jgplsrc

annotate test/gq201.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. ^. on extended integers and rational numbers ------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 test=: 4 : 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 assert. y -: x ^. x ^ x: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 assert. (<:y)= x <.@^. <: x^ x: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 assert. y = x <.@^. >: x^ x: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 assert. y = x >.@^. <: x^ x: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 assert. (>:y)= x >.@^. >: x^ x: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 2 test y=: 2+10 10?@$300
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 3 test y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 10 test y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 16 test y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 12345 test 17
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 12345678 test 23
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 31 -: 2 ^. x=:*/31$x: 2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 31 -: 2 <.@^. x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 31 -: 2 >.@^. x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 30 -: 2 <.@^.<:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 31 -: 2 >.@^.<:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 31 -: 2 <.@^.>:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 32 -: 2 >.@^.>:x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 0 -: 314159 <.@^. x: 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 0 -: 314159 >.@^. x: 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 y1=: (1-1e4)+10 11 ?@$ 2e4-1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 y2=: (1-1e8)+10 11 ?@$ 2e8-1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 y3=: (1-1e9)+10 11 ?@$ 2e9-1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 (t=.2+($y1)?@$50) (<.!.0@^. -: <.@^.&.x:) |y1+0=y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 (t=.2+($y2)?@$50) (<.!.0@^. -: <.@^.&.x:) |y2+0=y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 (t=.2+($y3)?@$50) (<.!.0@^. -: <.@^.&.x:) |y3+0=y3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 (t=.2+($y1)?@$50) (>.!.0@^. -: >.@^.&.x:) |y1+0=y1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 (t=.2+($y2)?@$50) (>.!.0@^. -: >.@^.&.x:) |y2+0=y2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 (t=.2+($y3)?@$50) (>.!.0@^. -: >.@^.&.x:) |y3+0=y3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 1 = 16x <.@^. {. 123 0.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 0 = 0x ^. _5 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 __ = 1 5 6 7 ^. 0x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 __ 0 _ _ = 1x ^. 0 1 2 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 (^. 2.5) -: ^. 5r2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 (3.7 ^. 2.5) -: 3.7 ^. 5r2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 (3.7 ^. 2.5) -: 37r10 ^. 2.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 (3.7 ^. 2.5) -: 37r10 ^. 5r2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 (2048*^.2) -: ^. 2x ^2048
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 (2048*^.0.5) -: ^. 1r2^2048
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 (+/^.>:i.1000) -: ^. !1000x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 1000 -: 10 ^. 10x^1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 2048 -: 2 ^. 2x^2048
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 phi=: -:>:%:5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 ((^.phi)%~+/^.>:i.1000) -: phi^.!1000x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 ((^.phi)%~300*^.100%3 ) -: phi^.100r3^300
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 test=: 4 : 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 xx=: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 yy=: y
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 assert. xx (^. = ^.&x:) yy
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 assert. xx (^. = ^.&x:) -yy
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 assert. (-xx) (^. = ^.&x:) yy
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 assert. (-xx) (^. = ^.&x:) -yy
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 (0.07;1;1.5;2;7.8;10) test&>/ 0;0.1;1;2;2.11;1234;1234.5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 4!:55 ;:'phi t test x xx y y1 y2 y3 yy'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81