Re: SameQ[] threaded

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo,

so geht es

In[148]:= Remove[cD]
cD[x_Symbol] := Inner[SameQ, Table[x, {4}], {X1, X2, X3, X4}, Or]

In[150]:= cD[X2]
Out[150]= True

In[151]:= cD[X0]
Out[151]= False

Gruss
Udo.