Submission #316866


Source Code Expand

; test
; http://abc001.contest.atcoder.jp/submissions/276734
(define deg (read))
(define dis (read))
(define w
  (let ((v (round (/ dis .6))))
    (cond ((< v 25) 0)
          ((< v 155) 1)
          ((< v 335) 2)
          ((< v 545) 3)
          ((< v 795) 4)
          ((< v 1075) 5)
          ((< v 1385) 6)
          ((< v 1715) 7)
          ((< v 2075) 8)
          ((< v 2445) 9)
          ((< v 2845) 10)
          ((< v 3265) 11)
          (else 12))))
(define dir
  (let ((d (/ deg 10)))
    (cond ((= w 0) "C")
          ((and (>= d 11.25) (< d 33.75)) "NNE")
          ((and (>= d 33.75) (< d 56.25)) "NE")
          ((and (>= d 56.25) (< d 78.75)) "ENE")
          ((and (>= d 78.75) (< d 101.25)) "E")
          ((and (>= d 101.25) (< d 123.75)) "ESE")
          ((and (>= d 123.75) (< d 146.25)) "SE")
          ((and (>= d 146.25) (< d 168.75)) "SSE")
          ((and (>= d 168.75) (< d 191.25)) "S")
          ((and (>= d 191.25) (< d 213.75)) "SSW")
          ((and (>= d 213.75) (< d 236.25)) "SW")
          ((and (>= d 236.25) (< d 258.75)) "WSW")
          ((and (>= d 258.75) (< d 281.25)) "W")
          ((and (>= d 281.25) (< d 303.75)) "WNW")
          ((and (>= d 303.75) (< d 326.25)) "NW")
          ((and (>= d 326.25) (< d 348.75)) "NNW")
          (else "N"))))
(display (string-append dir " " (string w)))
(newline)

Submission Info

Submission Time
Task C - 風力観測
User kimiyuki
Language Scheme (Scheme 9.1)
Score 100
Code Size 1387 Byte
Status AC
Exec Time 536 ms
Memory 30072 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 66
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, 00_sample_05.txt, 00_sample_06.txt, 00_sample_07.txt, 00_sample_08.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt, test_31.txt, test_32.txt, test_33.txt, test_34.txt, test_35.txt, test_36.txt, test_37.txt, test_38.txt, test_39.txt, test_40.txt, test_41.txt, test_42.txt, test_43.txt, test_44.txt, test_45.txt, test_46.txt, test_47.txt, test_48.txt, test_49.txt, test_50.txt, test_51.txt, test_52.txt, test_53.txt, test_54.txt, test_55.txt, test_56.txt, test_57.txt, test_58.txt
Case Name Status Exec Time Memory
00_sample_01.txt AC 536 ms 30072 KB
00_sample_02.txt AC 132 ms 29700 KB
00_sample_03.txt AC 138 ms 29692 KB
00_sample_04.txt AC 136 ms 29672 KB
00_sample_05.txt AC 135 ms 29704 KB
00_sample_06.txt AC 134 ms 29696 KB
00_sample_07.txt AC 145 ms 29728 KB
00_sample_08.txt AC 134 ms 29696 KB
test_01.txt AC 133 ms 29700 KB
test_02.txt AC 133 ms 29856 KB
test_03.txt AC 133 ms 29692 KB
test_04.txt AC 133 ms 29696 KB
test_05.txt AC 134 ms 29692 KB
test_06.txt AC 132 ms 29692 KB
test_07.txt AC 134 ms 29692 KB
test_08.txt AC 136 ms 29700 KB
test_09.txt AC 131 ms 29696 KB
test_10.txt AC 135 ms 29696 KB
test_11.txt AC 135 ms 29696 KB
test_12.txt AC 131 ms 29696 KB
test_13.txt AC 132 ms 29676 KB
test_14.txt AC 133 ms 29696 KB
test_15.txt AC 134 ms 29696 KB
test_16.txt AC 352 ms 29696 KB
test_17.txt AC 302 ms 29700 KB
test_18.txt AC 300 ms 29708 KB
test_19.txt AC 303 ms 29684 KB
test_20.txt AC 342 ms 29692 KB
test_21.txt AC 298 ms 29696 KB
test_22.txt AC 299 ms 29696 KB
test_23.txt AC 353 ms 29704 KB
test_24.txt AC 302 ms 29676 KB
test_25.txt AC 302 ms 29668 KB
test_26.txt AC 338 ms 29696 KB
test_27.txt AC 288 ms 29756 KB
test_28.txt AC 355 ms 29672 KB
test_29.txt AC 300 ms 29696 KB
test_30.txt AC 302 ms 29660 KB
test_31.txt AC 353 ms 29676 KB
test_32.txt AC 288 ms 29696 KB
test_33.txt AC 306 ms 29672 KB
test_34.txt AC 302 ms 29700 KB
test_35.txt AC 300 ms 29684 KB
test_36.txt AC 341 ms 29780 KB
test_37.txt AC 301 ms 29704 KB
test_38.txt AC 335 ms 29664 KB
test_39.txt AC 338 ms 29704 KB
test_40.txt AC 246 ms 29664 KB
test_41.txt AC 357 ms 29664 KB
test_42.txt AC 299 ms 29684 KB
test_43.txt AC 298 ms 29672 KB
test_44.txt AC 300 ms 29696 KB
test_45.txt AC 308 ms 29672 KB
test_46.txt AC 287 ms 29692 KB
test_47.txt AC 339 ms 29672 KB
test_48.txt AC 305 ms 29692 KB
test_49.txt AC 305 ms 29724 KB
test_50.txt AC 286 ms 29756 KB
test_51.txt AC 362 ms 29708 KB
test_52.txt AC 274 ms 29672 KB
test_53.txt AC 300 ms 29688 KB
test_54.txt AC 349 ms 29696 KB
test_55.txt AC 299 ms 29708 KB
test_56.txt AC 298 ms 29700 KB
test_57.txt AC 296 ms 29696 KB
test_58.txt AC 394 ms 29684 KB