Mercurial > hg > jgplsrc
comparison test/gsp521.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 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:e0bbaa717f41 |
|---|---|
| 1 NB. {. ------------------------------------------------------------------- | |
| 2 | |
| 3 (scheck x{.$.y), (x=:_5 _10+?12 24) ({. -: {.&.$.) y=: ? 12 24 3$2 | |
| 4 (scheck x{.$.y), (x=:_5 _10+?12 24) ({. -: {.&.$.) y=: _10+? 12 24 3$21 | |
| 5 (scheck x{.$.y), (x=:_5 _10+?12 24) ({. -: {.&.$.) y=: o._10+? 12 24 3$21 | |
| 6 (scheck x{.$.y), (x=:_5 _10+?12 24) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21 | |
| 7 | |
| 8 (scheck x{.$.y), (x=:0 ) ({. -: {.&.$.) y=: ? 12 24 3$2 | |
| 9 (scheck x{.$.y), (x=:3 2 0 ) ({. -: {.&.$.) y=: _10+? 12 24 3$21 | |
| 10 (scheck x{.$.y), (x=:2 0 3 ) ({. -: {.&.$.) y=: o._10+? 12 24 3$21 | |
| 11 (scheck x{.$.y), (x=:2 0 ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21 | |
| 12 | |
| 13 (scheck x{.$.y), (x=:_ ) ({. -: {.&.$.) y=: ? 12 24 3$2 | |
| 14 (scheck x{.$.y), (x=:3 2 _ ) ({. -: {.&.$.) y=: _10+? 12 24 3$21 | |
| 15 (scheck x{.$.y), (x=:2 _ 3 ) ({. -: {.&.$.) y=: o._10+? 12 24 3$21 | |
| 16 (scheck x{.$.y), (x=:2 _ ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21 | |
| 17 | |
| 18 (scheck x{.$.y), (x=:__ ) ({. -: {.&.$.) y=: ? 12 24 3$2 | |
| 19 (scheck x{.$.y), (x=:3 2 __) ({. -: {.&.$.) y=: _10+? 12 24 3$21 | |
| 20 (scheck x{.$.y), (x=:2 __ 3) ({. -: {.&.$.) y=: o._10+? 12 24 3$21 | |
| 21 (scheck x{.$.y), (x=:2 __ ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21 | |
| 22 | |
| 23 (x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: 2 3 5$1 | |
| 24 (x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: 1+?2 3 5$21 | |
| 25 (x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: o. 1+?2 3 5$21 | |
| 26 (x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: j./1+?2 3 5$21 | |
| 27 | |
| 28 (scheck x{."1$.y), (x=:12 -~?25 ) ({."1 -: {."1&.$.) y=:_10+?12 24 3$21 | |
| 29 (scheck x{."2$.y), (x=:12 24 -~?25 49 ) ({."2 -: {."2&.$.) y=:_10+?12 24 3$21 | |
| 30 (scheck x{."3$.y), (x=:12 24 3-~?25 49 7) ({."3 -: {."3&.$.) y=:_10+?12 24 3$21 | |
| 31 | |
| 32 x=: _1 2 | |
| 33 y=: 10*i.2 3 4 | |
| 34 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 )$.$.y | |
| 35 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 )$.$.y | |
| 36 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 )$.$.y | |
| 37 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 1 )$.$.y | |
| 38 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 2 )$.$.y | |
| 39 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 0 )$.$.y | |
| 40 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 2 )$.$.y | |
| 41 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 0 )$.$.y | |
| 42 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 1 )$.$.y | |
| 43 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 1 2)$.$.y | |
| 44 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 2 1)$.$.y | |
| 45 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 0 2)$.$.y | |
| 46 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 2 0)$.$.y | |
| 47 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 0 1)$.$.y | |
| 48 (scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 1 0)$.$.y | |
| 49 | |
| 50 | |
| 51 4!:55 ;:'e t x y' | |
| 52 | |
| 53 |