13 lines
314 B
Text
13 lines
314 B
Text
|
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" })
|