MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: why does Wolfram Workbench color \[Equal]symbName as a symbol instead of an operator and a symbol?
  • Next by Date: Re: List of user-defined derivatives
  • Previous by thread: why does Wolfram Workbench color \[Equal]symbName as a symbol instead of an operator and a symbol?
  • Next by thread: Re: AGAIN Nested while loop!!!