Skip to content

Instantly share code, notes, and snippets.

@anandnalya

anandnalya/gist:1124413

Created August 4, 2011 03:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anandnalya/1124413 to your computer and use it in GitHub Desktop.
Save anandnalya/1124413 to your computer and use it in GitHub Desktop.
Download ZIP
My first Scheme program
Raw
gistfile1.scm
(define (sumLargeSquare a b c)
(cond ((and (< a b) (< a c)) (+ (* b b) (* c c)))
((and (< b a) (< b c)) (+ (* a a) (* c c)))
(else (+ (* a a) (* b b))))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment