Skip to content

Instantly share code, notes, and snippets.

@kevintaylor

kevintaylor/gist:199929

Created October 2, 2009 17:36
Show Gist options
  • Save kevintaylor/199929 to your computer and use it in GitHub Desktop.
Save kevintaylor/199929 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(define (tree-1-12 c r)
(cond ((= c 1) 1)
((= c r) 1)
((+ (tree-1-12 (- c 1) (- r 1))
(tree-1-12 c (- r 1)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment