> From: Sherlock, Ric
...
> Or:
>
> |:@(, }.@|.)^:2 (= {"1 ' '&,.)&.|. (65}.a.)&(>:@i. {. [) 'E'
> |:@(, }.@|.)^:2 ({.&>~ # {. i:@#) (65}.a.)&(>:@i. {. [) 'E'
> (, }.@|.)|:(|. , }.) (= {"1 ' ',.])'A'([ + i...@-.@-)&.(a.&i.) 'E'
...
Sorry, I had only meant to include the first line (my hybrid version) of these
3 lines.
For the curious, the 2nd uses an alternative method for creating the diagonal
letters,
the last is Dan's complete version.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
