Submission #3954291

---

Source Code Expand

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defparameter OPT
    #+swank '(optimize (speed 3) (safety 2))
    #-swank '(optimize (speed 3) (safety 0) (debug 0)))
  #+swank (progn (ql:quickload '(:cl-debug-print :fiveam))
                 (shadow :run)
                 (use-package :fiveam)))
#+swank (cl-syntax:use-syntax cl-debug-print:debug-print-syntax)

;; BEGIN_INSERTED_CONTENTS
(defmacro define-int-types (&rest bits)
  `(progn
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "UINT~A" b)) () '(unsigned-byte ,b))) bits)
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "INT~A" b)) () '(signed-byte ,b))) bits)))
(define-int-types 4 7 8 15 16 31 32 62 63 64)

(defmacro println (obj &optional (stream '*standard-output*))
  `(let ((*read-default-float-format* 'double-float))
     (prog1 (princ ,obj ,stream) (terpri ,stream))))

;; Hauptteil
(defun round* (num)
  (let ((ceil (ceiling num))
        (flo (floor num)))
    (if (<= (- ceil num) (- num flo))
        ceil
        flo)))

(defun main ()
  (let* ((deg (* (read) 10))
         (dis (read))
         (ws (round* (/ (* dis 10) 60)))
         (w (cond ((<= ws 2) 0)
                  ((<= ws 15) 1)
                  ((<= ws 33) 2)
                  ((<= ws 54) 3)
                  ((<= ws 79) 4)
                  ((<= ws 107) 5)
                  ((<= ws 138) 6)
                  ((<= ws 171) 7)
                  ((<= ws 207) 8)
                  ((<= ws 244) 9)
                  ((<= ws 284) 10)
                  ((<= ws 326) 11)
                  (t 12)))
         (dir (cond ((< deg 1125) 'N)
                    ((< deg 3375) 'NNE)
                    ((< deg 5625) 'NE)
                    ((< deg 7875) 'ENE)
                    ((< deg 10125) 'E)
                    ((< deg 12375) 'ESE)
                    ((< deg 14625) 'SE)
                    ((< deg 16875) 'SSE)
                    ((< deg 19125) 'S)
                    ((< deg 21375) 'SSW)
                    ((< deg 23625) 'SW)
                    ((< deg 25875) 'WSW)
                    ((< deg 28125) 'W)
                    ((< deg 30375) 'WNW)
                    ((< deg 32625) 'NW)
                    ((< deg 34875) 'NNW)
                    (t 'N))))
    (if (zerop w)
        (write-line "C 0")
        (format t "~A ~A~%" dir w))))

#-swank(main)

Submission Info

Judge Result