load 'viewmat'
GRB=:1 0 2{"1 (#:i.8){0 255
rpt=: 13 :'(A=:x?x) + / B=:y?y'
rptable=: 13 :'(A=:x?x) + table B=:y?y' -
eb=: 13 :'y $<'' '''
boxes=: 13 :'([:<eb)"1 >"0 <"1 (>:i.x),"0 / >:i.y'
i.4
>:i.4
i. 21
|.i.21
(i.5) + table i.6
+ table i.4
A=:+ / ~ i. 11
]A
]A=:11
]B=:i.11
]C=:B + / B
B + table B
GRB viewmat C
GRB viewmat C;'Plus'
D=:(10 + B) - / B
GRB viewmat D;'Minus'
<. table ~ i.11
]E=: <. / ~ i.11
GRB viewmat E;'Lesser Of'
>.table ~ i.11
]F=:>. / ~ i.11
GRB viewmat F;'Larger Of'
5?5
>:5?5
]G=:5?5
]H=:7?7
G + / H
rpt=: 13 :'(G=:x?x) + / H=:y?y'
5 rpt 7
G
H
G + / H
rptable=: 13 :'(G=:x?x) + table H=:y?y'
5 rptable 7
G
H
I=:11 rpt 11
GRB viewmat I
NB.GRB viewmat I;'Random + /' NB. works in jqt but not in JHS
G
H
G + table H
]J=:'Anne Bob Carolyn DavE Ed' NB. Same
$J NB. Shape Of
|.J NB. Reverse
$|.J
;:J NB. Words
$;:J
|.;:J
$|.;:J
>;:J NB. 0pen
$>;:J
|.>;J
$|.>;:J
<>;:J
$<>;:J
,>;:J
$,>;:J
2#J NB. Copy items of list
$2#J
2#;:J NB. Copy boxes in list
$2#;:J
2#>;:J NB. Copy Items in Columns of Table
$2#>;:J
2#"1 >;:J NB. Copy Items in Rows of Table
$2#"1 >;:J
<'0'
2 6 $<'0' NB. Imagine a box of eggs
3 2 6$<'0' NB. Imagine 3 boxes in a stack
12#'*|V'
3 12$ 12#'*|V'
< 3 12$ 12#'*|V'
4# < 3 12$ 12#'*|V'
K=:(i.2) +: / i.2
GRB viewmat K;'Not-Or'
]L=:(i.2) *: / i.2
GRB viewmat L;'Not-And'
]M=:(i.10) = / i.10
GRB viewmat M;'Equal'
]N=:(i.10) ~: / i.10
GRB viewmat N;'Not Equal'
]O=:(i.10) < / i.10
GRB viewmat O;'Less Than'
]P=:(i.10) > / i.10
GRB viewmat P;'Larger Than'
]Q=:(i.10) <: / i.10
GRB viewmat Q;'Less Or Equal'
]R=:(i.10) >: / i.10
GRB viewmat R;'Larger Or Equal'
S=:(i.10) -: / i.10
GRB viewmat S;'Match'
2 3 2 $ (<"2)2 6$<'0'
b=: 13 :'y $<'' '''
eb 2 3
2 boxes 4
boxes 3
,boxes 3
$,boxes 3
]V=: 10 10 $ i.100
GRB viewmat V;'1 to 99'
W=:100 100$i.10000
GRB viewmat W;'1 to 9999'
X=:1000 1000$i.1e6
GRB viewmat X;'1 to 9999999'
NB.Behind the scene
GRB
rpt
rptable
eb
boxes
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
