Skip to content

Instantly share code, notes, and snippets.

@mikamix

mikamix/1.3.scm

Created January 30, 2014 11:55
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mikamix/8707024 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mikamix/8707024 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
1.3.scm
(define
(sum-square x y z)
(cond ((and (< z x) (< z y)) (+ (* x x) (* y y)))
((and (< y x) (< y z)) (+ (* x x) (* z z)))
(else (+ (* y y) (* z z)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment