Submission #276734


Source Code Expand

(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 soimort
Language Scheme (Scheme 9.1)
Score 100
Code Size 1324 Byte
Status AC
Exec Time 356 ms
Memory 29660 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 356 ms 29472 KB
00_sample_02.txt AC 208 ms 29572 KB
00_sample_03.txt AC 210 ms 29488 KB
00_sample_04.txt AC 209 ms 29484 KB
00_sample_05.txt AC 212 ms 29488 KB
00_sample_06.txt AC 211 ms 29488 KB
00_sample_07.txt AC 219 ms 29484 KB
00_sample_08.txt AC 209 ms 29616 KB
test_01.txt AC 207 ms 29612 KB
test_02.txt AC 216 ms 29480 KB
test_03.txt AC 209 ms 29488 KB
test_04.txt AC 237 ms 29484 KB
test_05.txt AC 209 ms 29484 KB
test_06.txt AC 209 ms 29472 KB
test_07.txt AC 216 ms 29492 KB
test_08.txt AC 211 ms 29484 KB
test_09.txt AC 213 ms 29492 KB
test_10.txt AC 209 ms 29492 KB
test_11.txt AC 206 ms 29660 KB
test_12.txt AC 207 ms 29484 KB
test_13.txt AC 209 ms 29488 KB
test_14.txt AC 213 ms 29484 KB
test_15.txt AC 206 ms 29488 KB
test_16.txt AC 208 ms 29488 KB
test_17.txt AC 215 ms 29488 KB
test_18.txt AC 213 ms 29488 KB
test_19.txt AC 208 ms 29620 KB
test_20.txt AC 215 ms 29524 KB
test_21.txt AC 207 ms 29488 KB
test_22.txt AC 207 ms 29488 KB
test_23.txt AC 209 ms 29488 KB
test_24.txt AC 209 ms 29488 KB
test_25.txt AC 217 ms 29488 KB
test_26.txt AC 212 ms 29488 KB
test_27.txt AC 214 ms 29592 KB
test_28.txt AC 205 ms 29488 KB
test_29.txt AC 209 ms 29488 KB
test_30.txt AC 211 ms 29488 KB
test_31.txt AC 208 ms 29484 KB
test_32.txt AC 209 ms 29488 KB
test_33.txt AC 211 ms 29612 KB
test_34.txt AC 212 ms 29488 KB
test_35.txt AC 210 ms 29484 KB
test_36.txt AC 206 ms 29488 KB
test_37.txt AC 207 ms 29488 KB
test_38.txt AC 207 ms 29484 KB
test_39.txt AC 207 ms 29488 KB
test_40.txt AC 208 ms 29492 KB
test_41.txt AC 208 ms 29488 KB
test_42.txt AC 213 ms 29484 KB
test_43.txt AC 214 ms 29536 KB
test_44.txt AC 208 ms 29488 KB
test_45.txt AC 210 ms 29484 KB
test_46.txt AC 206 ms 29540 KB
test_47.txt AC 208 ms 29488 KB
test_48.txt AC 210 ms 29508 KB
test_49.txt AC 209 ms 29484 KB
test_50.txt AC 207 ms 29540 KB
test_51.txt AC 212 ms 29488 KB
test_52.txt AC 218 ms 29488 KB
test_53.txt AC 214 ms 29488 KB
test_54.txt AC 208 ms 29484 KB
test_55.txt AC 208 ms 29488 KB
test_56.txt AC 209 ms 29484 KB
test_57.txt AC 209 ms 29488 KB
test_58.txt AC 217 ms 29484 KB