Submission #316891

---

Source Code Expand

(define deg (read))
(define dis (read))
(define dir (cond
    ((< dis 15) "C")
    ((and (<=  112.5 deg) (< deg  337.5)) "NNE")
    ((and (<=  337.5 deg) (< deg  562.5)) "NE")
    ((and (<=  562.5 deg) (< deg  787.5)) "ENE")
    ((and (<=  787.5 deg) (< deg 1012.5)) "E")
    ((and (<= 1012.5 deg) (< deg 1237.5)) "ESE")
    ((and (<= 1237.5 deg) (< deg 1462.5)) "SE")
    ((and (<= 1462.5 deg) (< deg 1687.5)) "SSE")
    ((and (<= 1687.5 deg) (< deg 1912.5)) "S")
    ((and (<= 1912.5 deg) (< deg 2137.5)) "SSW")
    ((and (<= 2137.5 deg) (< deg 2362.5)) "SW")
    ((and (<= 2362.5 deg) (< deg 2587.5)) "WSW")
    ((and (<= 2587.5 deg) (< deg 2812.5)) "W")
    ((and (<= 2812.5 deg) (< deg 3037.5)) "WNW")
    ((and (<= 3037.5 deg) (< deg 3262.5)) "NW")
    ((and (<= 3262.5 deg) (< deg 3487.5)) "NNW")
    (else "N")))
(define w (cond
    ((< dis   15)  0)
    ((< dis   93)  1)
    ((< dis  201)  2)
    ((< dis  327)  3)
    ((< dis  477)  4)
    ((< dis  645)  5)
    ((< dis  831)  6)
    ((< dis 1029)  7)
    ((< dis 1245)  8)
    ((< dis 1467)  9)
    ((< dis 1707) 10)
    ((< dis 1959) 11)
    (else 12)))
(display (string-append dir " " (number->string w)))
(newline)

Submission Info

Judge Result