Skip to content

Instantly share code, notes, and snippets.

@Edmundworks

Edmundworks/pascals

Last active May 29, 2018 20:59
Show Gist options
  • Save Edmundworks/42ae416a3cf36623ca8082614219415f to your computer and use it in GitHub Desktop.
Save Edmundworks/42ae416a3cf36623ca8082614219415f to your computer and use it in GitHub Desktop.
Download ZIP
SICP 1.12
Raw
pascals
(define (pascal row col)
cond (> col row) 0))
(= col row) 1))
(> col row) 1))
else (+ (pascal (- row 1) (- col 1)
(pascal (- row 1) col))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment