AGAIN Nested while loop!!!
- To: mathgroup at smc.vnet.net
- Subject: [mg71594] AGAIN Nested while loop!!!
- From: "mumat" <csarami at gmail.com>
- Date: Fri, 24 Nov 2006 01:17:14 -0500 (EST)
I have a list of numbers
lst = Table[Random[Integer, {i, 50}], {i, 6}]
I want to write a program that if There are two numbers x, y in A where
Mod[x^2+y^2, 5]==0 reuturn False and the pair {x,y}, otherwise True!
For[i = 0, i < 6, For[j = i, j < 6,
If[Mod[lst[[i]]^2 + lst[[j]]^2, 3] == 0,
Return[False,{i,j}]];Break[], j++], i++]
While loop and nested while loops accept only one counter "i".
i=1;j=2;
While[i<6 && While[j<6 &&
Mod[lst[[i]]^2+lst[[j]]^2,7]=!=0,j++];i++];{i,j}
{2,6}
Would be great if you could help me with this!!
Regards,
chekad