请牛人指点指点

shiyiming

[size=150:358nlcas]问题: 根据T1和T2得出T3的结果
说明：
1、T1中的1或者2不只3个有可能是40个1、38个2；
2、当T1值相等时，T2的值也会相等；
3、T1是按升充排列；
4、T3是的意思是当B在T2出现时他是对应T1出现的顺序，就像第一次的三个B1就是B刚出现时对应T1
在线求教，谢谢！[/size:358nlcas]
T1        T2        T3
1        A       
1        A       
1        A       
2        B        B1
2        B        B1
2        B        B1
3        B        B2
3        B        B2
3        B        B2
4        B        B3
4        B        B3
4        B        B3
5        A       
5        A       
5        A       
6        A       
6        A       
6        A       
7        B        B1
7        B        B1
7        B        B1
8        B        B2
8        B        B2
8        B        B2
9        B        B3
9        B        B3
9        B        B3
10        A       
10        A       
10        A

shiyiming

那T3的逻辑是什么呢？

shiyiming

刚把T3的意思写了一下，麻烦阅览一下，看我有没有说明白

shiyiming

data b;
input T1 T2 $;
cards;
1        A
1        A
1        A
2        B
2        B
2        B
3        B
3        B
3        B
4        B
4        B
4        B
5        A
5        A
5        A
6        A
6        A
6        A
7        B
7        B
7        B
8        B
8        B
8        B
9        B
9        B
9        B
10        A
10        A
10        A
;
run;
proc sql;
create table c as select * from b where (T2='B');
quit;
data d(drop=first i);
set c;
retain T3;
if first then do;
i=1;
T3='B'||put(i,1.);
end;
if T1^=lag(T1) and (T1-lag(T1)=1) then do;
i+1;T3='B'||put(i,1.); end;
if         T1^=lag(T1) and (T1-lag(T1)^=1)        then do;
i=1;T3='B'||put(i,1.);end;
run;
proc sort data=b;
by T1;
run;
proc sort data=d;
by T1;
run;
data final;
merge b d;
by T1;
run;

shiyiming

膜拜牛人，真是太强大了！
能不能指点一下，retain的具体意思，到处查询也查不到
还有 我测试了一下好像把这个删除掉不影响结果，是不是有什么地方我忽略了，请问下面这句程式能删除吗？
if first then do;
i=1;
T3='B'||put(i,1.);
end;

shiyiming

retain字面意思就是保留的意思，就是这个变量的值如果你不修改他，他就不变的意思。

shiyiming

就是楼上说的意思，用retain是因为同一个T3可能会重复出现，所有语句都可以在sas帮助栏里面找到的

shiyiming

[quote="526772552":2y35pedr]膜拜牛人，真是太强大了！
能不能指点一下，retain的具体意思，到处查询也查不到
...[/quote:2y35pedr]

一般遇到的问题 help文档是最好的介绍，要使用好帮助文档 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

shiyiming

data step may be the first choice to attack this kind of question. Jingju

[code:3vredb8b]data bb; drop n;
        set b; by t1 t2 notsorted;  length t3 $5;
        if t2 ^='B' then n =0;
                else if first&#46; t2 then n ++1;
        if n =0 then call missing(t3);
                else t3 =cats(t2, n);
run;[/code:3vredb8b]