Re: Label of Max[list]
- To: mathgroup at smc.vnet.net
- Subject: [mg50208] Re: Label of Max[list]
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Fri, 20 Aug 2004 04:58:04 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 8/19/04 at 6:28 AM, weh at snafu.de (Dr. Wolfgang Hintze) wrote:
>Is there a standard function providing beside the maximum of a list
>also the label(s) of the maximum?
>My solution is this
>In[23]:= wehMax[li_] := {m = Max[li], Select[Range[Length[li]],
>li[[#1]] == m & ]}
>In[24]:= li = Table[Random[], {100}];
>In[25]:= wehMax[li]
>Out[25]= {0.9963517693166272, {89}}
>Is there a better one?
Yes,
In[1]:=
data = Table[Random[], {100}];
Flatten[{data[[#1]], #1}]&@[Ordering[data, -1]]
Out[2]=
{0.9996736913302084, 25}
--
To reply via email subtract one hundred and four