Skip to content

Instantly share code, notes, and snippets.

@yao2030

yao2030/split.scm

Created December 17, 2012 02:19
Show Gist options
  • Save yao2030/4315360 to your computer and use it in GitHub Desktop.
Save yao2030/4315360 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
split.scm
(define (split op1 op2)
(lambda (painter n)
(if (= n 0)
painter
(let ((smaller ((split op1 op2) painter (- n 1))))
(op1 painter (op2 smaller smaller))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment