Submission #2211164

---

Source Code Expand

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

(defun dis->w (dis)
  (flet ((rnd (x)
           (multiple-value-bind (a b) (round (+ x 0.5))
           	 (if (> 0 b)
           	 	(1- a)
           	 	a))))
    (let ((d (/ (rnd (/ dis 6.0)) 10.0)))
      (cond
        ((<= d 0.2)  0)
        ((<= d 1.5)  1)
        ((<= d 3.3)  2)
        ((<= d 5.4)  3)
        ((<= d 7.9)  4)
        ((<= d 10.7) 5)
        ((<= d 13.8) 6)
        ((<= d 17.1) 7)
        ((<= d 20.7) 8)
        ((<= d 24.4) 9)
        ((<= d 28.4) 10)
        ((<= d 32.6) 11)
        (t           12)))))

(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