MathGroup Archive 2004

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

Search the Archive

Re: pattern matching and droping elements from list of lists.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49753] Re: [mg49742] pattern matching and droping elements from list of lists.
  • From: Oleksandr Pavlyk <pavlyk at phys.psu.edu>
  • Date: Fri, 30 Jul 2004 06:02:06 -0400 (EDT)
  • Organization: Penn State University; Department of Physics
  • References: <200407291146.HAA10396@smc.vnet.net>
  • Reply-to: pavlyk at phys.psu.edu
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Sean,

The trick is to replace unnecessary entries with
blank sequence

Outer[List, {a, b, c}, {a, b, c}, {a, b, c}]/.
   List[a_,a_,a_] -> Sequence[]

Sasha

sean kim wrote:
> hello group, 
> 
> Outer[List, {a, b, c}, {a, b, c}, {a, b, c}]
> 
> will output 
> 
> {{
> {{a, a, a}, {a, a, b}, {a, a, c}}, {{a, b, a}, {a, b, b}, {a, b, c}},
> {{a, c, a}, {a, c, b}, {a, c, c}}},
> {{{b, a, a}, {b, a, b}, {b, a, c}}, {{b, b, a}, {b, b, b}, {b, b, c}},
> {{b, c, a}, {b, c, b}, {b, c, c}}},
> {{{c, a, a}, {c, a, b}, {c, a, c}}, {{c, b, a}, {c, b, b}, {c, b, c}},
> {{c, c, a}, {c, c, b}, {c, c, c}}
> }}
> 
> how do I remove {a,a,a} and {b,b,b} and {c,c,c} from above? 
> 
> thanks all in advance for any insights 
> 
> sean
> 


  • Prev by Date: Re: pattern matching and droping elements from list of lists.
  • Next by Date: Re: Problem with loops in Mathematica
  • Previous by thread: Re: pattern matching and droping elements from list of lists.
  • Next by thread: Re: pattern matching and droping elements from list of lists.