home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nihcl-3.0 / vectest / bytevec.v < prev    next >
Encoding:
Text File  |  1990-05-16  |  4.2 KB  |  79 lines
  1. Test Vector ByteVec class
  2. IntVec I(3,1,2):          1         3         5
  3. ByteVec A(10,1):          1         2         3         4         5         6         7         8
  4.              9        10
  5. ByteVec B = reverse(ByteVec(10,1,1)):         10         9         8         7         6         5         4         3
  6.              2         1
  7. ByteVec D(10,3,1):          3         4         5         6         7         8         9        10
  8.             11        12
  9. reverse(D):         12        11        10         9         8         7         6         5
  10.              4         3
  11. ByteVec T(A):          1         2         3         4         5         6         7         8
  12.              9        10
  13. ByteVec U(A(0,5,2)):          1         3         5         7         9
  14. C = U:          1         3         5         7         9
  15. C = C:          1         3         5         7         9
  16. C = A(0,5,2):          1         3         5         7         9
  17. C = A; C = C(0,5,2):          1         3         5         7         9
  18. C = A[A>B]:          6         7         8         9        10
  19. C = A;  C = C[C>B]:          6         7         8         9        10
  20. C = A[I]:          2         4         6
  21. C = A;  C = C[I]:          2         4         6
  22. C = 0:          0         0         0
  23. C = A;  C(0,5,2) = ByteVec(5,50,0):         50         2        50         4        50         6        50         8
  24.             50        10
  25. C(1,5,2) = C(0,5,2):         50        50        50        50        50        50        50        50
  26.             50        50
  27. C(0,3,1) = A[I]:          2         4         6        50        50        50        50        50
  28.             50        50
  29. C(3,3,1) = A[A<=3]:          2         4         6         1         2         3        50        50
  30.             50        50
  31. C(0,6,1) = 0:         0         0         0         0         0         0        50        50
  32.             50        50
  33. C++:          1         1         1         1         1         1        51        51
  34.             51        51
  35. C = D-B:          2         2         2         2         2         2         2         2
  36.              2         2
  37. C = A-1:          0         1         2         3         4         5         6         7
  38.              8         9
  39. C = 1+A:          2         3         4         5         6         7         8         9
  40.             10        11
  41. A>B: 0 0 0 0 0 1 1 1 1 1 
  42. A<=5: 1 1 1 1 1 0 0 0 0 0 
  43. 5<A: 0 0 0 0 0 1 1 1 1 1 
  44. C = A;  C += A:          2         4         6         8        10        12        14        16
  45.             18        20
  46. C -= 1:          1         3         5         7         9        11        13        15
  47.             17        19
  48. C = A; C[I] =  ByteVec(3,50,0):          1        50         3        50         5        50         7         8
  49.              9        10
  50. C[I] = A[I]:          1         2         3         4         5         6         7         8
  51.              9        10
  52. C[I] = A[A<=3]:          1         1         3         2         5         3         7         8
  53.              9        10
  54. C[I] = A(0,3,2):          1         1         3         3         5         5         7         8
  55.              9        10
  56. C[I] = 50:          1        50         3        50         5        50         7         8
  57.              9        10
  58. C = A; C[A<=5] = ByteVec(5,50,0):         50        50        50        50        50         6         7         8
  59.              9        10
  60. C = A; C[A<=3] = A[I]:          2         4         6         4         5         6         7         8
  61.              9        10
  62. C = A; C[A<=5] = B[A<=5]:         10         9         8         7         6         6         7         8
  63.              9        10
  64. C = A; C[A<=5] = A(0,5,1):          1         2         3         4         5         6         7         8
  65.              9        10
  66. C = A; C[A<=5] = 0:          0         0         0         0         0         6         7         8
  67.              9        10
  68. C = A[A<=5] + B[B<=5]:          6         6         6         6         6
  69. cumsum(ByteVec(10,1)):          1         3         6        10        15        21        28        36
  70.             45        55
  71. delta(cumsum(ByteVec(10,1))):          1         2         3         4         5         6         7         8
  72.              9        10
  73. dot(A,B): 220
  74. max(A): 9
  75. min(A): 0
  76. prod(A(0,5,1)): 120
  77. sum(A): 55
  78. C = A[I] + B[I]:         11        11        11
  79.