Skip to content

Instantly share code, notes, and snippets.

@robertpostill

robertpostill/sicp-1_3-refactored.scm

Created November 6, 2010 05:03
Show Gist options
  • Save robertpostill/665212 to your computer and use it in GitHub Desktop.
Save robertpostill/665212 to your computer and use it in GitHub Desktop.
Download ZIP
Refactored solution for SICP exercise 1.3
Raw
sicp-1_3-refactored.scm
(define (sum-of-the-larger-two a b c)
(define remainder (min a b c))
(define subtotal (apply + (list a b c)))
(- subtotal remainder))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment