Maple function for while

[jmtrik]

In the following the algorithm inside the for while loop runs until the condition the A * B = 0 is met. When the condition is met the for statement finishes and algorithm returns the values of A and B as a list.

#Algorithm

$res = maple("
randomize():
gen := rand(0 .. 5):
det := 1:
for i while det <> 0 do
A := gen();
B := gen();
det := A*B
end do:
[i,A,B]
");
$A=switch(1,$res);
$B=switch(2,$res);

In the output below you can see the first value of the list is the variable i, which is the number of times the loop ran until it succeeded.