比较复杂

感觉要用hash表，hash表好实现些。

有偿编程，价格优惠哈

INPUT那句里的两个informat不能正常显示。

data test;
  input Title &   $10.           Authors      $60.              Number_authors ;
  authors=upcase(authors);
  cards;
Title 1    Name A | Name B                                                                                     2
Title 2    Name A | Name B  | Name C                                                                    3
Title 3    Name A | Name F  | Name B | Name Z                                                     4
Title 4    NAME A                                                                                                   1
Title 5    NAME F | NAME T                                                                                    2
Title 6    NAME F | NAME Z  | Name A | Name N | Name B | Name X                       6   
;

*** Max number of authors;
proc sql noprint;
   select distinct max(number_authors) into: maxn
     from test;
quit;
%let maxn=&maxn;
%put *&maxn*;

*** Get 1-5 authors for each title;
data test1;
    array author(&maxn) $10;
    set test;
         
        comb=2**number_authors-1;
        fmt="Binary"||cats(number_authors)||".";

    do i=1 to comb;
            k=0;
            binary=reverse(putn(i,fmt));
        call missing(of author1- author&maxn);
                do j=1 to number_authors;
                    if substr(binary,j,1)="1" then do;
                            k+1;
                                author(k)=left(scan(authors,j,"|"));
                        end;
                end;
                call sortc(of author&maxn-author1);
                output;
        end;
        keep author1-author5 title;
run;

*** AT_LEAST_x_AUTHORS_REPEAT;
proc sql;
   create table test2 as
    select distinct author1,author2, author3,author4,author5,title,count(distinct title) as titlenum
          from test1
           group by author1,author2,author3,author4,author5
       order by author1,author2,author3,author4,author5;

quit;

data test3;
    set test2;
        by author1-author5;
        array repeat_(5);

        tmp=catx("*", of author1-author5);
        varn=count(tmp,"*")+1;
    repeat_(varn)=(titlenum>1);
run;

proc sql;
   create table author_repeat as
    select distinct title, max(repeat_1) as at_least_1_authors_repeat
                             , max(repeat_2) as at_least_2_authors_repeat
                                                 , max(repeat_3) as at_least_3_authors_repeat
                                                 , max(repeat_4) as at_least_4_authors_repeat
                                                 , max(repeat_5) as at_least_5_authors_repeat
                from test3
       group by title;
quit;


*** Merge;
data wanted;
    merge test author_repeat;
        by title;
run;

只会写简单的程序，不知道是不是想要的结果。。。。