Wolfram Technology Guide: Symbolic Sound Support  previous | next 
Generate Arbitrary Algorithmic Music
Mathematica provides a new generation of tools to create algorithmic music.
In[1]:=

Click for copyable input
Sound[SoundNote[DeleteCases[3 Range[31] Reverse[#], 0] - 48, .1] & /@ 

  Transpose[CellularAutomaton[90, {{1}, 0}, 30]]]
Out[1]=