This is frustrating because they all appear single spaced in my sent folder.
Summary Code:
load 'viewmat'
GRB=:1 0 2{"1 (#:i.8){0 255
'GARFIELD CAT'
<"0 'GARFIELD CAT'
<"0 'SNOOPY DOG'
$'GARFIELD CAT'
$'SNOOPY DOG'
<"0 'GARFIELD SNOOPY'
$'GARFIELD SNOOPY'
$'FAT CAT'
5 + 1 2 3 4 5
8 7 6 + 2
8 6 4 2 + 4 3 2 1
>:i.10
]A=:>:i.10
A + A
+ ~ A
GRB viewmat A
|. >:i.10
GRB viewmat |.>:i.10
B=:2 4 6 + / 2 4 6 8 10
2 4 6 + table 2 4 6 8 10
GRB viewmat B
5 4 3 2 1 + / 5 4 3 2 1
+/~ 5 4 3 2 1
]C=:+ / ~ >:i.10
GRB viewmat C
+ table ~ >:i.10
8 - 3
7 - 5 4 3 2 1
10 - 6 4 7 8 3
5 3 6 5 - 4 2 3 3
]D=:14 16 18 -/ 3 6 9 12
14 16 18 - table 3 6 9 12
]E=:(10+>:i.10) -/ >:i.10
D=:(10+>:i.10) -/ >:i.10
GRB viewmat E
(10+>:i.10) - table >:i.10
]F=:>:6?6
]G=:>:6?6
F + table G
]H=:G +/ F
GRB viewmat H
]I=:F +/ G
|: G +/ F
GRB viewmat I
]J=:(>:10?10) + / >:10?10
GRB viewmat J
4 >. 7
2 3 6 4 >. 1 5 7 3
>.table ~ >:i.7
]K=: >./ ~ >:i.7
GRB viewmat K
7 = 8
9 = 9
+ / ~ >:i.4
4 = + / ~ >:i.4
]L=:9=+/~ >:i.8
GRB viewmat L
]M=: 6=+/~ >:i.9
GRB viewmat M
|.M
|.|:|.M
]N=:(|:|.M)+(|.|:|.M)+(|.M)+M
GRB viewmat N
*6
*0
*N
GRB viewmat *N
Handbook Code
load 'viewmat'
]GRB=:1 0 2{"1 (#:i.8){0 255
]A=: ;: 'Mila Lola Ann Bill Bob Jak Mia Kal Max'
$A
>A
3 3$A
2 5$A
8?8
>:8?8
>:($A)?$A
]B=:(($A)?$A){A
2 5$,B
3 3$,B
>(($A)?$A){A
]C=:<' + '
]D=:(<"0) 73 35 6 52
]E=:,.(<"0) 5 705 3
]R=:5 705 3 +/73 35 6 52
]ER=:($R)$<' '
C,D
E,"1 ER
(C,D),"2 E,"1 ER
]S=:(>:7?7) +/~ >:7?7
GRB viewmat S
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
