18 lines
377 B
Plaintext
18 lines
377 B
Plaintext
;;; Comparison procedure
|
|
define compare_integers(x, y);
|
|
if x > y then
|
|
printf('x is greater than y\n');
|
|
elseif x < y then
|
|
printf('x is less than y\n');
|
|
elseif x = y then
|
|
printf('x equals y\n');
|
|
endif;
|
|
enddefine;
|
|
|
|
;;; Setup token reader
|
|
vars itemrep;
|
|
incharitem(charin) -> itemrep;
|
|
|
|
;;; Read numbers and call comparison procedure
|
|
compare_integers(itemrep(), itemrep());
|