21 lines
498 B
Plaintext
21 lines
498 B
Plaintext
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
|