Mercurial > hg > jgplsrc
view test/g622.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 source
NB. @: ------------------------------------------------------------------ ( x*y) -: (x=.?10$200) +/@ * (y=.?10$2000) (+/x*y) -: (x=.?10$200) +/@:* (y=.?10$2000) 'domain error' -: ". etx '3 @: +' 'domain error' -: ". etx '+ @: 3' 'domain error' -: ". etx '3 @: 3' 4!:55 ;:'x y'