如何找重复的id号

2013-10-29 12:28:42

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-29 12:43:42

Come on, your rule is incomplete. How do you break cycles, for example, delete which one from (a,b), (b,c), (c,a)?

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-29 12:47:48

邓贵大发表于 2013-10-29 12:43
Come on, your rule is incomplete. How do you break cycles, for example, delete which one from (a,b), ...

sorry, missing a THEN after id1=id3.
It was add.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

pobel

2013-10-29 12:49:40

data wanted(keep=id1 id2);
set tem;
length _id1 $100;
retain _id1 ;
if index(_id1,quote(cats(id2))) then flag=0;
else do;
flag=1;
_id1=catx(",",_id1,quote(cats(id1)));
end;
if flag;
run;

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

oneoneagain

2013-10-29 13:30:59

好厉害！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…

可~乐

2013-10-29 14:03:53

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-29 16:01:09

yongyitian 发表于 2013-10-29 12:28

哥们data 步的应用太娴熟了，你学多久SAS了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-29 16:09:26

yongyitian 发表于 2013-10-29 12:28

请问两个set是几个指针，几个pdv

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-29 22:12:14

yongyitian 发表于 2013-10-29 12:47
sorry, missing a THEN after id1=id3.
It was add.

No, your code is OK.
I was just saying the solution may not be unique based on Imasasor's description. The solution you get will depend on the order of data.
For example, your code returns (1,2) when the order is

复制代码

but it yields (1,2), (2,3) if the order is

复制代码

Another example, given a path like (1,2), (2,3), (3,4). If you delete (2,3) first, you'll end up with two records; or if you erase (3,4) first, you'll still get a chance to delete (2,3) and return only 1 record. Both solutions are correct but they are different.
I'm just not sure in which order one should break a loop, a cycle, or a path.
Imasasor has to define a complete set of rules for others to work on a program.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-30 08:23:11

Imasasor 发表于 2013-10-29 16:09
请问两个set是几个指针，几个pdv

不敢妄言有多少年经验和真弄明白了PDV.

个人理解一个数据步应该只有一个PDV，用于储存所有的变量名和需要处理的数据.
指针可能会有多个，比如整个数据步的指针可以指向整段程序的某一段，如第一个set语句，do-
loop， run 语句等。而set语句的指针 point＝指向第几行数据， do-loop的指针指向第几个循环参数.

在上面的程序里, 当数据步指针指向do-loop时, 会hold住第一个set语句读入的数据, 并执行do-loop内的语句. do-loop每循环一次, 就用第二个set语句从第二个数据集读入一条由 point＝指定的观测, 然后执行IF语句.

do-loop运行时数据步的指针始终指向do-loop，而第二个set语句随着循环参数的变化指向第二个数据集的不同观测并读取数据。

do-loop运行时, PDV 中由do-loop前set语句读取的数据集 1 的数据保持不变，与do-loop内部有关的数据不断变化，满足一定条件的用output语句输出到结果数据集。

两个数据集的变量名是在数据步开始运行前存入PDV的. 如果两个数据集有相同的变量名，第二个set语句读入的数据会覆盖第一个set语句读入的数据值。

这样说来上面的code有点费解. 因此做了点修改，可能会清楚些. 由于do-loop从_n_+1开始, 所以局限于找出 id2中的重复值出现在id１中相同值的后面.

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-30 08:32:27

邓贵大发表于 2013-10-29 22:12
No, your code is OK.
I was just saying the solution may not be unique based on Imasasor's descrip ...

You are absolutely right. I tried to loop through all observations in the dataset. It did not produce the wanted results. Therefore, I started the do-loop from _n_+1, which is limited to remove repeated ID value in ID2 that occurs after its occurrence in ID1. The code does not remove record that ID2 value occurs before the same value in ID1.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

playmore

2013-10-30 08:45:54

用Hash做了一个，看看行不？

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

bobguy

2013-10-30 10:01:22

You can load all data into a temporary array and maneuver easily with a array.

