Submission #3402316


Source Code Expand

Option Strict On
Imports System.Console
Imports System.Math

Module Program
    Sub Main()
        Dim vector() As String = New String() {"East", "", "West"}
        Dim n As Integer = NextInt()
        Dim a As Integer = NextInt()
        Dim b As Integer = NextInt()

        Dim x As Integer = 0

        For i As Integer = 0 To n - 1
            x += Move(a, b, vector)
        Next

        Output(x, vector)
    End Sub

    Sub Output(x As Integer, vector() As String)
        Write(vector(Sign(x) + 1))
        If (Sign(x) <> 0) Then Write(" ")
        WriteLine(Abs(x))
    End Sub

    Function Move(smallest As Integer, largest As Integer, vector() As String) As Integer
        Dim s As String = NextStr()
        Dim d As Integer = NextInt()

        Dim i As Integer = 0
        For Each v As String In vector
            If s = v Then
                Return Max(smallest, Min(largest, d)) * (i - 1)
            End If
            i += 1
        Next

        Return 0
    End Function

    Function NextInt() As Integer
        Return CInt(NextStr())
    End Function

    Function NextStr() As String
        Dim result As String = ""
        Do
            Dim tmp0 As Integer = Read()
            If tmp0 < 0 Then Exit Do
            Dim tmp As Char = Chr(tmp0)

            If Not String.IsNullOrWhiteSpace(tmp) Then
                result &= tmp
            ElseIf tmp <> vbCr Then
                Exit Do
            End If
        Loop
        Return result
    End Function

End Module

Submission Info

Submission Time
Task B - 双子とスイカ割り
User ToshiroYanagi
Language Visual Basic (Mono 4.0.1)
Score 100
Code Size 1571 Byte
Status AC
Exec Time 48 ms
Memory 20560 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 36
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt
All sample-01.txt, sample-02.txt, sample-03.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, sample-01.txt, sample-02.txt, sample-03.txt
Case Name Status Exec Time Memory
sample-01.txt AC 47 ms 19920 KB
sample-02.txt AC 47 ms 20560 KB
sample-03.txt AC 46 ms 17872 KB
test-01.txt AC 47 ms 20560 KB
test-02.txt AC 46 ms 17872 KB
test-03.txt AC 46 ms 17872 KB
test-04.txt AC 47 ms 19920 KB
test-05.txt AC 47 ms 19920 KB
test-06.txt AC 47 ms 17872 KB
test-07.txt AC 47 ms 17872 KB
test-08.txt AC 47 ms 17872 KB
test-09.txt AC 48 ms 20560 KB
test-10.txt AC 47 ms 18384 KB
test-11.txt AC 47 ms 17872 KB
test-12.txt AC 47 ms 17872 KB
test-13.txt AC 46 ms 17872 KB
test-14.txt AC 47 ms 19920 KB
test-15.txt AC 47 ms 19920 KB
test-16.txt AC 47 ms 19920 KB
test-17.txt AC 47 ms 19920 KB
test-18.txt AC 47 ms 18384 KB
test-19.txt AC 47 ms 19920 KB
test-20.txt AC 47 ms 19920 KB
test-21.txt AC 46 ms 17872 KB
test-22.txt AC 46 ms 17872 KB
test-23.txt AC 47 ms 17872 KB
test-24.txt AC 46 ms 17872 KB
test-25.txt AC 47 ms 17872 KB
test-26.txt AC 47 ms 19920 KB
test-27.txt AC 47 ms 19920 KB
test-28.txt AC 47 ms 19920 KB
test-29.txt AC 47 ms 17872 KB
test-30.txt AC 46 ms 17872 KB