Mercurial > hg > jgplsrc
view test/g128x5.ijs @ 0:e0bbaa717f41 draft default tip
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. 128!:5 -------------------------------------------------------------- isnan=: 128!:5 (($x)$0) -: isnan x=: 31 17 3 ?@$ 2 (($x)$0) -: isnan x=: 31 3 ?@$ 2e9 (($x)$0) -: isnan x=: 31 ?@$ 0 (($x)$0) -: isnan x=: j./2 31 ?@$ 0 (($x)$0) -: isnan x=: 31 17 ?@$ 200x (($x)$0) -: isnan x=: % /2 31 ?@$ 20x (($x)$0) -: isnan x=: 'Barack Obama vs. Hillary Clinton' (($x)$0) -: isnan x=: ;:'John McCain' (($x)$0) -: isnan x=: _ __ 567 (($x)$0) -: isnan x=: _ __ 5j7 ((i.#x) e. i) -: isnan _. (i=: 100 ?@$ #x)}x=: 1e4 ?@$ 0 ((i.#x) e. i) -: isnan (<_. ) (i=: 100 ?@$ #x)}x=: 1e4 $ a: ((i.#x) e. i) -: isnan (<<<_.) (i=: 100 ?@$ #x)}x=: 1e4 $ a: 1 = isnan <^:10 ] _. 0 = isnan <20 ?@$ 2 0 = isnan <20 ?@$ 2e9 0 = isnan <'abc' x=: 1e6 ?@$ 0 b=: (#x) ?@$ 2 x=: (-~0j1)+_. (I.b)}x b -: isnan x 'domain error' -: 0 (128!:5) etx 3 4 5 'domain error' -: 1 (128!:5) etx 3 4 5 NB. 128!:5 and mapped boxed arrays -------------------------------------- 0!:0 <testpath,'gmbx.ijs' r=: x=: 1 2 3 ; _. ; 3j4 _. ; 'abc' (isnan x) -: isnan r r=: x=: (5!:1 <'mean') ; _. ; (<<<3j4 _.) ; 'abc' (isnan x) -: isnan r 0 = unmap_jmf_ 'q' 0 = unmap_jmf_ 'r' 4!:55 ;:'b f f1 g i isnan mean q r x'