PasteRack.org
Paste # 87141
2016-09-29 07:07:11

Fork as a new paste.

Paste viewed 169 times.


Embed:

Triangle Fractal

  1. #lang racket
  2.  
  3. ;; Triangle : image
  4. ;;
  5. (require 2htdp/image)
  6.  
  7. (define Triangle (triangle 40 "solid" "tan"))
  8.  
  9. ;; BiggerTriangle : image -> image
  10. ;;                  t1    -> l'image du triangle t1 se multiplie par 3 pour former un autre triangle
  11. (define (BiggerTriangle t1)(above(beside t1 t1) t1))
  12.  
  13.  
  14. (define (MultiTriangle n)(cond
  15.                           [(= n 0)]
  16.                                       [else ( BiggerTriangle( MultiTriangle(- n 1) ) ) ]
  17.                          )
  18. )

=>