Submission #109795

---

Source Code Expand

(define Deg (read))
(define Dis (read))
(define w (/ (floor (+ (+ (* (/ Dis 60.0) 10.0) 0.5) 0.001)) 10.0))

(define Dir
  (cond
    ((< Deg 112.5) "N")
    ((< Deg 337.5) "NNE")
	((< Deg 562.5) "NE")
	((< Deg 787.5) "ENE")
	((< Deg 1012.5) "E")
	((< Deg 1237.5) "ESE")
	((< Deg 1462.5) "SE")
	((< Deg 1687.5) "SSE")
	((< Deg 1912.5) "S")
	((< Deg 2137.5) "SSW")
	((< Deg 2362.5) "SW")
	((< Deg 2587.5) "WSW")
	((< Deg 2812.5) "W")
	((< Deg 3037.5) "WNW")
	((< Deg 3262.5) "NW")
	((< Deg 3487.5) "NNW")
	(else "N")))

(define W
  (cond 
    ((<= w 0.2) 0)
	((<= w 1.5) 1)
	((<= w 3.3) 2)
	((<= w 5.4) 3)
	((<= w 7.9) 4)
	((<= w 10.7) 5)
	((<= w 13.8) 6)
	((<= w 17.1) 7)
	((<= w 20.7) 8)
	((<= w 24.4) 9)
	((<= w 28.4) 10)
	((<= w 32.6) 11)
	(else 12)))

(if (< W 1)
  (set! Dir "C"))

(display Dir)
(display " ")
(display W) 
(newline)

Submission Info

Judge Result