Coming to this late but here's my version anyway:

shuffle=: {~ [: ?~ #
spacing=: [: , ' '&,.
pad=: |."_1~ i.&.-@#
gw=: [: pad spacing@shuffle\  NB. what does gw stand for?

   gw 'cherrytree'
          c
         c h
        e c h
       c h r e
      c r h r e
     r e c y h r
    y t e h r r c
   r h r r y c e t
  r r h r c e e t y
 h e c r e r t y r e
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to