<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div class="">I think that’s precisely what Alexander’s <font face="Courier" class="">exact-decimal-lang</font> does. It’s a meta-language just like <font face="Courier" class="">at-exp</font>.</div><br class=""><div><blockquote type="cite" class=""><div class="">On Feb 26, 2015, at 08:38, Eric Dong <<a href="mailto:yd2dong@uwaterloo.ca" class="">yd2dong@uwaterloo.ca</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div dir="ltr" class="">I feel like swapping out flonums by default to rationals by default would cause unexpected slowness in a large number of programs though. Would it be possible to make it a reader extension like at-exp is currently? So I can say "#lang exact-decimals racket", and the reader would read the decimals as rationals?</div><div class="gmail_extra"><br class=""><div class="gmail_quote">On Thu, Feb 26, 2015 at 9:13 AM, Neil Toronto <span dir="ltr" class=""><<a href="mailto:neil.toronto@gmail.com" target="_blank" class="">neil.toronto@gmail.com</a>></span> wrote:<br class=""><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="HOEnZb"><div class="h5">On 02/24/2015 01:11 PM, Konrad Hinsen wrote:<br class="">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
On 24/02/2015 16:41, Laurent wrote:<br class="">
<br class="">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
I've discovered a rather troubling behaviour when using `in-range` with<br class="">
floating point numbers, which I think is worth knowing in case you<br class="">
hadn't consider the issue before:<br class="">
<br class="">
On my machine, I get the following:<br class="">
<br class="">
(length (for/list ([i (in-range .1 .7 .1)]) i)) ; 6<br class="">
(length (for/list ([i (in-range .1 .8 .1)]) i)) ; 8 (!)<br class="">
<br class="">
But:<br class="">
(length (for/list ([i (in-range 1/10 7/10 1/10)]) i)) ; 6<br class="">
(length (for/list ([i (in-range 1/10 8/10 1/10)]) i)) ; 7<br class="">
<br class="">
<br class="">
Would it be a good idea to safe-guard these kinds of cases directly in<br class="">
`in-range`?<br class="">
</blockquote>
<br class="">
The problem is an old one that already troubled programmers in the age<br class="">
of Fortran. I suspect there is no reasonable safe-guard, with<br class="">
"reasonable" meaning that it does what people expect in all situations.<br class="">
<br class="">
The only way to stay out of trouble is to avoid loops defined by an<br class="">
accumulating floating-point value. This means either don't use floats<br class="">
(write the loop over integers or rationals and convert to floats when<br class="">
using the loop index), or don't use accumulation (define your range by<br class="">
two points and the number of subdivisions, rather than the width of<br class="">
subintervals).<br class="">
</blockquote>
<br class=""></div></div>
I should have chimed in to support this two days ago, but this is exactly the right answer. Here's what Konrad means by his first alternative (write the loop over integers or rationals):<br class="">
<br class="">
  (length<br class="">
   (for*/list ([i  (in-range 1 8 1)]<br class="">
               [i  (in-value (* i 0.1))])<br class="">
     i))<br class="">
<br class="">
The second alternative is a little harder to get right because of fencepost errors [1]. Fortunately, Racket has a library function for it. Unfortunately, it's buried in `plot/utils`. Here it is in action:<br class="">
<br class="">
> (require (only-in plot/utils linear-seq))<br class="">
<br class="">
> (linear-seq 0.0 1.0 4)<br class="">
'(0.0 0.3333333333333333 0.6666666666666666 1.0)<br class="">
<br class="">
> (linear-seq 0.0 1.0 4 #:start? #f)<br class="">
'(0.14285714285714285 0.42857142857142855 0.7142857142857142 1.0)<br class="">
<br class="">
> (linear-seq 0.0 1.0 4 #:start? #f #:end? #f)<br class="">
'(0.125 0.375 0.625 0.875)<br class="">
<br class="">
I should really move this function into `math/base`.<br class="">
<br class="">
If you must use a flonum step size, do something like this:<br class="">
<br class="">
  (define (flonum-range start end step)<br class="">
    (define n (exact-ceiling (/ (- end start) step)))<br class="">
    (for/list ([i  (in-range 0 n)])<br class="">
      (+ start (* i step))))<br class="">
<br class="">
To get points with 0.5 ulp error each, which is the best you can do, add (require math/flonum) to your program and change the loop body to (flfma step (fl i) start).<br class="">
<br class="">
Arguably, `in-range` should do something like the above when given floating-point step lengths. I don't know how feasible that is, though.<br class="">
<br class="">
Neil ⊥<br class="">
<br class="">
[1] <a href="http://en.wikipedia.org/wiki/Off-by-one_error#Fencepost_error" target="_blank" class="">http://en.wikipedia.org/wiki/<u class=""></u>Off-by-one_error#Fencepost_<u class=""></u>error</a><div class="HOEnZb"><div class="h5"><br class="">
<br class="">
____________________<br class="">
 Racket Users list:<br class="">
 <a href="http://lists.racket-lang.org/users" target="_blank" class="">http://lists.racket-lang.org/<u class=""></u>users</a><br class="">
</div></div></blockquote></div><br class=""></div>
____________________<br class="">  Racket Users list:<br class="">  <a href="http://lists.racket-lang.org/users" class="">http://lists.racket-lang.org/users</a><br class=""></div></blockquote></div><br class=""></body></html>