Submission #2211195

---

Source Code Expand

(defun deg->dir (deg)
  (let ((d (* deg 4)))
    (cond
      ((< d 450)   "N")
      ((< d 1350)  "NNE")
      ((< d 2250)  "NE")
      ((< d 3150)  "ENE")
      ((< d 4050)  "E")
      ((< d 4950)  "ESE")
      ((< d 5850)  "SE")
      ((< d 6750)  "SSE")
      ((< d 7650)  "S")
      ((< d 8550)  "SSW")
      ((< d 9450)  "SW")
      ((< d 10350) "WSW")
      ((< d 11250) "W")
      ((< d 12150) "WNW")
      ((< d 13050) "NW")
      ((< d 13950) "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)) ))
      (cond
        ((<= d 2)   0)
        ((<= d 15)  1)
        ((<= d 33)  2)
        ((<= d 54)  3)
        ((<= d 79)  4)
        ((<= d 107) 5)
        ((<= d 138) 6)
        ((<= d 171) 7)
        ((<= d 207) 8)
        ((<= d 244) 9)
        ((<= d 284) 10)
        ((<= d 326) 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