diff options
Diffstat (limited to 'ex')
| -rw-r--r-- | ex/2/44.rkt | 39 | ||||
| -rw-r--r-- | ex/2/rogers.jpg | bin | 0 -> 25995 bytes |
2 files changed, 39 insertions, 0 deletions
diff --git a/ex/2/44.rkt b/ex/2/44.rkt new file mode 100644 index 0000000..6819778 --- /dev/null +++ b/ex/2/44.rkt @@ -0,0 +1,39 @@ +;;;; License: CC0-1.0 + +#lang racket + +(require + racket/runtime-path + sicp-pict) + +(define-runtime-path rogers-file "rogers.jpg") + +(define rogers + (bitmap->painter rogers-file)) + +(define (right-split painter n) + (if (= n 0) + painter + (let ((smaller (right-split painter (- n 1)))) + (beside painter (below smaller smaller))))) + +(define (up-split painter n) + (if (= n 0) + painter + (let ((smaller (up-split painter (- n 1)))) + (below painter (beside smaller smaller))))) + +(define (corner-split painter n) + (if (= n 0) + painter + (let ((up (up-split painter (- n 1))) + (right (right-split painter (- n 1)))) + (let ((top-left (beside up up)) + (bottom-right (below right right)) + (corner (corner-split painter (- n 1)))) + (beside (below painter top-left) + (below bottom-right corner)))))) + +;;; Racket REPL +;;; +;;; https://ricketyspace.net/sicp/2.44.jpg diff --git a/ex/2/rogers.jpg b/ex/2/rogers.jpg Binary files differnew file mode 100644 index 0000000..5821c24 --- /dev/null +++ b/ex/2/rogers.jpg |
