Revision 88

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
  '<1>'('abcde' *|('bd'))$;
'<2>'(1 2 3 4 5 *|(2 4))$;
'<3>'('1' '2' '3' '4' '5' *|('2' '4'))$;		 <1>01010
<2>01010
<3>01010
  '<1a>'('abcdebc'    *&('bc'))$;
'<1b>'('abcdebc' @> *&('bc'))$;
'<2a>'('abcdebc'    *&('bc'#grep))$;
'<2b>'('abcdebc' @> *&('bc'#grep))$;
'<3a>'(1 2 3 4 5 2 3    *&(2 3))$;
'<3b>'(1 2 3 4 5 2 3 @> *&(2 3))$;
'<4a>'(1 2 3 4 5 2 3,|    *&(2 3,|))$;
'<4b>'(1 2 3 4 5 2 3,| @> *&(2 3,|))$;		 <1a>0100010
<1b>0010001
<2a>0100010
<2b>0010001
<3a>0100010
<3b>0010001
<4a>0100010
<4b>0010001
  '<1a>'('abcdebc'     *=('AbCdEfc'))$;
'<1b>'('abcdebc' @== *=('AbCdEfc'))$;
'<2 >'(1 2 3 4 5 2 3    *=(10 2 30 4 50 2 30))$;
'<3 >'(1 2 3 4 5 2 3,|  *=(10 2 30 4 50 2 30,|))$; 		 <1a>1111101
<1b>0101001
<2 >0101010
<3 >0101010
  '<1a>'('aBCe'      ^|('bd'))$;
'<1b>'('aBCe' @==  ^|('bd'))$;
'<2 >'(1 2 3 4 5   ^|(5 6))$;
'<3 >'(1 2 3 4 5,| ^|(5 6,|))$; 		 <1a>1
<1b>0
<2 >1
<3 >1 
  '<1a>'('aBCe'      ^&('bc'))$;
'<1b>'('aBCe' @==  ^&('bc'))$;
'<2 >'(1 2 3 4 5   ^&(4 5))$;
'<3 >'(1 2 3 4 5,| ^&(4 5,|))$;		 <1a>1
<1b>0
<2 >1
<3 >1
  'abc' =>s;
s @<- 2;
s:props$;
s@ =>x;
'xyz'->>x;
s %**$;
s:props $;		 D[X]; PPos[0]; B[N]; E[N]; Pos[2]; NE[3]
String[R3C4:C]axyz
D[X]; PPos[0]; B[N]; E[N]; Pos[5]; NE[4]
Commentary 1 2 5 10 20 50 100 200 500 1000 2000 5000 10000 20000 50000 100000 200000 1e6/ =>r;
r #log *20 =>db;
r/ ,|db@& %* (11.3 10.4),,\$;		       1.000    0.0000
      2.000   -6.0206
      5.000  -13.9794
     10.000  -20.0000
     20.000  -26.0206
     50.000  -33.9794
    100.000  -40.0000
    200.000  -46.0206
    500.000  -53.9794
   1000.000  -60.0000
   2000.000  -66.0206
   5000.000  -73.9794
  10000.000  -80.0000
  20000.000  -86.0206
  50000.000  -93.9794
 100000.000 -100.0000
 200000.000 -106.0206
1000000.000 -120.0000
Commentary ('a'1)('b'2)%%(3 5)%** $; Seq[R1C3:K]
[1]Seq[R1C5:K]
*[1]String[R4C1:C]a
*[2]Num[R4C1:I]1
*[3]String[R4C1:C]b
*[4]Num[R3C1:I]2
*[5]String[R4C1:C]a
[2]Seq[R1C5:K]
*[1]Num[R4C1:I]1
*[2]String[R4C1:C]b
*[3]Num[R3C1:I]2
*[4]String[R4C1:C]a
*[5]Num[R4C1:I]1
[3]Seq[R1C5:K]
*[1]String[R4C1:C]b
*[2]Num[R3C1:I]2
*[3]String[R4C1:C]a
*[4]Num[R4C1:I]1
*[5]String[R4C1:C]b
  1..10 %%(3 5)%**$; Seq[R1C3:K]
[1]Num[R1C5:I]1 2 3 4 5
[2]Num[R1C5:I]6 7 8 9 10
[3]Num[R1C5:I]1 2 3 4 5
  'a'..'z'%%(3 5)%**$; Seq[R1C3:K]
[1]String[R1C5:C]abcde
[2]String[R1C5:C]fghij
[3]String[R1C5:C]klmno
  'a'..'z',| %%(5 3) %\% ,,$; a d g j m
b e h k n
c f i l o