diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-07 15:18:30 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-07 15:18:30 +0100 |
| commit | bd5f50be83a10363fdfd4f73a377325cf48b5903 (patch) | |
| tree | 050f562d4b815cc4a8467facb935c0cba98b8bea /coding-exercises/2/13.rkt | |
| parent | 592ef89cb282ab33d6b10cacae711a4a8e6b1212 (diff) | |
fixup
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) |