求助一个选择关联账号的算法问题

有一原始数据集如下：

账号	手机号
A1	B1
A1	B2
A2	B3
A3	B4
A4	B1

可见 A1对应B1， B2，同时B1还对应A4，因此A1， A4，B1，B2 是关联的，余此类推，希望能够以相同的标示标记相关联的号，如下表：

标记	账号	手机号
1	A1	B1
1	A1	B2
2	A2	B3
3	A3	B4
1	A4	B1

注：该数据集还有其他字段没列出，但无关这个算法
       余下还有很多观测，以上仅为一个例子

希望各位指教~ 谢谢！

1. data want;
   
2.     set have;
   
3.     retain id1 0;
   
4.     if 账号 NE lag (账号) then id1+1;
   
5. run;

复制代码

然后再sql表连接下

可以试试下面的程序：
data a;
input a $ b $;
cards;
a1 b1
a1 b2
a2 b3
a3 b4
a4 b1
;
run;

proc sort data=a;
by a;
run;

data a;
set a;
by a;
if first.a then n+1;
run;

proc sort data=a;
by b a;
run;

data a(drop=k nb);
set a;
by b;
retain k nb;
if first.b then do;
k=n;
nb=b;
end;
if b=nb then n=k;
run;

proc sort data=a;
by a;
run;

可以试试下面的程序：
data a;
input a $ b $;
cards;
a1 b1
a1 b2
a2 b3
a3 b4
a4 b1
;
run;

proc sort data=a;
by a;
run;

data a;
set a;
by a;
if first.a then n+1;
run;

proc sort data=a;
by b a;
run;

data a(drop=k nb);
set a;
by b;
retain k nb;
if first.b then do;
k=n;
nb=b;
end;
if b=nb then n=k;
run;

proc sort data=a;
by a;
run;

类似的算法SAS应该不是最好的，可以试试别的

CTR1013 发表于 2011-10-19 22:55
可以试试下面的程序：
data a;
input a $ b $;

自己写的程序都不自己运行，各种乱来各种错漏百出

落日烟雨轻 发表于 2011-10-20 10:52
自己写的程序都不自己运行，各种乱来各种错漏百出

我自己运行没问题才发出来的，之前做过类似的东西，现在试试这个而已，只是想帮忙看看，既然如此，那算了，好心没好报！！！