Mercurial > hg > jgplsrc

view 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 source

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'