(defun qra (latitude longitude) 
  (setq longitude (+ longitude 180.0))
  (setq latitude (+ latitude 90.0))
  (format
   "%c%c%c%c%c%c"
   (+ 65 (floor longitude 20.0))
   (+ 65 (floor latitude 10.0))
   (+ 48 (floor (* 10 (- (/ longitude 20.0) (floor longitude 20.0)))))
   (+ 48 (floor (* 10 (- (/ latitude 10.0) (floor latitude 10.0)))))
   (+ 32 65 (floor (* 24 (- (/ longitude 2.0) (floor longitude 2.0)))))
   (+ 32 65 (floor (* 24 (- latitude (floor latitude)))))))

(qra 37.428833 -122.114667) 

; CM87wk

- posted by Leigh @ 01:50 z