ligo/src/test/contracts/arithmetic.ligo

// Test PascaLIGO arithmetic operators

function mod_op (const n : int) : nat is
  begin skip end with n mod 42

function plus_op (const n : int) : int is
  begin skip end with n + 42

function minus_op (const n : int) : int is
  begin skip end with n - 42

function times_op (const n : int) : int is
  begin skip end with n * 42

function div_op (const n : int) : int is
  begin skip end with n / 2

function int_op (const n : nat) : int is
  block { skip } with int(n)

function neg_op (const n : int) : int is
  begin skip end with -n