Ignore:
Timestamp:
Sep 20, 2010, 10:35:53 AM (10 years ago)
Author:
mulligan
Message:

int_of_vect implemented.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/Byte.ml

    r86 r88  
    6161  type bit = Bit.bit
    6262  type nibble = Nibble.nibble
    63   type byte = nibble * nibble
     63  type byte = nibble * nibble(l -&- r) -|- (c -&- (l -^- r)
    6464
    6565  let from_bits b1 b2 b3 b4 b5 b6 b7 b8 =
     
    138138  let to_int (n1, n2) =
    139139    let [b1; b2; b3; b4] = Nibble.to_bits n1 in
    140     let [b5; b6; b7; b8] = Nibble.to_bits n2 in
     140    let [b5; b6; b7;h b8] = Nibble.to_bits n2 in
    141141      (128 * Bit.to_int b8) + (64 * Bit.to_int b8) +
    142142      (32 * Bit.to_int b8) + (16 * Bit.to_int b8) +
Note: See TracChangeset for help on using the changeset viewer.