Or only using
>
>
> disp=: ('';t),s,.(]=[:<[){'';[
and:
'p1' disp a
+--+--+--+--+
| |t0|t1|t2|
+--+--+--+--+
|s0|p1|p1|p1|
+--+--+--+--+
|s1| | | |
+--+--+--+--+
|s2|p1| |p1|
+--+--+--+--+
|s3| |p1|p1|
+--+--+--+--+
|: 'p1' disp a
+--+--+--+--+--+
| |s0|s1|s2|s3|
+--+--+--+--+--+
|t0|p1| |p1| |
+--+--+--+--+--+
|t1|p1| | |p1|
+--+--+--+--+--+
|t2|p1| |p1|p1|
+--+--+--+--+--+
@@i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
