Число уникальных значений по 400 переменным

*(Вопрос) Как можно подсчитать количество уникальных значений для каждого наблюдения
по более, чем 400 переменным. 

*(Ответ) Raynald Levesque, 16.8.2002.
* http://www.spsstools.net.


DATA LIST LIST /var1 var2 var3 varn.
BEGIN DATA
1 2 3 4
1 1 1 1 
1 1 2 4
2 3 2 2 
. 1 . 1
END DATA.
LIST.


*///////////////.
DEFINE !nb(nbvars=!TOKENS(1) /v1=!TOKENS(1) /v2=!TOKENS(1))

VECTOR v=!v1 TO !v2 /val(!nbvars).
LOOP #cnt=1 TO !nbvars.
COMPUTE val(#cnt)=v(#cnt).
END LOOP.

LOOP #cnt1 = 1 TO !nbvars - 1.
DO IF ~MISSING(val(#cnt1)).
LOOP #cnt2 = #cnt1 + 1 TO !nbvars.
IF val(#cnt2)=v(#cnt1) val(#cnt2)=$SYSMIS.
END LOOP.
END IF.
END LOOP.

COMPUTE distinct=!nbvars - NMISS(val1 TO !CONCAT('val',!nbvars)).
* Удаление лишних переменных.
ADD FILES FILE=* /DROP=val1 TO !CONCAT('val',!nbvars).

!ENDDEFINE.
*///////////////.

* Вызов макроса.
SET MPRINT=yes.
!nb nbvars=4 v1=var1 v2=varn.
SET MPRINT=no.
EXECUTE.