PasteRack.org
Paste # 42715
2017-08-10 12:10:21

Fork as a new paste.

Paste viewed 12 times.


Embed:

  1. #lang racket
  2. (require 2htdp/image)
  3.  
  4. (let sierpinski ([n 8])
  5.   (if (zero? n)
  6.     (triangle 2 'solid 'red)
  7.     (let ([t (sierpinski (- n 1))])
  8.       (freeze (above t (beside t t))))))

=>

image