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/65-for-04.eval.hopix.human-readable

13 lines
314 B
Text
Raw Permalink Normal View History

2023-10-25 15:16:53 +02:00
let test =
let r = ref 1;
for i from (1) to (10) {
for i from (1) to (5) {
r := !r * i
};
r := !r * (1 + i / 10);
for i from (1) to (5) {
r := !r / i
}
};
print_string ("This test is ");
print_string (if (!r =? 2) then { "OK!\n" } else { "KO!\n" })