Generate Arbitrary Algorithmic Music
Mathematica provides a new generation of tools to create algorithmic music.
In[1]:=  |  Sound[SoundNote[DeleteCases[3 Range[31] Reverse[#], 0] - 48, .1] & /@
Transpose[CellularAutomaton[90, {{1}, 0}, 30]]] |
Out[1]=  |  |