data xxx;
input id gender $;
drop id;
cards;
1 M
2 M
3 M
4 M
5 F
6 F
7 F
8 F
;
data temp;
set xxx;
by gender notsorted;
if first.gender then n=0;
n+1;
run;
proc sort data=temp;
by n descending gender ;
run;
data want;
set temp;
id+1;
run;
... View more