diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-19 10:24:56 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-19 10:24:56 +0100 |
| commit | dc322c0c524ae959e623636d68716c91d5a09404 (patch) | |
| tree | 6419d49fef6de67ddd90e111aa0e97dd73847d7b /coding-exercises/2/44.rkt | |
| parent | 53bdf776c4f426a92953d2afa76c1f9ee008c02c (diff) | |
fixup
Diffstat (limited to 'coding-exercises/2/44.rkt')
| -rw-r--r-- | coding-exercises/2/44.rkt | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/coding-exercises/2/44.rkt b/coding-exercises/2/44.rkt index 9381ac9..3b8c76c 100644 --- a/coding-exercises/2/44.rkt +++ b/coding-exercises/2/44.rkt @@ -1,5 +1,6 @@ #lang racket (require sicp-pict) +(require "../../shared/pict.rkt") (define wave2 (beside einstein (flip-vert einstein))) (define wave4 (below wave2 wave2)) @@ -27,3 +28,11 @@ (beside (below painter top-left) (below bottom-right corner)))))) (paint (corner-split einstein 4)) + +(define (square-limit painter n) + (let ((quarter (corner-split painter n))) + (let ((half (beside (flip-horiz quarter) quarter))) + (below (flip-vert half) half)))) + +(square-limit einstein 4) +(paint (square-limit einstein 4)) |