+^:(0>.1+]) +^:(0 (>.) 1 + ])
There's probably a reason for parenthesized maximum? Inspired by fixing ys at http://rosettacode.org/wiki/Yellowstone_sequence#tacit ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
