Mercurial > hg > jgplsrc
view 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 |
parents | |
children |
line wrap: on
line source
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'