楼主可以试一下这个：
data wanted;
   set test;
   do i=1 to length(x)-3;
      call missing(rule);
      _1st=input(substr(x,i,1),best.);
          _2nd=input(substr(x,i+1,1),best.);
          _former2=input(substr(x,i,2),best.);
          _latter2=input(substr(x,i+2,2),best.);

               if _1st  = _2nd and _former2 = _latter2 then rule=1;
          else if _1st ^= _2nd and _former2 = _latter2 then rule=2;
          else if _2nd - _1st = 1 and _latter2 - _former2 = 22 then rule=3;

          if ^missing(rule) then do;
               rule_num=substr(x,i,4);
           output;
                end;
   end;
   drop _: i;
run;

没有完全理解其中的规律。ABCD 类似于1234为什么ABAB可以是1313？如果1313和1010可以，那么3131应该也可以吧？京剧

不好意思，是我没讲清楚，其实ABCD就是代表递增的规律（1234，2345，3456这种）
ABAB代表的是交叉相等的数（1313，1010，3131这种都可以）

outliers of 7900 and 9011 for case 3. update the code. JingJu

规则序号   规则
1           AAAA      10个
2           ABAB      P（9，2）+C（10，1）？反正大致是这个数量级
3           ABCD       7个 7890不是

每行做这点判断？