创建Maple循环以给出不是正方形的随机整数

时间:2014-02-10 18:02:27

标签: maple

我试图在Maple中创建一个简单的循环来排除正方形 以下是我的代码。我已经知道它不会起作用。因为while代码仅在n是正方形时运行,所以它永远不会打印。然后我想拿走除数的数量,但我对如何做到这一点非常有信心。我只需要一些东西给n作为一个不是正方形的随机整数。

n := rand(0 .. 100);

while n=1 or n=4 or n=9 or n=16 or n=25 or n=36 or n=49 or n=64 or n=81 or n=100 do

if n=1 or n=4 or n=9 or n=16 or n=25 or n=36 or n=49 or n=64 or n=81 or n=100 then 

n := rand(0 .. 100);   *(how do I send Maple back up to the start of the loop again?)* 

end if; 

print (n);

end do:

1 个答案:

答案 0 :(得分:2)

请注意,通话rand(a..b)不会生成随机数。相反,它会生成一个过程,该过程将在给定范围内生成随机数。你想要的是

    R:= rand(2..99):
    n:= R():
    while isqrt(n)^2 = n do n:= R() end do: 
    n;