Mercurial > hg > jgplsrc
diff test/g032.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 diff
new file mode 100644 --- /dev/null +++ b/test/g032.ijs @@ -0,0 +1,39 @@ +NB. _: ------------------------------------------------------------------ + +_ -: _: 1=?2 3 4$2 +_ -: _: a.{~? 10##a. +_ -: _: _20+?3 2$40 +_ -: _: o. _20+?13$40 +_ -: _: r.?13$40 + +_ -: (1=?2 3 4$2 ) _: 1=?2 3 4$2 +_ -: (1=?2 3 4$2 ) _: a.{~? 10##a. +_ -: (1=?2 3 4$2 ) _: _20+?3 2$40 +_ -: (1=?2 3 4$2 ) _: o. _20+?13$40 +_ -: (1=?2 3 4$2 ) _: r.?13$40 + +_ -: (a.{~? 10##a. ) _: 1=?2 3 4$2 +_ -: (a.{~? 10##a. ) _: a.{~? 10##a. +_ -: (a.{~? 10##a. ) _: _20+?3 2$40 +_ -: (a.{~? 10##a. ) _: o. _20+?13$40 +_ -: (a.{~? 10##a. ) _: r.?13$40 + +_ -: (_20+?3 2$40 ) _: 1=?2 3 4$2 +_ -: (_20+?3 2$40 ) _: a.{~? 10##a. +_ -: (_20+?3 2$40 ) _: _20+?3 2$40 +_ -: (_20+?3 2$40 ) _: o. _20+?13$40 +_ -: (_20+?3 2$40 ) _: r.?13$40 + +_ -: (o. _20+?13$40) _: 1=?2 3 4$2 +_ -: (o. _20+?13$40) _: a.{~? 10##a. +_ -: (o. _20+?13$40) _: _20+?3 2$40 +_ -: (o. _20+?13$40) _: o. _20+?13$40 +_ -: (o. _20+?13$40) _: r.?13$40 + +_ -: (r.?13$40 ) _: 1=?2 3 4$2 +_ -: (r.?13$40 ) _: a.{~? 10##a. +_ -: (r.?13$40 ) _: _20+?3 2$40 +_ -: (r.?13$40 ) _: o. _20+?13$40 +_ -: (r.?13$40 ) _: r.?13$40 + +