8 lines
279 B
Plaintext
8 lines
279 B
Plaintext
(* Test CameLIGO 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
|