Mercurial > hg > jgplsrc
view test/g410a.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){1 1 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 1 1 0 1 -: 0 0 1 1 ! 0 1 0 1 NB. B ! I --------------------------------------------------------------- x=. ?100$2 y=. ?100$2e2 (x!y) -: (z+x)!z+y [ z=.{.0 4.5 (z!y) -: (($y)$z)!y [ z=.?2 (x!z) -: x!($x)$z [ z=.?2e2 (x!y) -: (40$"0 x)!y [ x=. ?10$2 [ y=. +?10 40$2e2 (x!y) -: x!40$"0 y [ x=. ?10 40$2 [ y=. +?10$2e2 1 1 0 1 -: 0 0 1 1 ! 0 1 0 1+4-4 NB. I ! B --------------------------------------------------------------- x=. _1e2+?100$2e2 y=. ?100$2 (x!y) -: (z+x)!z+y [ z=.{.0 4.5 (z!y) -: (($y)$z)!y [ z=._1e2+?2e2 (x!z) -: x!($x)$z [ z=.?2 (x!y) -: (40$"0 x)!y [ x=. _1e2+?10$2e2 [ y=. ?10 40$2 (x!y) -: x!40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. ?10$2 1 1 0 1 -: (0 0 1 1+3-3) ! 0 1 0 1 NB. I ! I --------------------------------------------------------------- x=. _1e2+?100$2e2 y=. _1e2+?100$2e2 (x!y) -: (z+x)!z+y [ z=.{.0 4.5 (z!y) -: (($y)$z)!y [ z=._1e2+?2e2 (x!z) -: x!($x)$z [ z=._1e2+?2e2 (x!y) -: (40$"0 x)!y [ x=. _1e2+?10$2e2 [ y=. _1e2+?10 40$2e2 (x!y) -: x!40$"0 y [ x=. _1e2+?10 40$2e2 [ y=. _1e2+?10$2e2 1 1 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'