Scriots to copy and paste in JQT. First install J and then run JQT. Click
File, then Open Temp. Copy one of these scripts and paste it in the open
temp.
Run all lines. The results will appear in Term. You can then use all the
verbs and try additional examples. This is the 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
This is the 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
Please send a message to the programming forum it you encounter troubles.
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
