Cleaner:

           triangle =:  1&(,~ ~:/\^:_1)&(i. 0)
           dtz      =:  #~ +./\.@:~:&0
           fmtTrng  =:  ((|."_1~ i.&.-)~ ":@:dtz"1@:triangle@:<)&.(>: :. }.)

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

Reply via email to