sicp

sicp sandbox.
git clone git://git.ricketyspace.net/sicp.git
Log | Files | Refs

commit ab88f8ee42ab2934bed5eac5f4be9edc61be7cf8
parent 28793f1fec7cf8d371286e87276f714f77422eda
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat,  4 Aug 2018 21:53:04 +0000

Add  (net ricketyspace sicp two eight).

Diffstat:
net/ricketyspace/sicp/two/eight.scm | 11+++++++++++
1 file changed, 11 insertions(+), 0 deletions(-)

diff --git a/net/ricketyspace/sicp/two/eight.scm b/net/ricketyspace/sicp/two/eight.scm @@ -0,0 +1,11 @@ +;;;; Under Creative Commons Attribution-ShareAlike 4.0 +;;;; International. See +;;;; <https://creativecommons.org/licenses/by-sa/4.0/>. + +(define-module (net ricketyspace sicp two eight) + #:use-module (net ricketyspace sicp two seven) + #:export (sub-interval)) + +(define (sub-interval x y) + (make-interval (- (lower-bound x) (lower-bound y)) + (- (upper-bound x) (upper-bound y))))