ray/guile-geohash
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change default precision to 9 characters (approx 5m square)

Browse source
This commit is contained in:
Ray Miller 2024-07-06 15:11:53 +01:00
parent 05f019b269
commit 5c6ee9e782
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
geohash.scm
View file

@ -10,7 +10,7 @@
(define base32 "0123456789bcdefghjkmnpqrstuvwxyz") (define base32 "0123456789bcdefghjkmnpqrstuvwxyz")
(define* (encode lat lon #:key (precision 6)) (define* (encode lat lon #:key (precision 9))
(define desired-precision (min precision max-precision)) (define desired-precision (min precision max-precision))
(let loop ((lat-min -90.0) (let loop ((lat-min -90.0)
(lat-max 90.0) (lat-max 90.0)

2
tests/geohash.scm
View file

@ -36,7 +36,7 @@
(encode 37.25 123.75 #:precision 12)) (encode 37.25 123.75 #:precision 12))
(test-equal "encode default precision" (test-equal "encode default precision"
"wy85bj" "wy85bj0hb"
(encode 37.25 123.75)) (encode 37.25 123.75))
(test-end) (test-end)