ligo/src/test/contracts/bitwise_arithmetic.mligo

(* Test CameLIGO bitwise operators *)

let or_op (n : nat) : nat =
  Bitwise.lor n 4p

let and_op (n : nat) : nat =
  Bitwise.land n 7p

let xor_op (n : nat) : nat =
  Bitwise.lxor n 7p
Add bitwise operators to CameLIGO Right now they're defined as '.bor' and '.band' because of a glitch in CameLIGO's parser where 'X.Y' leads to a parse error if Y is a keyword or reserved word in CameLIGO. 2019-10-25 16:12:54 -07:00			`(* Test CameLIGO bitwise operators *)`

			`let or_op (n : nat) : nat =`
Change names to the standard library names for the functions in OCaml 2019-10-27 12:05:34 -07:00			`Bitwise.lor n 4p`
Add bitwise operators to CameLIGO Right now they're defined as '.bor' and '.band' because of a glitch in CameLIGO's parser where 'X.Y' leads to a parse error if Y is a keyword or reserved word in CameLIGO. 2019-10-25 16:12:54 -07:00
			`let and_op (n : nat) : nat =`
Change names to the standard library names for the functions in OCaml 2019-10-27 12:05:34 -07:00			`Bitwise.land n 7p`
Add bitwise operators to CameLIGO Right now they're defined as '.bor' and '.band' because of a glitch in CameLIGO's parser where 'X.Y' leads to a parse error if Y is a keyword or reserved word in CameLIGO. 2019-10-25 16:12:54 -07:00
			`let xor_op (n : nat) : nat =`
Change names to the standard library names for the functions in OCaml 2019-10-27 12:05:34 -07:00			`Bitwise.lxor n 7p`