deb L:0@:(({.~ ; [: < [: ;^:(1=#) ',' cut (}.~>:)) i.&1@:e.&' =')&>@(#~
> a:&~: > ';#'e.~{.&>)@:(dlb&.>)@:(LF&cut)
completely untested if the following is equivalent, but:
3 : ' deb leaf (({.~ ; [: < [: ;^:(1=#) ',' cut (}.~>:)) i.&1@:e.&' =')&>@(#~
> a:&~: > ';#' e.~ {.&>) dlb each LF cut y'
is a little better? (took out "unnecessary" @:, and spaced out verb trains)
further clarity could be achieved with verb names:
docomment
doassign
doboolean
which I am guessing would take care of replacing the longer trains (or parts
thereof) in the middle.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
