Revision as of 10:46, 9 October 2020 (view source) Mihailp (talk \| contribs) (add PicoLisp) ← Older edit		Revision as of 14:38, 10 October 2020 (view source) Mihailp (talk \| contribs) m (→‎{{header\|PicoLisp}}) Newer edit →
Line 373: (setq GBASE32 (chop "0123456789bcdefghjkmnpqrstuvwxyz")) (de encode (Lat Lng Prec) (let ~~Lst~~ (Base (circ (list -180.0 180.0) (list -90.0 90.0)) ~~(mapcar~~ '(Curr (Acirc BLng CLat) ~~(let M (/ (sum prog B) 2)~~Lst (~~if (> C M)~~make (~~prog~~do (~~set B~~ M)5 1Prec) (~~set (cdr B) M)~~let 0(B ~~) )~~(++ Base) ~~(range~~ 1 (* 5 ~~Prec)~~ C (++ Curr) # ~~Longitude,~~ ~~Latitude~~ M (/ (sum prog B) 2) ) ~~(circ~~ ~~(list~~ ~~-180.0~~ ~~180.0)~~ (if (~~list~~> ~~-90.0~~C ~~90.0)~~M) (~~circ~~prog ~~Lng~~(set ~~Lat~~B M) (link 1)) (set (cdr B) M) (link 0) ) ) ) ) ) (pack (make

Geohash: Difference between revisions

Geohash (view source)