Mercurial > hg > jgplsrc
view test/g111a.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. B *. B -------------------------------------------------------------- x=. ?100$2 y=. ?100$2 (x*.y) -: (#.x,.y){0 0 0 1 (x*.y) -: (z+x)*.z+y [ z=.{.0 4.5 (z*.y) -: (($y)$z)*.y [ z=.?2 (x*.z) -: x*.($x)$z [ z=.?2 (x*.y) -: (40$"0 x)*.y [ x=. ?10$2 [ y=. ?10 40$2 (x*.y) -: x*.40$"0 y [ x=. ?10 40$2 [ y=. ?10$2 0 0 0 1 -: 0 0 1 1 *. 0 1 0 1 NB. B *. I -------------------------------------------------------------- x=. ?100$2 y=. ?100$2e5 (x*.y) -: (z+x)*.z+y [ z=.{.0 4.5 (z*.y) -: (($y)$z)*.y [ z=.?2 (x*.z) -: x*.($x)$z [ z=.?2e5 (x*.y) -: (40$"0 x)*.y [ x=. ?10$2 [ y=. +?10 40$2e5 (x*.y) -: x*.40$"0 y [ x=. ?10 40$2 [ y=. +?10$2e5 0 0 0 1 -: 0 0 1 1 *. 0 1 0 1+4-4 NB. I *. B -------------------------------------------------------------- x=. _1e5+?100$2e5 y=. ?100$2 (x*.y) -: (z+x)*.z+y [ z=.{.0 4.5 (z*.y) -: (($y)$z)*.y [ z=._1e5+?2e5 (x*.z) -: x*.($x)$z [ z=.?2 (x*.y) -: (40$"0 x)*.y [ x=. _1e5+?10$2e5 [ y=. ?10 40$2 (x*.y) -: x*.40$"0 y [ x=. _1e5+?10 40$2e5 [ y=. ?10$2 0 0 0 1 -: (0 0 1 1+3-3) *. 0 1 0 1 NB. I *. I -------------------------------------------------------------- x=. _1e5+?100$2e5 y=. _1e5+?100$2e5 (x*.y) -: (z+x)*.z+y [ z=.{.0 4.5 (z*.y) -: (($y)$z)*.y [ z=._1e5+?2e5 (x*.z) -: x*.($x)$z [ z=._1e5+?2e5 (x*.y) -: (40$"0 x)*.y [ x=. _1e5+?10$2e5 [ y=. _1e5+?10 40$2e5 (x*.y) -: x*.40$"0 y [ x=. _1e5+?10 40$2e5 [ y=. _1e5+?10$2e5 0 0 0 1 -: (0 0 1 1+3-3) *. 0 1 0 1+3-3 'domain error' -: 1 *. etx 'chthonic' 'domain error' -: 0 0 *. etx ;:'sui generis' 4!:55 ;:'x y z'