Mercurial > hg > jgplsrc

annotate test/g631.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. u&.v ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 12 _12 _12 12 = 3 3 _3 _3 +&.^. 4 _4 4 _4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 7 _1 1 _7 = 3 3 _3 _3 *&.^ 4 _4 4 _4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 1 -: +&.^./''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 0 -: *&.^ /''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 totient =. * -.@%@~.&.q:
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 t1 =. 1: #. 1: = (+.i.)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 (t1 -: totient)"0 x=.>:?2 10$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 NB. f&.> ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 (100$<1) -: #&.>?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 (,&.>6 1 4 4) = $&.>;:'Cogito, ergo sum.'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 (<"0 (>x)+ >y) -: x +&.>y [ x=. ?1000 [ y=. ?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 (<"0 (>x)>.>y) -: x >.&.>y [ x=. ?1000 [ y=.<"0?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?1000 [ y=. ?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?1000 [ y=.<"0?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 (<"0 (>x)+ >y) -: x +&.>y [ x=. ?1000 [ y=. ?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 (<"0 (>x)>.>y) -: x >.&.>y [ x=. ?1000 [ y=.<"0?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?1000 [ y=. ?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?1000 [ y=.<"0?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 (<"0 (>x)+ >y) -: x +&.>y [ x=. ?100$1000 [ y=. ?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 (<"0 (>x)>.>y) -: x >.&.>y [ x=. ?100$1000 [ y=.<"0?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?100$1000 [ y=. ?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?100$1000 [ y=.<"0?1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 (<"0 (>x)+ >y) -: x +&.>y [ x=. ?100$1000 [ y=. ?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 (<"0 (>x)>.>y) -: x >.&.>y [ x=. ?100$1000 [ y=.<"0?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?100$1000 [ y=. ?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 (<"0 (>x)* >y) -: x * &.>y [ x=.<"0?100$1000 [ y=.<"0?100$1000
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 'length error' -: (i.12) +&.> etx i.3 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 'length error' -: (i.3 4) +&.> etx i.4 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 4!:55 ;:'t1 totient x y '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44