2019-10-25 16:12:54 -07:00
|
|
|
(* Test CameLIGO bitwise operators *)
|
|
|
|
|
2020-02-25 18:07:53 +01:00
|
|
|
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
|
2020-02-06 16:17:33 +01:00
|
|
|
let lsl_op (n: nat) : nat = Bitwise.shift_left n 7n
|
|
|
|
let lsr_op (n: nat) : nat = Bitwise.shift_right n 7n
|