diff 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 diff
new file mode 100644
--- /dev/null
+++ b/test/g111a.ijs
@@ -0,0 +1,62 @@
+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'
+
+