1votos

Dibujar triangulo de sierpinski en Other

por josejuan hace 5 años

Siguiendo la de @Xurxof en PS, ésta en Logo (¿¡no existe como lenguaje!?).

Gráfica el triangulo de sierpinski.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
TO Triangle :l 
    IFELSE :l > 10 
        [MAKE "s (:l / 2) 
         Triangle :s FD :s 
         Triangle :s RT 120 FD :s LT 120 
         Triangle :s LT 120 FD :s RT 120] 
        [REPEAT 3 [FD :l RT 120]] 
END 
 
 
 
; Por ejemplo 
Triangle 100 
 
; Se puede correr este mismo código en 
;   http://logo.twentygototen.org 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.