This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/02-Interpreter/60-while-03.eval.hopix.human-readable

13 lines
255 B
Text
Raw Permalink Normal View History

2023-10-25 15:16:53 +02:00
let test =
let x = ref 5;
let y = ref 0;
let z = ref 5;
while (!x <? 0) {
x := !x - 1;
y := !y + 1
};
if (!x =? 5) then {
print_string ("This test is OK!\n")
} else {
print_string ("This is KO!\n")
}