diff options
Diffstat (limited to 'coding-exercises/2/13.rkt')
| -rw-r--r-- | coding-exercises/2/13.rkt | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/coding-exercises/2/13.rkt b/coding-exercises/2/13.rkt new file mode 100644 index 0000000..bc4cf09 --- /dev/null +++ b/coding-exercises/2/13.rkt @@ -0,0 +1,10 @@ +#lang racket +(require "../../shared/intervals.rkt") + +(define (print) + (let ((i1 (make-center-percent 12.0 5.0)) + (i2 (make-center-percent 12.0 5.0))) + (print-interval (mul-interval i1 i2)) + (println (percent (mul-interval i1 i2))))) + +(print) |