Revision 80

This is my regression reference for older stuff in revision and new stuff in experimentation aligned to upload version number. As I work on new features and correct problems with old ones, I collect my test cases here. They become part of my regression testing as well as notes of documentation I must complete.

Commentary Code Result
Commentary '<1>' (2 @>< /4) $;
'<2>' (3 @>< - 7) $;
'<3>' (123 %* @>< ,'0' *->6) $;
'div'#op{l__ / r__};
'<4>' (3 div 4 )$;
'<5>' (3 @>< div 4) $;
'<6>' (1 2 3 @>< /7 %**) $;
'<7>' (1 2 3 @& (@>< /7) %**) $; 		<1>2
<2>4
<3>000123

<4>0.75
<5>1.33333
<6>Num[R1C3:F]7 3.5 2.33333
<7>Seq[R1C3:K]
[1]Num[R1C1:F]7
[2]Num[R1C1:F]3.5
[3]Num[R1C1:F]2.33333
Commentary '<1>'(0 0 1 0 0 1 *=1 =>bv )$;
'<2>'(bv /| )$;		 <1>001001
<2>001111
Commentary '<1>'(1 1 1 0 0 1 0 *=1 =>bv )$;
'<2>'(bv /& )$;		 <1>1110010
<2>1110000
Commentary #nil =>n;
'<1>' (n n 10 n n 12 n < =>v)$;
'<2>' (v     /<> )$;
'<3>' (v @<  /<> )$;
'<4>' (v @>  /<> )$;
'<5>' (v @== /<> )$;		  
<1>Nil Nil 10 Nil Nil 12 Nil
<2>10 10 10 10 10 12 12
<3>10 10 10 10 10 12 12
<4>10 10 10 12 12 12 12
<5>10 10 10 10.6667 11.3333 12 12
Commentary 2 8 6 =>v;
'0001001010'*|'1'=>b %**$;
v     /<> b %**$;
v @<  /<> b %**$;
v @>  /<> b %**$;
v @== /<> b %**$; 		  
Bit[R1C10:B]00010010 10
Num[R1C10:I]2 2 2 2 2 2 8 8 6 6
Num[R1C10:I]2 2 2 2 2 2 8 8 6 6
Num[R1C10:I]2 2 2 2 8 8 8 6 6 6
Num[R1C10:F]2 2 2 2 4 6 8 7 6 6
Commentary 2 8 6 =>v;
4 3 2 =>c;
v     /<> c %**$;
v @<  /<> c %**$;
v @>  /<> c %**$;
v @== /<> c %**$;		  
 
Num[R1C9:I]2 2 2 2 8 8 8 6 6
Num[R1C9:I]2 2 2 2 8 8 8 6 6
Num[R1C9:I]2 8 8 8 8 6 6 6 6
Num[R1C9:F]2 3.5 5 6.5 8 7.33333 6.66667 6 6