Skip to content

Instantly share code, notes, and snippets.

@geoangelotti

geoangelotti/Sierpinski.rkt

Created April 18, 2022 11:10
Show Gist options
  • Save geoangelotti/b3f91e6d333829d70baa821bf2117310 to your computer and use it in GitHub Desktop.
Save geoangelotti/b3f91e6d333829d70baa821bf2117310 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Sierpinski.rkt
#lang racket
(require 2htdp/image)
(define(serp d)
(if (zero? d)
(triangle 1 'solid 'green)
(above (serp (sub1 d))
(beside (serp (sub1 d))
(serp (sub1 d))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment