Mercurial > hg > jgplsrc
view 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 source
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