Re: AGAIN Nested while loop!!!

*To*: mathgroup at smc.vnet.net*Subject*: [mg71651] Re: [mg71594] AGAIN Nested while loop!!!*From*: "chekad sarami" <csarami at gmail.com>*Date*: Sun, 26 Nov 2006 03:48:33 -0500 (EST)*References*: <21975481.1164376019753.JavaMail.root@eastrmwml01.mgt.cox.net>

THANKS VERY MUCH It is so amazing that how many different ways one can write a program in mathematica! But still the while and for ( traditional loops) is much faster. While loop in this case is faster since doesn't need a break[]!! Thanks to all of you guys ESPECIALLY DANIEL! regards, chekad On 11/24/06, Bob Hanlon <hanlonr at cox.net> wrote: > lst = Table[Random[Integer, {i, 50}], {i, 6}] > > {11,30,44,28,50,31} > > So that the result has a consistent structure in either case, I would recommend that the output be {True, {}} or {False, {pairs}} > > Needs["DiscreteMath`Combinatorica`"]; > > Module[{sel=Select[KSubsets[lst,2], > Mod[#.#,5]==0&]}, > {Length[sel]==0,sel}] > > {False, {{11, 28}, {30, 50}, {44, 28}, {28, 31}}} > > > Bob Hanlon > > ---- mumat <csarami at gmail.com> wrote: > > 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 > > > >