Submission #109829

---

Source Code Expand

(define (doIt)
  (let* ((deg (read)) (dis (read)))
	(begin
	  (display (getDir (* deg 10) (convert (getPower dis))))
	  (display " ")
	  (display (convert (getPower dis)))
	  (newline)
	  )
	)
  )

(define (getDir d p)
  (if (= p 0) "C"
  (cond
   ((and (>= d 1125) (< d 3375)) "NNE")
   ((and (>= d 3375) (< d 5625)) "NE")
   ((and (>= d 5625) (< d 7875)) "ENE")
   ((and (>= d 7875) (< d 10125)) "E")
   ((and (>= d 10125) (< d 12375)) "ESE")
   ((and (>= d 12375) (< d 14625)) "SE")
   ((and (>= d 14625) (< d 16875)) "SSE")
   ((and (>= d 16875) (< d 19125)) "S")
   ((and (>= d 19125) (< d 21375)) "SSW")
   ((and (>= d 21375) (< d 23625)) "SW")
   ((and (>= d 23625) (< d 25875)) "WSW")
   ((and (>= d 25875) (< d 28125)) "W")
   ((and (>= d 28125) (< d 30375)) "WNW")
   ((and (>= d 30375) (< d 32625)) "NW")
   ((and (>= d 32625) (< d 34875)) "NNW")
   (else "N")
   ))
  )

;; 四捨五入
;;http://tips.lisp-users.org/common-lisp/index.cgi?%E5%9B%9B%E6%8D%A8%E4%BA%94%E5%85%A5%E3%81%99%E3%82%8B
(define (roundoff number)
  (floor (+ 0.5 number)))

(define (getPower p)
  (roundoff (* (/ p 60) 10)))

(define (convert pw)
  ;;(display pw)
   (cond
   ((and (>= pw 0) (<= pw 2)) 0)
   ((and (>= pw 3) (<= pw 15)) 1)
   ((and (>= pw 16) (<= pw 33)) 2)
   ((and (>= pw 34) (<= pw 54)) 3)
   ((and (>= pw 55) (<= pw 79)) 4)
   ((and (>= pw 80) (<= pw 107)) 5)
   ((and (>= pw 108) (<= pw 138)) 6)
   ((and (>= pw 139) (<= pw 171)) 7)
   ((and (>= pw 172) (<= pw 207)) 8)
   ((and (>= pw 208) (<= pw 244)) 9)
   ((and (>= pw 245) (<= pw 284)) 10)
   ((and (>= pw 285) (<= pw 326)) 11)
   (else 12)
   )
  )

(doIt)

Submission Info

Judge Result