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