Submission #3435831
Source Code Expand
Option Strict On Imports System.Console Imports System.Collections.Generic Module Program Sub Main() Dim a As Integer = NextInt() Dim b As Integer = NextInt() Dim c As Integer = NextInt() Dim ans As Long = 1 For Each v As Integer In New Integer() {a, b, c} ans = (ans * v) Mod (Pow(10, 9) + 7) Next WriteLine(ans) End Sub Function Pow(a As Integer, b As Integer) As Integer Dim result As Integer = 1 For i As Integer = 1 To b result *= a Next Return result End Function Function NextInt() As Integer Return CInt(NextString()) End Function Function NextString() As String Dim result As New List(Of String) 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 String.Join("", result) End Function End Module
Submission Info
Submission Time | |
---|---|
Task | B - 直方体 |
User | ToshiroYanagi |
Language | Visual Basic (Mono 4.0.1) |
Score | 100 |
Code Size | 1202 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 | 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt |
All | 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
0_00.txt | AC | 48 ms | 19920 KB |
0_01.txt | AC | 47 ms | 19920 KB |
0_02.txt | AC | 47 ms | 17872 KB |
0_03.txt | AC | 47 ms | 17872 KB |
1_00.txt | AC | 47 ms | 17872 KB |
1_01.txt | AC | 47 ms | 18384 KB |
1_02.txt | AC | 47 ms | 19920 KB |
1_03.txt | AC | 48 ms | 18384 KB |
1_04.txt | AC | 48 ms | 20560 KB |