Skip to content

Instantly share code, notes, and snippets.

@kouddy

kouddy/SICP 2.13.part2

Created March 31, 2015 15:10
Show Gist options
  • Save kouddy/05114af8b8d3437f262c to your computer and use it in GitHub Desktop.
Save kouddy/05114af8b8d3437f262c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SICP 2.13.part2
(define a (make-interval 100 101))
(define b (make-interval 1.001 1.002))
(mul-interval-small a a) ;;; '(10000 . 10200)
(mul-interval a a) ;;; '(10000 . 10201)
(mul-interval-small b b) ;;; '(1.0020009999999997 . 1.004003)
(mul-interval b b) ;;; '(1.0020009999999997 . 1.004004)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment