SameQ[] threaded

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

Hallo allerseits,

In[76]:= cD[x_Symbol] :=
 Or @@ Thread[SameQ[Table[x, {4}], {X1, X2, X3, X4}]]

In[90]:= cD[X1]
Out[90]= False

Erstaunlich.

In[89]:= Or @@ Thread[SameQ[Table[X2, {4}], {X1, X2, X3, X4}]]
Out[89]= False

Erstaunlicher.

In[88]:= SameQ[X2, X2]
Out[88]= True

Richtig, aber am erstaunlichsten, weil Mma 7.0.1 zuvor anders (i.e.  
falsch) entschied.

In[93]:= Head[X2]
Out[93]= Symbol

Frohe Ostern
Udo.