Submission #3447242

---

Source Code Expand

Option Strict On
Imports System.Console
Imports System.Math

Module Program
    Sub Main()
        Dim s As String = NextString()
        Dim t As Integer = NextInt()

        WriteLine(Calc(s)(t - 1))
    End Sub

    Function Calc(S As String) As Integer()
        Dim x, y, t As Integer

        For Each v As Char In S
            Select Case v
                Case "L"c
                    x -= 1
                Case "R"c
                    x += 1
                Case "U"c
                    y += 1
                Case "D"c
                    y -= 1
                Case Else
                    t += 1

            End Select
        Next

        Dim base As Integer = Abs(x) + Abs(y)
        Dim maxResult As Integer = base + t
        Dim tmp As Integer = base - t
        Dim minResult As Integer
        If tmp >= 0 Then
            minResult = tmp
        Else
            minResult = Abs(tmp Mod 2)
        End If

        Return New Integer() {maxResult, minResult}
    End Function

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

    Function NextString() As String
        Dim result As Char() = New 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
                ReDim Preserve result(UBound(result) + 1)
                result(UBound(result)) = nextChar
            ElseIf nextChar <> vbCr Then
                Exit Do
            End If
        Loop
        Return New String(result)
    End Function

End Module

Submission Info

Judge Result