chapter1/ex1-12.ss at master from emkay's sicp-exercises

emkay / sicp-exercises

Description:	sicp exercises for the HN SICP group edit
Homepage:	edit
Public Clone URL:	git://github.com/emkay/sicp-exercises.git Give this clone URL to anyone. `git clone git://github.com/emkay/sicp-exercises.git`
Your Clone URL:	git@github.com:emkay/sicp-exercises.git Use this clone URL yourself. `git clone git@github.com:emkay/sicp-exercises.git`

fixing bug in exercise 1-5. It wasnt working if all inputs were equal.

emkay (author)

Sat Jan 24 16:03:17 -0800 2009

sicp-exercises / chapter1 / ex1-12.ss

100644 7 lines (6 sloc) 0.129 kb

raw blame history

(define (ptriangle x y)
  (if (or (= x 0) 
		  (= y 1) 
		  (> y x))
	1
	(+ (ptriangle (- x 1) (- y 1)) (ptriangle (- x 1) y))))