diff test/g612.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/g612.ijs
@@ -0,0 +1,26 @@
+NB. x`:y ----------------------------------------------------------------
+
+f =: - ` % ` ^ `: 0
+y =: 2 3
+x =: 5 7
+(( -y),( %y),: ^y) -:   f y
+((5-y),(5%y),:5^y) -: 5 f y
+((x-y),(x%y),:x^y) -: x f y
+
+(;/ -: ;`;`:3) x=: 10   ?@$ 1e6
+(;/ -: ;`;`:3) x=: 10 3 ?@$ 1e6
+
+'domain error' -: ex '-`a`:0 ' [ a=: 5!:1 <'plus' [ plus=: '+'
+'domain error' -: ex '-`a/ '
+'domain error' -: ex '-`a/.'
+'domain error' -: ex '-`a\ '
+'domain error' -: ex '-`a\.'
+'domain error' -: ex '-`a;. 1'
+'domain error' -: ex '-`a;._1'
+'domain error' -: ex '-`a;. 2'
+'domain error' -: ex '-`a;._2'
+
+
+4!:55 ;:'a f x y'
+
+