% ECE 341 Homework #2
% 6 card draw, trying for four of a kind
 
tic
Pair4 = 0;
 
for i0 = 1:1e5
   X = rand(1,52);
   [a,Deck] = sort(X);
   Hand = Deck(1:6);
   Value = mod(Hand-1,13) + 1;
   
   % step 1: sort by frequency
   
   N = Value / 100;
   for i=1:6
       for j=1:6
           if(Value(i) == Value(j)) N(i) = N(i) + 1; end
       end
   end
   
   [N,b] = sort(N, 'descend');
   N = floor(N);
   Hand = Hand(b);
   Value = mod(Hand,13) + 1;
   
   % step 2: determine the number of aces - kings
   N = zeros(13,1);
   for i=1:13
       N(i) = sum(Value == i);
   end
   
   % step 3: sort most frequency to least frequency
   N = sort(N, 'descend');
   
   % step 4: determine type of hand and number of cards to draw
   % three of a kind - draw two
   if( (N(1) == 3)*(N(2) == 1) )
       Hand(4:6) = Deck(7:9);
   % two pair, draw two    
   elseif((N(1) == 2)*(N(2) == 2))
       Hand(5:6) = Deck(7:8);
   % pair: draw four
   elseif((N(1) == 2)*(N(2) < 2))
       Hand(3:6) = Deck(7:10);
   % high card: draw five    
   else
       Hand(2:6) = Deck(7:11);
   end
 
   Value = mod(Hand,13) + 1;
  
   % step 5: determine the frequency of ace - king after drawing cards
   N = zeros(1,13);
   for n=1:13
       N(n) = sum(Value == n);
   end

   % step 6: determine type of hand
   N = sort(N, 'descend'); 
   if( N(1) == 4 ) Pair4 = Pair4 + 1; end
   end
 
disp('6-Card Draw: Four of a Kind ');
disp([Pair4])
toc