Re: Simple Module Code

*To*: mathgroup at smc.vnet.net*Subject*: [mg49571] Re: Simple Module Code*From*: Bill Rowe <readnewsciv at earthlink.net>*Date*: Fri, 23 Jul 2004 06:01:34 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

On 7/22/04 at 2:45 AM, umdougmm at hotmail.com (Doug) wrote: >Does anyone know why the following code would not work inside a >module? list = AppendTo[list, data]; >here's the exact code splitData[data_, list_, i_] := Module[{}, >Print["In Split Data ", i]; >If[data[[i,1]]==1, list = AppendTo[list, data[[i, 2]]]]; >Print["Length of list is: ", Length[list]]; >] >which is called by: Do[splitData[data, list, i], {i, 1, >Length[data]}] >It complains about to many recursions, yet on the command line >alone, list = AppendTo[list, data]; works just fine? It appears your goal is to extract column 2 from a data list having at least two columns. If so, you are certainly doing things the hard way. If data is a n x m matrix, then c = data[[All, 2]] will be vector with the values of column 2, i.e., data = Table[Random[], {i, 5}, {j, 5}]; c = data[[All,2]]; And @@ MapThread[#1 == #2[[2]]&, {c, data}] True -- To reply via email subtract one hundred and four