Mercurial > hg > jgplsrc

view test/g100i.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. +/ B ----------------------------------------------------------------

f=: 3 : 'y -: +/y$1'
f"0 ?2 10$1e5
f"0 i.4 10
f"0 [_1 0 1+  255
f"0 [_1 0 1+4*255
f"0 [_1 0 1+8*255

f=: 3 : 'y -: +/(i.5e3) e. y?5e3'
f"0 ?2 10$4e3
f"0 i.4 10
f"0 [_1 0 1+  255
f"0 [_1 0 1+4*255
f"0 [_1 0 1+8*255

f=: 3 : 'n  -: +/(i.y) e. (n=.<.-:y)?y'
f"0 ?2 10$1e4
f"0 i.4 10
f"0 [_1 0 1+  255
f"0 [_1 0 1+4*255
f"0 [_1 0 1+8*255

f=: 3 : '($/|.y) -: +/y$1'
,f"1 ,."0 1~i.10
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
,f"1 |."1 x

f=: 3 : '200 -: +/+/(i.y) e. 200?*/y'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
,f"1 |."1 x

plus=: 4 : 'x+y'

f=: 3 : '(+/ -: plus/) y ?@$ 2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+8*255
,f"1 |."1 x


NB. +/ I ----------------------------------------------------------------

plus=: 4 : 'x+y'

(+/ -: plus/) x=:1 2 3 1e9 2e9
(+/ -: plus/) |.x

(+/   -: plus/  ) x=:_1e4+?    23$2e4
(+/   -: plus/  ) x=:_1e4+?4   23$2e4
(+/"1 -: plus/"1) x
(+/   -: plus/  ) x=:_1e4+?7 5 23$2e4
(+/"1 -: plus/"1) x
(+/"2 -: plus/"2) x

(+/   -: plus/  ) x=:_1e9+?    23$2e9
(+/   -: plus/  ) x=:_1e9+?4   23$2e9
(+/"1 -: plus/"1) x
(+/   -: plus/  ) x=:_1e9+?7 5 23$2e9
(+/"1 -: plus/"1) x
(+/"2 -: plus/"2) x


NB. +/ D ----------------------------------------------------------------

plus=: 4 : 'x+y'

(+/   -: plus/  ) x=:0.01*_1e9+?    11$2e9
(+/   -: plus/  ) x=:0.01*_1e9+?4   11$2e9
(+/"1 -: plus/"1) x
(+/   -: plus/  ) x=:0.01*_1e9+?7 5 11$2e9
(+/"1 -: plus/"1) x
(+/"2 -: plus/"2) x


NB. +/ Z ----------------------------------------------------------------

plus=: 4 : 'x+y'

(+/   -: plus/  ) x=:j./0.01*_1e9+?2     11$2e9
(+/   -: plus/  ) x=:j./0.01*_1e9+?2 4   11$2e9
(+/"1 -: plus/"1) x
(+/   -: plus/  ) x=:j./0.01*_1e9+?2 7 5 11$2e9
(+/"1 -: plus/"1) x
(+/"2 -: plus/"2) x


NB. +/ X ----------------------------------------------------------------

(+/   -: +/  @:x:) x=:_1e5+?2 7 5 23$2e5
(+/"1 -: +/"1@:x:) x
(+/"2 -: +/"2@:x:) x
(+/"3 -: +/"3@:x:) x

'domain error' -: +/   etx 3 4$'abc'
'domain error' -: +/"1 etx 3 4$'abc'
'domain error' -: +/   etx ;:'modus operandi'
'domain error' -: +/"1 etx 3 4$;:'I think not'


4!:55 ;:'f plus x'