Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
O triângulo de Sierpinski pode ser gerado da seguinte maneira: primeiro desenhe um
triângulo ABC em preto. Depois, execute os passos a seguir:
• Marque os pontos médios [AB], [BC], [AC] de cada lado do triângulo;
• Desenhe um triângulo branco usando estes pontos médios como vértices;
• Agora a figura conterá três triângulos pretos, [AC]C[BC], A[AC][AB] e [AB][BC][B].
Repita esta operação para cada um deles.
É evidente que não poderemos executar este processo indefinidamente; nosso gerador
de triângulos de Sierpinski aceitará como parâmetro o número de iterações (quando o
número for zero um único triângulo preto será desenhado).
( define make-sierpinski
( lambda (x1 y1 x2 y2 x3 y3 fill-out fill-in n)
( define make-sierpinski-aux
Versão Preliminar
( lambda (x1 y1 x2 y2 x3 y3 fill n acc )
(if ( positive n)
( let (( x12 (/ (+ x1 x2) 2.0))
( y12 (/ (+ y1 y2) 2.0))
( x13 (/ (+ x1 x3) 2.0))
( y13 (/ (+ y1 y3) 2.0))
( x23 (/ (+ x2 x3) 2.0))
( y23 (/ (+ y2 y3) 2.0)))
( append acc
( list
[ 27 de outubro de 2010 at 15:47 ]
77