Skip to content

Instantly share code, notes, and snippets.

@yao2030

yao2030/up-split.scm

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