Mercurial > hg > jgplsrc
view test/gsp531.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. }. ------------------------------------------------------------------- (scheck x}.$.y), (x=:_5 _10+?12 24) (}. -: }.&.$.) y=: ? 12 24 3$2 (scheck x}.$.y), (x=:_5 _10+?12 24) (}. -: }.&.$.) y=: _10+? 12 24 3$21 (scheck x}.$.y), (x=:_5 _10+?12 24) (}. -: }.&.$.) y=: o._10+? 12 24 3$21 (scheck x}.$.y), (x=:_5 _10+?12 24) (}. -: }.&.$.) y=: j./o._10+?2 12 24 3$21 (scheck x}.$.y), 100 (}. -: }.&.$.) y=: ? 12 24 3$2 (scheck x}.$.y), 3 _100 (}. -: }.&.$.) y=: _10+? 12 24 3$21 (scheck x}.$.y), _9 90 3(}. -: }.&.$.) y=: o._10+? 12 24 3$21 (scheck x}.$.y), 200 (}. -: }.&.$.) y=: j./o._10+?2 12 24 3$21 (scheck x}."1]$.y), (x=:12 -~?25 ) (}."1 -: }."1&.$.) y=:_10+?12 24 3$21 (scheck x}."2]$.y), (x=:12 24 -~?25 49 ) (}."2 -: }."2&.$.) y=:_10+?12 24 3$21 (scheck x}."3]$.y), (x=:12 24 3-~?25 49 7) (}."3 -: }."3&.$.) y=:_10+?12 24 3$21 4!:55 ;:'x y'