08 July 2019 06:54:28 PM

I8LIB_TEST
  C version
  Test the I8LIB routines.

i8_abs_test
  i8_abs() returns the absolute value of an I8.

       a       b=i8_abs(a)

       -57        57
        92        92
        66        66
        12        12
       -17        17
       -87        87
       -49        49
       -78        78
       -92        92
        27        27

i8_choose_test
  I8_CHOOSE evaluates C(N,K).

     N     K    CNK

     0       0       1
     1       0       1
     1       1       1
     2       0       1
     2       1       2
     2       2       1
     3       0       1
     3       1       3
     3       2       3
     3       3       1
     4       0       1
     4       1       4
     4       2       6
     4       3       4
     4       4       1

i8_xor_test
  I8_XOR returns the bitwise exclusive OR of
  two I8's.
  The operator ^ should generally be used instead.

       I       J  I8_XOR     I^J

      22      96     118     118
      83      56     107     107
      41       6      47      47
      26      11      17      17
       4      64      68      68
       6      45      43      43
      40      76     100     100
      80       0      80      80
      90      35     121     121
       9       1       8       8

I8LIB_TEST
  Normal end of execution.

08 July 2019 06:54:28 PM