Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'another challenging list question' topicStudent Support Forum > General > "another challenging list question"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
04/25/12 8:49pm

I am concerned that this may not a good example to learn Mathematica from. In particular I had to torture the code to some degree to get what I think your description meant by highest first position.

In[1]:= LIST={
{{1.,15.09},{1.,16.71},{1.,76.62},{1.,16.97},{1.,18.095}},
{{1.04307,15.74},{1.02334,17.1},{1.02284,78.37},{1.03536,17.57},{0.998342,18.065}},
{{1.07223,16.18},{1.03651,17.32},{1.0137,77.67},{1.03595,17.58},{1.02238,18.5}},
{{1.09013,16.45},{1.04668,17.49},{1.01305,77.62},{1.10607,18.77},{1.01741,18.41}},
{{1.02518,15.47},{1.00958,16.87},{0.997259,76.41},{1.05068,17.83},{0.989224,17.9}},
{{1.02783,15.51},{0.989826,16.54},{1.00783,77.22},{1.033,17.53},{1.00083,18.11}}
};
Reap[
oldhighpos=0;(*Pretend we have no prior highest first position*)
For[i=1,i≤Length[LIST],i++,
v=Sort[Map[First,LIST[[i]]],OrderedQ[{#2,#1}]&];(*sort first positions*)
If[v[[1]]>v[[2]],(*then we really have a new highest first position*)
newhighpos=Position[LIST[[i]],{v[[1]],_}][[1,1]];
If[oldhighpos≠newhighpos,Sow[LIST[[i]]];oldhighpos=newhighpos]
]
]
][[2,1]]

Out[2]= {
{{1.04307,15.74},{1.02334,17.1},{1.02284,78.37},{1.03536,17.57},{0.998342,18.065}},
{{1.09013,16.45},{1.04668,17.49},{1.01305,77.62},{1.10607,18.77},{1.01741,18.41}}
}

I do appreciate the effort you are putting into trying to be precise and clear about what you want the code to do and your concrete examples are very good. Without both of those it would be far more difficult to try to produce what you are asking for.

I expect someone can come up with a fairly simple functional programming example that will do the same thing.

URL: ,

Subject (listing for 'another challenging list question')
Author Date Posted
another challenging list question Lilly 04/24/12 4:42pm
Re: another challenging list question Bill Simpson 04/25/12 8:49pm
< Previous CommentHelp | Reply To Comment | Reply To Topic