Tips for golfing in Mathematica
Some built-in functions with long names can be replaced with shorter expressions. 

For example:


Total => Tr
Transpose => Thread or \[Transpose]
True => 1&lt;2
False => 1&gt;2
Times => 1##&amp;
Alternatives => $|##&amp;
IntegerQ => ⌊#⌋==#&amp;
a[[1]] => #&amp;@@a
a[[All,1]] => #&amp;@@@a
ConstantArray[a,n] => Array[a&amp;,n] or Table[a,{n}]
Union@a => {}⋃a or a⋃a
ToExpression@n => FromDigits@n if n is a number
Divisible[n,m] => m∣n
FromDigits[n,2] => Fold[#+##&amp;,n] if n is a list of 0s and 1s
Complex@z => {1,I}.z where z is a list of the form {x,y}