7 lines
319 B
Plaintext
7 lines
319 B
Plaintext
/* Test ReasonLigo bitwise operators */
|
|
|
|
let or_op = (n : nat) : nat => Bitwise.or (n, 4n);
|
|
let and_op = (n : nat) : nat => Bitwise.and (n, 7n);
|
|
let xor_op = (n : nat) : nat => Bitwise.xor (n, 7n);
|
|
let lsl_op = (n : nat) : nat => Bitwise.shift_left (n, 7n);
|
|
let lsr_op = (n : nat) : nat => Bitwise.shift_right (n, 7n); |