Generación de comandos de Logo para dibujar un triángulo de Sierpinski.

VT2.12-Comandos-Logo-Triángulo-Sierpinski.linq

// Axioma:
string trianguloSierpinski = "A";

// Reglas de producción:
Func<string, string> transformarA = x => x.Replace("A", "B-A-B");
Func<string, string> marcarBs = x => x.Replace("B", "[B]");
Func<string, string> transformarB = x => x.Replace("[B]", "A+B+A");

// Nivel de recursión:
int nivelRecursion = 6;

Enumerable.Range(1, nivelRecursion)
    .ToList()
    .ForEach(
        numRecursion =>
        {
            trianguloSierpinski = transformarB(transformarA(marcarBs(trianguloSierpinski)));
        }
    );
    
trianguloSierpinski
    .Replace("A", "forward 5" + Environment.NewLine)
    .Replace("B", "forward 5" + Environment.NewLine)
    .Replace("+", "left 60" + Environment.NewLine)
    .Replace("-", "right 60" + Environment.NewLine)
    .Dump("Comandos Logo para Triángulo de Sierpinski");