From c71ea5aaed210a399e09726c584238da6b12de68 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 18 Mar 2015 21:27:34 -0400
Subject: [PATCH] Use (sqrt (sqrt 2)) instead of (sqrt 2) in waypoint
 calculation

---
 echo-client.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/echo-client.rkt b/echo-client.rkt
index 797444b..319a44e 100644
--- 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