Mercurial > hg > jgplsrc

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

x=. ?100$2
y=. ?100$2
(x-y) -: (#.x,.y){0 _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

0 _1 1 0 -: 0 0 1 1 - 0 1 0 1


NB. B - I ---------------------------------------------------------------

x=. ?100$2
y=. _1e5+?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=._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=. ?10$2    [ y=. _1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=. ?10 40$2 [ y=. _1e5+?10$2e5

1 0 _1 _2 -: 1 - i.4
2147483647 -: 0 - _2147483647
2147483648 -: 0 - _2147483648


NB. B - D ---------------------------------------------------------------

x=. ?100$2
y=. o._1e5+?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._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=. ?10$2    [ y=. o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=. ?10 40$2 [ y=. o._1e5+?10$2e5

_3.5 18.2 -: 1 - 4.5 _17.2


NB. I - B ---------------------------------------------------------------

x=. _1e5+?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=._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

5 3 8 -: 6 4 9 - 1
_2147483648 -: _2147483647 - 1
_2147483649 -: _2147483648 - 1


NB. I - I ---------------------------------------------------------------

x=. _1e5+?100$2e5
y=. _1e5+?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=.?2e6
(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

_6 _4 _2 -: 3 4 5 - 9 8 7
_3e8 -: _1e8 - 2e8
_3e9 -: _1e9 - 2e9
2147483650 -: 2 - _2147483648


NB. I - D ---------------------------------------------------------------
      
x=. _1e5+?100$2e5
y=. o._1e5+?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=.?2e6
(x-z) -: x-($x)$z    [ z=.o._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=. _1e5+?10$2e5    [ y=. o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=. _1e5+?10 40$2e5 [ y=. o._1e5+?10$2e5

65 _38.8 -: 45 _23 - _20 15.8


NB. D - B ---------------------------------------------------------------

x=. o._1e5+?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._1e5+?2e5
(x-z) -: x-($x)$z    [ z=.?2

(x-y) -: (40$"0 x)-y [ x=. o._1e5+?10$2e5    [ y=. ?10 40$2
(x-y) -: x-40$"0 y   [ x=. o._1e5+?10 40$2e5 [ y=. ?10$2

2.14159 3.14159 -: 3.14159 - 1 0


NB. D - I ---------------------------------------------------------------

x=. o._1e5+?100$2e5
y=. _1e5+?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._1e5+?2e5
(x-z) -: x-($x)$z    [ z=._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=. o._1e5+?10$2e5    [ y=. _1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=. o._1e5+?10 40$2e5 [ y=. _1e5+?10$2e5

2.14159 5.14159 -: 3.14159 - 1 _2


NB. D - D ---------------------------------------------------------------

x=. o._1e5+?100$2e5
y=. o._1e5+?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._1e5+?2e5
(x-z) -: x-($x)$z    [ z=.o._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=. o._1e5+?10$2e5    [ y=. o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=. o._1e5+?10 40$2e5 [ y=. o._1e5+?10$2e5

3 -: 3.14159 - 0.14159

4!:55 ;:'x y z'