Mercurial > hg > jgplsrc

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