Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
acc )))
( make-svg-image
( make-svg-triangle x12 y12 x23 y23 x13 y13
fill fill 0))
( make-sierpinski-aux x1 y1 x12 y12 x13 y13
fill (- n 1) ’())
( make-sierpinski-aux x2 y2 x12 y12 x23 y23
fill (- n 1) ’())
( make-sierpinski-aux x3 y3 x13 y13 x23 y23
fill (- n 1) ’())))
( append ( list ( make-svg-triangle x1 y1 x2 y2 x3 y3
fill-out fill-out 0))
( make-sierpinski-aux x1 y1 x2 y2 x3 y3
fill-in n ’())))))
O procedimento make-sierpinski-aux calcula os pontos médios dos três lados do
triângulo, desenha um triângulo com vértices nestes três pontos e em seguida chama a si
mesmo recursivamente para desenhar os outros três triângulos.
A figura no início desta seção foi gerada usando o código a seguir.
( let ((s ( make-sierpinski 0 600 300 0 600 600
" black " " white "
10)))
( images- > xml s " sierpinski . svg "))
O tempo usado por este programa é exponencial (proporcional a 3 n ), assim como o
tamanho do arquivo gerado.
exercícios
Ex. 27 — Faça um programa que leia uma frase (ou texto) e diga a média do tamanho
das palavras do texto.
Versão Preliminar
78
[ 27 de outubro de 2010 at 15:47 ]