Substitution System

Author

Eric W. Weisstein
April 14, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algorithms/SubstitutionSystem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/SubstitutionSystem.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Additional Authors

Cool sequence by
Michael Trott
July 29, 2002

Example

NestList[Flatten[#/.{1->0,0->{1,1}}]&,{1,0},4]

Cool Sequence

Michael Trott
July 29, 2002

rules={{1->{3},2->{1,2},3->{1,2},4->{5,4},5->{4,3}}};
l=Nest[Flatten[FoldList[(#1/.#2)&,#,rules]]&,{1},11];

ListPlot[Abs[Fourier[l]],PlotStyle->{PointSize[0.0001]}];