我有两个数据集。如下：
data one
TOM  A B C D
TIM   C D A A

data two
A C D A

data one是两个同学做的答案，data two是正确结果，我想查看两个同学分别做对几个题目。
我的做法是将两个数据集set合并之后，用array比较。log里面没有报错，可是出不来结果，请教下高手们，这到底怎么了。data one;
input name$ a1$ a2$ a3$ a4$;
cards;
TOM  A B C D
TIM   C D A A
;
proc print;run;
data two;
input b1$ b2$ b3$ b4$;
cards;
A C D A
;
run;
data last;
set one two;
array c{4} $a1-a4;
array d{4}$ b1-b4;
do i=1 to 4;
if c{i}=d{i} then j=j+1;
else if c{i}^=d{i} then j=j+0;
end;
keep name j;
proc print; run;