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/59-while-02.eval.hopix.human-readable
2023-10-25 15:16:53 +02:00

17 lines
No EOL
330 B
Text

let test =
let x = ref 5;
let y = ref 0;
let z = ref 5;
while (!x >? 0) {
x := !x - 1;
while (!z >? 0) {
y := !y + 1;
z := !z - 1
};
y := !y + 1
};
if (!y =? 10) then {
print_string ("This test is OK!\n")
} else {
print_string ("This is KO!\n")
}