Here is the code we used to create a standard 52 card deck. We shuffled using proc sort and dealt a five card hand using proc surveryselect. Finally, we used proc freq to keep track of "kind", i.e. one of a kind, two of a kind (pair), and three of a kind (trips). Does anyone have suggestions on how to program SAS to find the frequency of the higher ranked hands (straights, flushes, royal flush, etc.)?
%let seed=1210;
%let decksize=52;
%let handsize=5;
%let nsims=10;
%let nhands=1;
data _null_;
ncards=&handsize*&nhands;
call symput("ncards", ncards);
run;
data deck;
call streaminit(&seed);
do suit="C","D","H","S";
do value="2","3","4","5","6","7","8","9","T","J","Q","K","A";
order=rand("uniform");
output;
end;
end;
run;
proc sort data=deck;
by order;
/*proc print data=deck;
run;*/
proc surveyselect data=deck
method=srs
seed=&seed
sampsize=&ncards
rep=&nsims
out=cards;
run;
/*proc print data=cards;
run; */
/*data hands;
set cards;
hand=ceil(_n_/&handsize);
run;*/
/*proc print data=hands;
run;*/
proc freq data=cards;
tables value/out=freqval;
by replicate;
run;
/*proc print data=freqval;
run;*/
proc means data=freqval;
var count;
by replicate;
output out=maxnum max=kind;
run;
proc freq data=maxnum;
tables kind;
run;
