Submission #39037196

Source Code Expand

Module Hoge
  Sub Main
    Dim Arr1() as String = Console.ReadLine.Split(" ")
    Dim N as Integer = Arr1(0)
    Dim M as Integer = Arr1(1)
    Dim ArrHaiten() as String = Console.ReadLine.Split(" ")
    Dim ArrKaito() as String = Console.ReadLine.Split(" ")
    Dim Ans as Integer = 0
    
    For i = 0 to M-1
    Ans += ArrHaiten(Arrkaito(i) -1)
  	Next
  Console.WriteLine(Ans)
    
    
  End Sub
End Module

Submission Info

Submission Time
Task A - Contest Result
User Takumi1982
Language Visual Basic (.NET Core 3.1.101)
Score 100
Code Size 428 Byte
Status AC
Exec Time 90 ms
Memory 28300 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 15
Set Name Test Cases
Sample 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt
All 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt, 01_random_00.txt, 01_random_01.txt, 01_random_02.txt, 01_random_03.txt, 01_random_04.txt, 01_random_05.txt, 01_random_06.txt, 01_random_07.txt, 01_random_08.txt, 01_random_09.txt, 02_max_00.txt, 03_min_00.txt
Case Name Status Exec Time Memory
00_sample_00.txt AC 77 ms 28012 KiB
00_sample_01.txt AC 78 ms 27904 KiB
00_sample_02.txt AC 84 ms 27848 KiB
01_random_00.txt AC 80 ms 28028 KiB
01_random_01.txt AC 76 ms 27932 KiB
01_random_02.txt AC 84 ms 28216 KiB
01_random_03.txt AC 75 ms 28216 KiB
01_random_04.txt AC 80 ms 28004 KiB
01_random_05.txt AC 81 ms 28024 KiB
01_random_06.txt AC 84 ms 28300 KiB
01_random_07.txt AC 80 ms 28052 KiB
01_random_08.txt AC 88 ms 28020 KiB
01_random_09.txt AC 87 ms 27912 KiB
02_max_00.txt AC 90 ms 28024 KiB
03_min_00.txt AC 80 ms 28144 KiB