RE: [Jprogramming] Longest run from a list

[Brian Schott]

        I don't understand Henry's approach. Here is mine.

   sq=:#={:>:@-{.
   a =: 2 4 5 6 12
   b =: 1 2 3 4 5 6
   c =: 1 12 13 13 14
   seq =: 3 : 0
i =. # y
while. -. i +./@(sq\) y do. i =. <: i end.
)

   seq a
3
   seq b
6
   seq c
2

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm