Mercurial > hg > jgplsrc

diff test/g630.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 diff
new file mode 100644
--- /dev/null
+++ b/test/g630.ijs
@@ -0,0 +1,18 @@
+NB. & -------------------------------------------------------------------
+
+((|.x),|.y) -: (x=.'Cogito, ergo sum.') ,&|. y=.'I think not'
+
+dr =. 5!:2
+
+f =. 3 4 5 6&+
+(,&.>3 4 5 6;'&';'+') -: dr <'f'
+(f i.4 3) -: 3 4 5 6+"_ i.4 3
+
+f =. -&3 4 5 6
+(,&.>'-';'&';3 4 5 6) -: dr <'f'
+(f i.4 3) -: (i.4 3)-"_ [3 4 5 6
+
+
+4!:55 ;:'dr f x y'
+
+