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/58-while-01.eval.hopix.human-readable

12 lines
236 B
Text
Raw Normal View History

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