Mercurial > hg > jgplsrc
diff test/gspj.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 (2013-11-25) |
parents | |
children |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/test/gspj.ijs @@ -0,0 +1,16 @@ +NB. j. ------------------------------------------------------------------ + +(scheck j. $.x), (j. -: j.&.$.) x=: _10+? 405$2 +(scheck j. $.x), (j. -: j.&.$.) x=: _10+? 3 4 5$21 +(scheck j. $.x), (j. -: j.&.$.) x=: o._10+? 3 4 5$21 +(scheck j. $.x), (j. -: j.&.$.) x=:j./o._10+?2 3 4 5$21 + +0 -: 3 $. j. $. 0 1 0 +0 -: 3 $. j. $. 2 3 4 +0 -: 3 $. j. $. 2 3.4 +0 -: 3 $. j. $. 2 3j4 + + +4!:55 ;:'x' + +