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