Use (sqrt (sqrt 2)) instead of (sqrt 2) in waypoint calculation

2015-03-18 21:27:34 -04:00 · 2015-03-18 21:27:34 -04:00 · c71ea5aaed
parent eb0df94b1d
commit c71ea5aaed
1 changed files with 2 additions and 2 deletions
--- a/echo-client.rkt
+++ b/echo-client.rkt
@ -57,8 +57,8 @@
         (let loop ((n 10))
           (if (>= n 30000)
               '()
-               (cons (inexact->exact (truncate n))
-                     (loop (* n (sqrt 2)))))))
+               (cons (inexact->exact (round n))
+                     (loop (* n (sqrt (sqrt 2))))))))
  ;; (list 1 10 20 30 40 50 60 70 80 90 100 120
  ;;       150 200 210 220 230 240 250 260 270 280 290 300 400
  ;;       500 600 700 800 900