Submission #3591038
Source Code Expand
Imports System.Collections.Generic Imports System.Console Module Program Sub Main() Dim Deg As Integer = NextInt() Dim Dis As Integer = NextInt() Dim aero As Integer() = ToInts(Split("3 16 34 55 80 108 139 172 208 245 285 327", " ")) For i As Integer = 0 To UBound(aero) aero(i) = aero(i) * 10 - 5 Next Dim keys As String() = Split("N NNE NE ENE E ESE SE SSE S SSW SW WSW W WNW NW NNW N", " ") Dim Dir As String = keys((Deg * 10 + 1125) \ 2250) Dim w As Integer = 0 Do While w <> aero.Length AndAlso aero(w) <= Dis * 10 / 6 w += 1 Loop If w = 0 Then Dir = "C" WriteLine(Dir & " " & w) End Sub Function ToInts(a As String()) As Integer() Dim result As Integer() = New Integer(UBound(a)) {} For i As Integer = 0 To UBound(a) result(i) = CInt(a(i)) Next Return result End Function Function NextInt() As Integer Return CInt(NextString()) End Function Function NextString() As String Dim result As New List(Of Char) Do Dim tmp As Integer = Read() If tmp < 0 Then Exit Do Dim nextChar As Char = Chr(tmp) If Not Char.IsWhiteSpace(nextChar) Then result.Add(nextChar) ElseIf nextChar <> vbCr Then Exit Do End If Loop Return New String(result.ToArray()) End Function End Module
Submission Info
Submission Time | |
---|---|
Task | C - 風力観測 |
User | ToshiroYanagi |
Language | Visual Basic (Mono 4.0.1) |
Score | 100 |
Code Size | 1570 Byte |
Status | AC |
Exec Time | 53 ms |
Memory | 20444 KB |
Judge Result
Set Name | all | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
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 | 51 ms | 19920 KB |
00_sample_02.txt | AC | 50 ms | 19920 KB |
00_sample_03.txt | AC | 51 ms | 19920 KB |
00_sample_04.txt | AC | 51 ms | 20444 KB |
00_sample_05.txt | AC | 51 ms | 17872 KB |
00_sample_06.txt | AC | 52 ms | 18396 KB |
00_sample_07.txt | AC | 52 ms | 19920 KB |
00_sample_08.txt | AC | 50 ms | 17872 KB |
test_01.txt | AC | 51 ms | 19920 KB |
test_02.txt | AC | 52 ms | 17872 KB |
test_03.txt | AC | 52 ms | 19920 KB |
test_04.txt | AC | 50 ms | 17872 KB |
test_05.txt | AC | 51 ms | 18396 KB |
test_06.txt | AC | 51 ms | 17872 KB |
test_07.txt | AC | 51 ms | 18512 KB |
test_08.txt | AC | 51 ms | 20444 KB |
test_09.txt | AC | 51 ms | 19920 KB |
test_10.txt | AC | 51 ms | 18396 KB |
test_11.txt | AC | 51 ms | 17872 KB |
test_12.txt | AC | 52 ms | 19920 KB |
test_13.txt | AC | 51 ms | 19920 KB |
test_14.txt | AC | 51 ms | 19920 KB |
test_15.txt | AC | 51 ms | 18000 KB |
test_16.txt | AC | 51 ms | 19920 KB |
test_17.txt | AC | 51 ms | 19920 KB |
test_18.txt | AC | 51 ms | 19920 KB |
test_19.txt | AC | 51 ms | 19920 KB |
test_20.txt | AC | 52 ms | 19920 KB |
test_21.txt | AC | 52 ms | 17872 KB |
test_22.txt | AC | 52 ms | 18000 KB |
test_23.txt | AC | 51 ms | 19920 KB |
test_24.txt | AC | 52 ms | 20444 KB |
test_25.txt | AC | 51 ms | 19920 KB |
test_26.txt | AC | 52 ms | 20444 KB |
test_27.txt | AC | 51 ms | 19920 KB |
test_28.txt | AC | 51 ms | 19920 KB |
test_29.txt | AC | 51 ms | 17872 KB |
test_30.txt | AC | 51 ms | 17872 KB |
test_31.txt | AC | 53 ms | 20444 KB |
test_32.txt | AC | 52 ms | 18512 KB |
test_33.txt | AC | 51 ms | 18396 KB |
test_34.txt | AC | 51 ms | 18396 KB |
test_35.txt | AC | 51 ms | 18396 KB |
test_36.txt | AC | 51 ms | 19920 KB |
test_37.txt | AC | 51 ms | 19920 KB |
test_38.txt | AC | 51 ms | 19920 KB |
test_39.txt | AC | 51 ms | 18396 KB |
test_40.txt | AC | 52 ms | 19920 KB |
test_41.txt | AC | 51 ms | 17872 KB |
test_42.txt | AC | 51 ms | 19920 KB |
test_43.txt | AC | 52 ms | 20444 KB |
test_44.txt | AC | 51 ms | 20444 KB |
test_45.txt | AC | 51 ms | 19920 KB |
test_46.txt | AC | 51 ms | 18396 KB |
test_47.txt | AC | 51 ms | 18396 KB |
test_48.txt | AC | 51 ms | 19920 KB |
test_49.txt | AC | 51 ms | 20444 KB |
test_50.txt | AC | 51 ms | 18000 KB |
test_51.txt | AC | 51 ms | 19920 KB |
test_52.txt | AC | 51 ms | 19920 KB |
test_53.txt | AC | 52 ms | 20444 KB |
test_54.txt | AC | 51 ms | 19920 KB |
test_55.txt | AC | 52 ms | 20444 KB |
test_56.txt | AC | 51 ms | 18396 KB |
test_57.txt | AC | 51 ms | 19920 KB |
test_58.txt | AC | 51 ms | 19920 KB |