MathGroup Archive 2010

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

Search the Archive

Re: working with lists


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



  • Prev by Date: Re: working with lists
  • Next by Date: Re: working with lists
  • Previous by thread: Re: working with lists
  • Next by thread: ListAnimate