Epsilon

gistfile1.txt

#lang racket/base

;; http://en.wikipedia.org/wiki/Machine_epsilon
;; approximates the machine epsilon

(require racket/flonum)
(define (compute-machine-epsilon)
  (let loop ([n 1.0])
    (define new-n (fl/ n 2.0))
    (cond
      [(fl= 1.0 (fl+ 1.0 (fl/ new-n 2.0)))
       new-n]
      [else
       (loop new-n)])))