Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Use pattern to find minimum without using min

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71855] Re: Use pattern to find minimum without using min
  • From: Peter Pein <petsie at dordos.net>
  • Date: Fri, 1 Dec 2006 06:22:07 -0500 (EST)
  • References: <ekmdbc$7th$1@smc.vnet.net>

wooks schrieb:
> Tried
> 
> {9, 4, 6, 5, 3, 7} //. {a___, b_, c___, d_, e___} :> b /; (b < d)
> 
> and
> 
> {9, 4, 6, 5, 3, 7} //. {x_,y_,z___} :> {x,z} /; (x<y)
> 
> without much success.
> 

Hi,

your second example is not too bad, but you forgot the case x>=y:

{9, 4, 6, 5, 3, 7} //. {{x1_, x2_, r___} /; x1 < x2 :> {x1, r},
   {x1_, x2_, r___} /; x1 >= x2 :> {x2, r}}

--> {3}

or shorter:

{9, 4, 6, 5, 3, 7} //. {x1_, x2_, r___} :> If[x1 < x2, {x1, r}, {x2, r}]


Peter


  • Prev by Date: Re: Use pattern to find minimum without using min
  • Next by Date: Re: Use pattern to find minimum without using min
  • Previous by thread: Re: Use pattern to find minimum without using min
  • Next by thread: Re: Use pattern to find minimum without using min