飘过，高手快来帮帮忙啊

代码有些长,你自己在优化一下吧

data work.a;
        length date 8. hometeam $20. visitingteam $20.;
        input date mmddyy10. hometeam $ visitingteam $ 28-38 homescore visitorscore;
        format date yymmdd10.;
        datalines;
12/10/2005  Cincinnati     Syracuse        73 89
12/10/2005  Georgetown     St Johns        92 79
12/10/2005  Louisville     Depaul          59 58
12/17/2005  Louisville     Marquette       76 72
12/17/2005  Villanova      Pittsburgh      77 76
01/05/2006  Rutgers        Cincinnati      54 71
;
run;

data work.b;
        set work.a;
        if homescore > visitorscore then do;
                homewin = "胜";
                visitorwin = "负";
        end;else do;
                homewin = "负";
                visitorwin = "胜";
        end;
         
run;

data work.c(keep = hometeam homewin
                        rename = (hometeam=teamwin homewin=teamresult));
        set work.b;
run;

data work.d(keep = visitingteam visitorwin
                        rename = (visitingteam=teamwin visitorwin=teamresult));
        set work.b;
run;

data work.e;
        set work.c work.d;
run;

data work.temp(drop = i);
        do i = 1 to 2;
                if i = 1 then do;
                        teamresult = "胜";
                end;else do;
                        teamresult = "负";
                end;
                output;
        end;
run;
       

proc sql noprint;
        create table work.f as
                select distinct teamwin
                from work.e;

        create table work.g as
                select a.teamwin,
                        b.teamresult
                from work.f as a,work.temp as b
                order by a.teamwin,b.teamresult;

        create table work.h as
                select teamwin ,teamresult,count(teamresult) as count
                from work.e
                group by teamwin ,teamresult
                order by teamwin ,teamresult;
                       
quit;

data work.i;
        merge work.g work.h;
        by teamwin teamresult;
run;

data work.result;
        set work.i;
        if missing(count) then count=0;
run;