view 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
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), (x=:0     ) ({. -: {.&.$.) y=:          ?  12 24 3$2
(scheck x{.$.y), (x=:3 2 0 ) ({. -: {.&.$.) y=:      _10+?  12 24 3$21
(scheck x{.$.y), (x=:2 0 3 ) ({. -: {.&.$.) y=:    o._10+?  12 24 3$21
(scheck x{.$.y), (x=:2 0   ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21

(scheck x{.$.y), (x=:_     ) ({. -: {.&.$.) y=:          ?  12 24 3$2
(scheck x{.$.y), (x=:3 2 _ ) ({. -: {.&.$.) y=:      _10+?  12 24 3$21
(scheck x{.$.y), (x=:2 _ 3 ) ({. -: {.&.$.) y=:    o._10+?  12 24 3$21
(scheck x{.$.y), (x=:2 _   ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21

(scheck x{.$.y), (x=:__    ) ({. -: {.&.$.) y=:          ?  12 24 3$2
(scheck x{.$.y), (x=:3 2 __) ({. -: {.&.$.) y=:      _10+?  12 24 3$21
(scheck x{.$.y), (x=:2 __ 3) ({. -: {.&.$.) y=:    o._10+?  12 24 3$21
(scheck x{.$.y), (x=:2 __  ) ({. -: {.&.$.) y=: j./o._10+?2 12 24 3$21

(x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=:       2 3 5$1 
(x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=:    1+?2 3 5$21
(x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: o. 1+?2 3 5$21
(x {.!.e y) -: $.^:_1 (x=: 10 20){. (3;e=:?100)$.$.y=: j./1+?2 3 5$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

x=: _1 2
y=: 10*i.2 3 4
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0    )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1    )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2    )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 1  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 2  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 0  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 2  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 0  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 1  )$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 1 2)$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;0 2 1)$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 0 2)$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;1 2 0)$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 0 1)$.$.y
(scheck x{.t), (x{.y) -: $.^:_1 x{.t=: (2;2 1 0)$.$.y


4!:55 ;:'e t x y'