Mercurial > hg > jgplsrc

view test/g200m.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
line wrap: on
line source

NB. m&|@^ ---------------------------------------------------------------

f=: |`^/
g=: 3 : 0
 'm x y'=.y
 x m&|@^ y
)

(f -: g)  1e3  2 24
(f -: g)  1e3 _2 24
(f -: g) _1e3  2 24
(f -: g) _1e3 _2 24

(f -: g)  1e3  2 0
(f -: g)  1e3 _2 0
(f -: g) _1e3  2 0
(f -: g) _1e3 _2 0

(f -: g)  1e3  2 _5
(f -: g)  1e3 _2 _5
(f -: g) _1e3  2 _5
(f -: g) _1e3 _2 _5

(f -: g) x:  1e6  2 500
(f -: g) x:  1e6 _2 500
(f -: g) x: _1e6  2 500
(f -: g) x: _1e6 _2 500

1r4          -: 2 (1e6&|@^) _2x
125 625 1r25 -: 5 (1e6&|@^) 3 4 _2x

4!:55 ;:'f g'