Submission #602435

Source Code Expand

(define deg (read))
(define dis (/ (read) 60.0))


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

(define (furyoku dis)
  (cond ((< dis 0.25) 0)
        ((< dis 1.55) 1)
        ((< dis 3.35) 2)
        ((< dis 5.45) 3)
        ((< dis 7.95) 4)
        ((< dis 10.75) 5)
        ((< dis 13.85) 6)
        ((< dis 17.15) 7)
        ((< dis 20.75) 8)
        ((< dis 24.45) 9)
        ((< dis 28.45) 10)
        ((< dis 32.65) 11)
        (else 12)))

(display (fuko deg dis))
(display " ")
(display (furyoku dis))
(newline)

Submission Info

Submission Time
Task C - 風力観測
User fuzuiR
Language Scheme (Scheme 9.1)
Score 100
Code Size 1069 Byte
Status AC
Exec Time 391 ms
Memory 29440 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 228 ms 29400 KB
00_sample_02.txt AC 137 ms 29400 KB
00_sample_03.txt AC 136 ms 29400 KB
00_sample_04.txt AC 138 ms 29400 KB
00_sample_05.txt AC 140 ms 29400 KB
00_sample_06.txt AC 147 ms 29388 KB
00_sample_07.txt AC 140 ms 29400 KB
00_sample_08.txt AC 137 ms 29388 KB
test_01.txt AC 136 ms 29388 KB
test_02.txt AC 137 ms 29400 KB
test_03.txt AC 137 ms 29400 KB
test_04.txt AC 136 ms 29400 KB
test_05.txt AC 158 ms 29400 KB
test_06.txt AC 135 ms 29312 KB
test_07.txt AC 138 ms 29400 KB
test_08.txt AC 133 ms 29400 KB
test_09.txt AC 133 ms 29400 KB
test_10.txt AC 133 ms 29396 KB
test_11.txt AC 133 ms 29420 KB
test_12.txt AC 130 ms 29400 KB
test_13.txt AC 136 ms 29400 KB
test_14.txt AC 133 ms 29400 KB
test_15.txt AC 133 ms 29400 KB
test_16.txt AC 134 ms 29400 KB
test_17.txt AC 301 ms 29396 KB
test_18.txt AC 309 ms 29396 KB
test_19.txt AC 305 ms 29396 KB
test_20.txt AC 306 ms 29420 KB
test_21.txt AC 312 ms 29400 KB
test_22.txt AC 325 ms 29400 KB
test_23.txt AC 278 ms 29412 KB
test_24.txt AC 313 ms 29388 KB
test_25.txt AC 319 ms 29400 KB
test_26.txt AC 305 ms 29400 KB
test_27.txt AC 309 ms 29400 KB
test_28.txt AC 308 ms 29400 KB
test_29.txt AC 307 ms 29400 KB
test_30.txt AC 306 ms 29412 KB
test_31.txt AC 306 ms 29400 KB
test_32.txt AC 307 ms 29400 KB
test_33.txt AC 307 ms 29400 KB
test_34.txt AC 303 ms 29400 KB
test_35.txt AC 303 ms 29440 KB
test_36.txt AC 308 ms 29388 KB
test_37.txt AC 315 ms 29316 KB
test_38.txt AC 308 ms 29400 KB
test_39.txt AC 301 ms 29400 KB
test_40.txt AC 342 ms 29400 KB
test_41.txt AC 231 ms 29400 KB
test_42.txt AC 308 ms 29400 KB
test_43.txt AC 303 ms 29400 KB
test_44.txt AC 299 ms 29400 KB
test_45.txt AC 308 ms 29400 KB
test_46.txt AC 313 ms 29400 KB
test_47.txt AC 306 ms 29412 KB
test_48.txt AC 331 ms 29396 KB
test_49.txt AC 313 ms 29400 KB
test_50.txt AC 225 ms 29400 KB
test_51.txt AC 391 ms 29388 KB
test_52.txt AC 303 ms 29400 KB
test_53.txt AC 307 ms 29396 KB
test_54.txt AC 342 ms 29396 KB
test_55.txt AC 222 ms 29400 KB
test_56.txt AC 305 ms 29400 KB
test_57.txt AC 301 ms 29400 KB
test_58.txt AC 300 ms 29400 KB