data tem;
array id(6,3) _temporary_;
infile cards eof=end;
input ;
id(_N_,1)=input(scan(_infile_,1), best.);
id(_N_,2)=input(scan(_infile_,2), best.);
return;

end:

  do i=1 to 6-1;
do j=i+1 to 6;
   if  id(i,1)=id(j,2) then id(j,3)=0;
end;
  end;
  do i=1 to 6;
   if id(i,3) ne 0 then do;
   id1=id(i,1);
   id2=id(i,2);
   output;
   end;
  end;
keep id:;
cards;
1 2
2 1
4 7
5 8
6 9
8 5
;

proc print;run;

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-10-30 20:37:19

still not quite right, folks! try it on this dataset if you may

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

Eternal0601

2013-10-30 21:22:55

bobguy 发表于 2013-10-30 10:01
You can load all data into a temporary array and maneuver easily with a array.

data tem;

弱弱地问句 end: 在这里是啥用法？之前见过的都是用go to labelname labelname：这种用法

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

1033096528

2013-11-1 12:22:08

初学者觉得楼上大家都很厉害的样子，默默飘走。。。。。。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

龙潭丰乐

2013-11-2 16:06:27

playmore 发表于 2013-10-30 08:45
用Hash做了一个，看看行不？

这样是不对的，你没有考虑到id1出现的顺序，只是把所有的id1作为键，放到hash里面了。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

playmore

2013-11-2 22:01:17

龙潭丰乐发表于 2013-11-2 16:06
这样是不对的，你没有考虑到id1出现的顺序，只是把所有的id1作为键，放到hash里面了。

lz的贴子里有说顺序的问题了吗？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-11-3 10:00:31

let's forget about the order of input or the uniqueness of solution and rephrase the question as follows.
Find a subset A from the set of ordered pairs S={(a,b): 1<=a,b<=n and a, b are not equal} such that,
(1) (a,b) and (c,a) cannot belong to A at the same time, for any a,b,c; (this condition is stated by the OP)
(2) A is maximal in the sense that there does not exist a subset A' of S such that A is a proper subset of A'. (the OP didn't mention this, but I think it's necessary otherwise you could always return only one record and claim you get the right answer.)
The question is also equivalent to finding a maximal subgraph from a directed graph by deleting edges so that no vertex has both nonzero indegree and outdegree.
I don't have a solution on the top of my head, but you may check your program against the two conditions above.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-11-4 14:31:15

pobel 发表于 2013-10-29 12:49
data wanted(keep=id1 id2);
set tem;
length _id1 $100;

quote函数不需要也可以吧，试了一下，不影响啊

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-11-4 14:32:43

可~乐发表于 2013-10-29 14:03

这个想法真是奇特，不过，看了一大圈也没想明白为什么要scan(compress(put这么长一圈，我试了一下
if index("&id1.",cats(id2))>_n_ or index("&id1.",cats(id2))=0;

这样就可以了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

pobel

2013-11-4 14:53:57

Imasasor 发表于 2013-11-4 14:31
quote函数不需要也可以吧，试了一下，不影响啊

版主给出的例子里，quote函数不必要。
下面的这个例子，quote函数就有用了：
data tem;
input id1 id2;
cards;
11 2
2 1
;

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

可~乐

2013-11-4 16:55:57

Imasasor 发表于 2013-11-4 14:32
这个想法真是奇特，不过，看了一大圈也没想明白为什么要scan(compress(put这么长一圈，我试了一下
if in ...

嗯，之前做过一个类似的对比，不过需要一个字符串一个字符串的查找，所以就把之前的想法直接搬过来了。。。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-11-4 17:18:59

pobel 发表于 2013-11-4 14:53
版主给出的例子里，quote函数不必要。
下面的这个例子，quote函数就有用了：
data tem;

理解了，高..........

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2013-11-4 22:01:58

Imasasor 发表于 2013-11-4 17:18
理解了，高..........

Imasasor, what's your expected output for a 5-cycle, or it just won't happen? I know sometimes you're just handing out easy Lun Tan Bi to get more posts.

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