Submission #2211051

---

Source Code Expand

(defun deg->dir (deg)
  (let ((d (/ deg 10.0)))
    (flet ((btwn (x s l) (and (<= s x) (< x l))))
      (cond
        ((btwn d 11.25  33.75)  "NNE")
        ((btwn d 33.75  56.25)  "NE")
        ((btwn d 56.25  78.75)  "ENE")
        ((btwn d 78.75  101.25) "E")
        ((btwn d 101.25 123.75) "ESE")
        ((btwn d 123.75 146.25) "SE")
        ((btwn d 146.25 168.75) "SSE")
        ((btwn d 168.75 191.25) "S")
        ((btwn d 191.25 213.75) "SSW")
        ((btwn d 213.75 236.25) "SW")
        ((btwn d 236.25 258.75) "WSW")
        ((btwn d 258.75 281.25) "W")
        ((btwn d 281.25 303.75) "WNW")
        ((btwn d 303.75 326.25) "NW")
        ((btwn d 326.25 348.75) "NNW")
        (t                         "N")))))

(defun dis->w (dis)
  (flet ((rnd (x) (multiple-value-bind (a b) (round x) (if (> 0 b) (1- a) a))))
    (let ((d (/ (rnd (+ (* (/ dis 60.0) 10) 0.5)) 10.0)))
      (cond
        ((<= 0.0  d 0.2)  0)
        ((<= 0.3  d 1.5)  1)
        ((<= 1.6  d 3.3)  2)
        ((<= 3.4  d 5.4)  3)
        ((<= 5.5  d 7.9)  4)
        ((<= 8.0  d 10.7) 5)
        ((<= 10.8 d 13.8) 6)
        ((<= 13.9 d 17.1) 7)
        ((<= 17.2 d 20.7) 8)
        ((<= 20.8 d 24.4) 9)
        ((<= 24.5 d 28.4) 10)
        ((<= 28.5 d 32.6) 11)
        ((<= 32.7 d)      12)))))

(/ (round (+ (* (/ 644 60.0) 10) 0.5)) 10.0)

(let* ((deg (read)) (dis (read))
       (dir (deg->dir deg)) (w (dis->w dis)))
  (if (= w 0)
    (format t "C 0~%")
    (format t "~a ~a~%" dir w)))

Submission Info

Judge Result