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.
27 lines
570 B
Racket
27 lines
570 B
Racket
11 years ago
|
#lang racket
|
||
|
|
|
||
|
|
(require (planet williams/describe/describe))
|
||
|
|
|
||
|
|
(printf "--- Using literals (single precision) ---~n")
|
||
|
|
(describe 0.1s0)
|
||
|
|
(describe 0.2s0)
|
||
|
|
(describe 0.3s0)
|
||
|
|
(describe 0.4s0)
|
||
|
|
(describe 0.5s0)
|
||
|
|
(describe 0.6s0)
|
||
|
|
(describe 0.7s0)
|
||
|
|
(describe 0.8s0)
|
||
|
|
(describe 0.9s0)
|
||
|
|
(describe 1.0s0)
|
||
|
|
|
||
|
|
(printf "--- Using summation (single precision) ---~n")
|
||
|
|
(for/fold ((sum 0.0s0))
|
||
|
|
((i (in-range 10)))
|
||
|
|
(define new-sum (+ sum 0.1s0))
|
||
|
|
(describe new-sum)
|
||
|
|
new-sum)
|
||
|
|
|
||
|
|
(printf "--- Using product (single precision) ---~n")
|
||
|
|
(for ((i (in-range 1 11)))
|
||
|
|
(describe (* i 0.1s0)))
|