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 |
|
|
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 |