You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
621 B
Racket
28 lines
621 B
Racket
11 years ago
|
#lang racket
|
||
|
|
|
||
|
|
(require racket/extflonum)
|
||
|
|
(require (planet williams/describe/describe))
|
||
|
|
|
||
|
|
(printf "--- Using literals (extended precision) ---~n")
|
||
|
|
(describe 0.1t0)
|
||
|
|
(describe 0.2t0)
|
||
|
|
(describe 0.3t0)
|
||
|
|
(describe 0.4t0)
|
||
|
|
(describe 0.5t0)
|
||
|
|
(describe 0.6t0)
|
||
|
|
(describe 0.7t0)
|
||
|
|
(describe 0.8t0)
|
||
|
|
(describe 0.9t0)
|
||
|
|
(describe 1.0t0)
|
||
|
|
|
||
|
|
(printf "--- Using summation (extended precision) ---~n")
|
||
|
|
(for/fold ((sum 0.0t0))
|
||
|
|
((i (in-range 10)))
|
||
|
|
(define new-sum (extfl+ sum 0.1t0))
|
||
|
|
(describe new-sum)
|
||
|
|
new-sum)
|
||
|
|
|
||
|
|
(printf "--- Using product (single precision) ---~n")
|
||
|
|
(for ((i (in-range 1 11)))
|
||
|
|
(describe (extfl* (->extfl i) 0.1t0)))
|