MathGroup Archive 2010

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

Search the Archive

Re: sieving out selected multiples

  • To: mathgroup at smc.vnet.net
  • Subject: [mg113808] Re: sieving out selected multiples
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 14 Nov 2010 06:07:31 -0500 (EST)

eliminateDuplicates[data_List, x_] :=
 Module[{int = Flatten[{x}]},
  Fold[If[Count[#1, #2] > 1,
     ReplacePart[#1,
      Thread[Rest[Flatten[
          Position[#1, #2]]] ->
        Sequence[]]], #1] &, data, 
   int]]

data = RandomInteger[{0, 9}, {50}]

eliminateDuplicates[data, 2]

eliminateDuplicates[data, {2, 3, 7}]


Bob Hanlon

---- Andrea <andrea at radargift.com> wrote: 

=============
What is the simplest way to delete -- i.e., remove -- the multiples an
integer from a list?
And what is the simplest way to delete, simultaneously, the multiples from
more than one selected integer from a list?

I couldn't find a simple Mathematica function for this.

Thanks,
Andrea



  • Prev by Date: Re: Table local
  • Next by Date: Re: Table local
  • Previous by thread: Re: sieving out selected multiples
  • Next by thread: Re: sieving out selected multiples