Sierpinski triangle/Graphical: Difference between revisions
Content added Content deleted
Line 746: | Line 746: | ||
(let ([t (sierpinski (- n 1))]) |
(let ([t (sierpinski (- n 1))]) |
||
(freeze (above t (beside t t)))))) |
(freeze (above t (beside t t)))))) |
||
</lang> |
|||
Test: |
|||
</lang racket> |
|||
;; the following will show the graphics if run in DrRacket |
;; the following will show the graphics if run in DrRacket |
||
(sierpinski 8) |
(sierpinski 8) |