Mercurial > hg > jgplsrc

annotate test/gsp221.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. ~. ------------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 f=: 3 : '(scheck t) *. (~.p) -: t=: ~.s=: (2;y)$.p'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 c=: ; (i.1+r) <"1@comb&.>r=: 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 f&> c [ p=: (?200$100) { (?100 4 5$2) * ? 100 4 5 3$2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 f&> c [ p=: (?200$100) { (?100 4 5$2) * ? 100 4 5 3$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 f&> c [ p=: (?100$ 50) { (? 50 4 5$2) * o. ? 50 4 5 3$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 f&> c [ p=: (?100$ 50) { (? 50 4 5$2) * j./?2 50 4 5 3$100
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 c=: ; (i.1+r) <"1@comb&.>r=: 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 f&> c [ p=: ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 f&> c [ p=: 0 (0)} ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 f&> c [ p=: 0 (9)} ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 f&> c [ p=: 0 * ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 f&> c [ p=: (?200$100) { ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 f&> c [ p=: (?200$100) {(?100 4$2) * ?100 4 5$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 (~.$.p) -: ~.p=: i.0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 (~.$.p) -: ~.p=: i.0 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 (~.$.p) -: ~.p=: i.5 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 p=: ?100$1e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 q=: (?100$20){?20 5$10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 s=: q p}1 $. 1e9 5 ; 0 ; 2-2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 t=: ~.s
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 scheck t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 ($t) -: $~.0,q
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 (2$.t) -: ,0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 (3$.t) -: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 (4$.t) -: ,. (i.#t)-.{.(i.1+#p) -. p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 (5$.t) -: ~.q/:p
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 4!:55 ;:'c f p q r s t'