function [R,T,Skk]=suosuo(xnc,xn);
%比較大小
dxn=diff(xn);
if length(unique(xn))==5 & length(unique(dxn))==1 & length(unique(xnc))==1;
    R=8*13^2+max(xn)*13+unique(xnc);
    T=15;
    Skk='同花順';
elseif length(unique(xn))==2 & dxn(1)+dxn(4)>0;
    R=7*13^2;
    T=10;
    Skk='鐵枝(四張)';
elseif length(unique(xn))==2 & dxn(2)+dxn(3)>0;
    R=6*13^2+xn(3)*13;
    T=5;
    Skk='葫蘆';
elseif length(unique(xnc))==1;
    R=5*13^2+max(xn)*13+unique(xnc);
    T=1;
    Skk='同花';
elseif length(unique(xn))==5 & length(find(dxn==1))==4;
    R=4*13^2+max(xn)*13+xnc(xn==max(xn));
    T=1;
    Skk='順子';
elseif length(find(xn==xn(3)))==3;
    R=3*13^2+xn(3)*13;
    T=1;
    Skk='三條';
elseif length(unique(xn))==3;
    R=2*13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    T=1;
    Skk='兔胚';
elseif length(unique(xn))==4;
    R=13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    T=1;
    Skk='單胚';
else
    R=max(xn)*13+xnc(xn==max(xn));
    T=1;
    Skk='單張';
end