coding-exercises/2/45.rkt


1
2
3
4
5
6
7
8
9
10

#lang racket
(require sicp-pict)

(define (split adjoiner splitter)
  (lambda (painter)
    (let ((splitted (splitter painter painter)))
      (adjoiner painter splitted))))

(define right-split (split beside below))
(define up-split (split below beside))