学习了

学习了.

螃蟹哥厉害 膜拜

data test;
   input id $ time $ rna $1.;
cards;
1 1 1
1 2 0
1 3 0
1 4 0
1 5 0
2 1 1
2 2 0
2 3 0
2 4 1
2 5 0
3 1 1
3 2 0
3 3 1
3 4 1
3 5 1
;
run;

data want;
   set test;
   by id;
   retain temp1;
   if first.id then do;
      call missing(temp1);
      call missing(temp2);
   end;
   if rna=0 then temp1=1;
   if temp1=1 then temp2+rna;
   if last.id then do;
      if rna=1 then type='c';
      else if temp2=0 then type='a';
      else if temp2>0 then type='b';
   end;
run;
proc print;
run;


data want;
   set test;
   by id;
   length temp1 $100;
   retain temp1;
   if first.id then call missing(temp1);
   temp1=cats(temp1,rna);
   if last.id then do;
      if prxmatch('/^1*0+\s*$/o',temp1) then type='a';
      if prxmatch('/^1*0[01]*1[01]*0\s*$/o',temp1) then type='b';
      if prxmatch('/^1*0[01]*1\s*$/o',temp1) then type='c';
   end;
run;
proc print;
run;