Mercurial > hg > jgplsrc
diff test/g112a.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 diff
new file mode 100644 --- /dev/null +++ b/test/g112a.ijs @@ -0,0 +1,138 @@ +NB. B *: B --------------------------------------------------------------- + +x=. ?100$2 +y=. ?100$2 +(x*:y) -: (#.x,.y){1 1 1 0 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(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 1 0 -: 0 0 1 1 *: 0 1 0 1 + + +NB. B *: I --------------------------------------------------------------- + +x=. ?100$2 +y=. 2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.?2 +(x*:z) -: x*:($x)$z [ z=.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. ?10$2 [ y=. 2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. ?10 40$2 [ y=. 2|?10$2e5 + +1 1 1 0 -: 0 0 1 1 *: 0 1 0 1+4-4 + + +NB. B *: D --------------------------------------------------------------- + +x=. ?100$2 +y=. [&.o.2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.?2 +(x*:z) -: x*:($x)$z [ z=.[&.o.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. ?10$2 [ y=. [&.o.2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. ?10 40$2 [ y=. [&.o.2|?10$2e5 + +1 1 1 0 -: 0 0 1 1 *: 0 1 0 1+3.5-3.5 + + +NB. I *: B --------------------------------------------------------------- + +x=. 2|?100$2e5 +y=. ?100$2 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.2|?2e5 +(x*:z) -: x*:($x)$z [ z=.?2 + +(x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. ?10 40$2 +(x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. ?10$2 + +1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1 + + +NB. I *: I --------------------------------------------------------------- + +x=. 2|?100$2e5 +y=. 2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.2|?2e6 +(x*:z) -: x*:($x)$z [ z=.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. 2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. 2|?10$2e5 + +1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1+3-3 + + +NB. I *: D --------------------------------------------------------------- + +x=. 2|?100$2e5 +y=. [&.o.2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.2|?2e6 +(x*:z) -: x*:($x)$z [ z=.[&.o.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. 2|?10$2e5 [ y=. [&.o.2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. 2|?10 40$2e5 [ y=. [&.o.2|?10$2e5 + +1 1 1 0 -: (0 0 1 1+3-3) *: 0 1 0 1+3.4-3.4 + + +NB. D *: B --------------------------------------------------------------- + +x=. [&.o.2|?100$2e5 +y=. ?100$2 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5 +(x*:z) -: x*:($x)$z [ z=.?2 + +(x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. ?10 40$2 +(x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. ?10$2 + +1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1 + + +NB. D *: I --------------------------------------------------------------- + +x=. [&.o.2|?100$2e5 +y=. 2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5 +(x*:z) -: x*:($x)$z [ z=.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. 2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. 2|?10$2e5 + +1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1+34-34 + + +NB. D *: D --------------------------------------------------------------- + +x=. [&.o.2|?100$2e5 +y=. [&.o.2|?100$2e5 +(x*:y) -: (z+x)*:z+y [ z=.{.0 4.5 +(x*:y) -: (z*x)*:z*y [ z=.{.1 4j5 +(z*:y) -: (($y)$z)*:y [ z=.[&.o.2|?2e5 +(x*:z) -: x*:($x)$z [ z=.[&.o.2|?2e5 + +(x*:y) -: (40$"0 x)*:y [ x=. [&.o.2|?10$2e5 [ y=. [&.o.2|?10 40$2e5 +(x*:y) -: x*:40$"0 y [ x=. [&.o.2|?10 40$2e5 [ y=. [&.o.2|?10$2e5 + +1 1 1 0 -: (0 0 1 1+3.4-3.4) *: 0 1 0 1+3.4-3.4 + +4!:55 ;:'x y z' + +