I don't understand what Y is, could you explain that?
On 14 Dec 2015, at 17:10, 'Pascal Jasmin' via Programming wrote:
> in =. ". leaf (3 8 _2 { ;:)"1 a =. > cutLF wdclippaste ''
> Y =: (&({::))(@:])
>
> part1 :
>
>> ./ {:"1 +/\@(2503 $ (0 #~ 2 Y) ,~ 1 Y # 0 Y)"1 in
>
> 2:
>
>> ./ (] +/@(="1 1) >./) +/\@(2503 $ (0 #~ 2 Y) ,~ 1 Y # 0 Y)"1 in
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
