IAPP-斗地主之生成一副扑克牌

t()
{
  //初始化扑克集合
  s sum=""
  s puk=""
  s i=10
  w(i<=53)
  {
    ss(puk+i+";",puk)
    s(i+1,i)
    }
  for(1;1000)
  {
    sran(10,53,ran)
    ss(ran+";",ran)
    sr(puk,ran,"",puk)
    ss(ran+puk,puk)
  }
s a="0;1;2;3;4;5;6;7;8;9"
sl(a,";",az)
for(b;az)
{
  sran(10,53,ran)
  ss(ran+";",th)
  ss(ran+";"+b+";",thc)
  sr(puk,th,thc,puk)
}
//去掉最后面一个分号
slg(puk,cd)
s(cd-1,cd)
ssg(puk,0,cd,puk)
sl(puk,";",fen)

for(m;fen)
{
  f(m!=52&&m!=53)
  {
    s(m/13,x)
  f(x==0)
  {
    s hua="♥"
  }
else f(x==1)
{
  s hua="◆"
}
else f(x==2)
{
  s hua="♣"
}
else f(x==3)
{
  s hua="♠"
}
  s(m%13,y)
  f(y==0)
  {
    ss(hua+"2",d)
  }
else f(y==1)
{
  ss(hua+"3",d)
}
else f(y==2)
{
  ss(hua+"4",d)
}
else f(y==3)
{
  ss(hua+"5",d)
}
else f(y==4)
{
  ss(hua+"6",d)
}
else f(y==5)
{
  ss(hua+"7",d)
}
else f(y==6)
{
  ss(hua+"8",d)
}
else f(y==7)
{
  ss(hua+"9",d)
}
else f(y==8)
{
  ss(hua+"10",d)
}
else f(y==9)
{
  ss(hua+"J",d)
}
else f(y==10)
{
  ss(hua+"Q",d)
}
else f(y==11)
{
  ss(hua+"K",d)
}
else f(y==12)
{
  ss(hua+"A",d)
}
ss(sum+d+";",sum)
  
}
else f(m==52)
{
  ss(sum+"◎小;",sum)
}
else f(m==53)
{
   ss(sum+"◎大;",sum)
}
  
  
  
  
}
//打印出这首扑克牌
syso(sum)
  }