mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
ee76350044
library/int16.m:
library/uint16.m:
Add num_zeros/1, num_ones/1, num_leading_zeros/1, num_trailing_zeros/1
and reverse_bits/1.
tests/hard_coded/Mmakefile:
tests/hard_coded/bit_twiddle_uint16.{m,exp}:
tests/hard_coded/bit_twiddle_int16.{m,exp}:
Add tests of the above.
60 lines
1.9 KiB
Plaintext
60 lines
1.9 KiB
Plaintext
*** Test function 'num_zeros' ***
|
|
|
|
num_zeros(0000000000000000) = 16
|
|
num_zeros(0000000000000001) = 15
|
|
num_zeros(0000000000000010) = 15
|
|
num_zeros(0000000000001000) = 15
|
|
num_zeros(0000000000010000) = 15
|
|
num_zeros(0000000011111111) = 8
|
|
num_zeros(1111111111111111) = 0
|
|
|
|
*** Test function 'num_ones' ***
|
|
|
|
num_ones(0000000000000000) = 0
|
|
num_ones(0000000000000001) = 1
|
|
num_ones(0000000000000010) = 1
|
|
num_ones(0000000000001000) = 1
|
|
num_ones(0000000000010000) = 1
|
|
num_ones(0000000011111111) = 8
|
|
num_ones(1111111111111111) = 16
|
|
|
|
*** Test function 'num_leading_zeros' ***
|
|
|
|
num_leading_zeros(0000000000000000) = 16
|
|
num_leading_zeros(0000000000000001) = 15
|
|
num_leading_zeros(0000000000000010) = 14
|
|
num_leading_zeros(0000000000001000) = 12
|
|
num_leading_zeros(0000000000010000) = 11
|
|
num_leading_zeros(0000000011111111) = 8
|
|
num_leading_zeros(1111111111111111) = 0
|
|
|
|
*** Test function 'num_trailing_zeros' ***
|
|
|
|
num_trailing_zeros(0000000000000000) = 16
|
|
num_trailing_zeros(0000000000000001) = 0
|
|
num_trailing_zeros(0000000000000010) = 1
|
|
num_trailing_zeros(0000000000001000) = 3
|
|
num_trailing_zeros(0000000000010000) = 4
|
|
num_trailing_zeros(0000000011111111) = 0
|
|
num_trailing_zeros(1111111111111111) = 0
|
|
|
|
*** Test function 'reverse_bits' ***
|
|
|
|
reverse_bits(0000000000000000) = 0000000000000000
|
|
reverse_bits(0000000000000001) = 1000000000000000
|
|
reverse_bits(0000000000000010) = 0100000000000000
|
|
reverse_bits(0000000000001000) = 0001000000000000
|
|
reverse_bits(0000000000010000) = 0000100000000000
|
|
reverse_bits(0000000011111111) = 1111111100000000
|
|
reverse_bits(1111111111111111) = 1111111111111111
|
|
|
|
*** Test function 'reverse_bytes' ***
|
|
|
|
reverse_bytes(0000000000000000) = 0000000000000000
|
|
reverse_bytes(0000000000000001) = 0000000100000000
|
|
reverse_bytes(0000000000000010) = 0000001000000000
|
|
reverse_bytes(0000000000001000) = 0000100000000000
|
|
reverse_bytes(0000000000010000) = 0001000000000000
|
|
reverse_bytes(0000000011111111) = 1111111100000000
|
|
reverse_bytes(1111111111111111) = 1111111111111111
|