Re: working with lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg113211] Re: working with lists*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Tue, 19 Oct 2010 05:54:15 -0400 (EDT)*Reply-to*: hanlonr at cox.net

Your sample output does not appear to agree with your description of the desired operation. The following implements the description. f[x_?VectorQ] := Module[ {n = 0}, If[Mod[#, 3] == 0, n = 1; 2 #, # - n] & /@ x] f[{1, 2, 3, 5, 7}] {1, 2, 6, 4, 6} Bob Hanlon ---- Sam Takoy <sam.takoy at yahoo.com> wrote: ============= Hi, I'm not very good at working with lists. May I ask for someone to work out an example which has several elements of what I need to do. What's the best way to write a function f[list] that goes through each element of the lest, doubles each element divisible by three and reduces each of the following elements by 1. That is f[{ 1 2 3 5 7}] is { 1 2 6 4 12 } Many thanks in advance, Sam