On Oct 31, 2007, at 3:24 AM, Edushka S. wrote:
mcs=:>./@:(-<./\)@:(0:,+/\)
in=:0 4 1 _2 1 _5 4 _3 5 _2 _1 2 6 _2 1 _1
mcs in
11
Your mcs has the same number of tokens as my mis in "Maximum Infix
Sums" in Vector 15.2, October 1998:
mis = ;[: >./ [: (0: >. +)/\. 0 ,~ ]
mis in
11
There is a family resemblance.
I credit the work I did as having derived from a K solution written by
Arthur Whitney:
f : { | 0 (0 | +) \ x}
Don't we have fun!
Eugene McDonnell
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
