the matrix code example

Example: symmetric matrix

SymmetricQ[m_List?MatrixQ] := (m === Transpose[m])