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'