Use (sqrt (sqrt 2)) instead of (sqrt 2) in waypoint calculation
This commit is contained in:
parent
eb0df94b1d
commit
c71ea5aaed
|
@ -57,8 +57,8 @@
|
||||||
(let loop ((n 10))
|
(let loop ((n 10))
|
||||||
(if (>= n 30000)
|
(if (>= n 30000)
|
||||||
'()
|
'()
|
||||||
(cons (inexact->exact (truncate n))
|
(cons (inexact->exact (round n))
|
||||||
(loop (* n (sqrt 2)))))))
|
(loop (* n (sqrt (sqrt 2))))))))
|
||||||
;; (list 1 10 20 30 40 50 60 70 80 90 100 120
|
;; (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
|
;; 150 200 210 220 230 240 250 260 270 280 290 300 400
|
||||||
;; 500 600 700 800 900
|
;; 500 600 700 800 900
|
||||||
|
|
Loading…
Reference in New Issue