SRM 150

財布屋の１日に修理出来る財布の数と、ある日にくる財布の数が与えられるので、
実際に修理を行う日数を求めるという問題。
実装するだけ。
結構早く解けたかも。


得点：246.40/250
実装(VB.NET)

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections

Imports System.Text

Imports System.Math

Imports Weight=System.Int32
Public Class WidgetRepairs

    Public Function days(ByVal arrivals As Integer(), ByVal numPerDay As Integer) As Integer

        Dim i As Integer,j As Integer=0,Que As Integer=0

        For i=0 To UBound(Arrivals)

            Que+=Arrivals(i)

            If Que>0 Then j+=1

            Que-=numPerDay

            If Que<0 Then Que=0

        Next i

        Do While Que>0

            If Que>0 Then j+=1

            Que-=numPerDay

            If Que<0 Then Que=0:Exit Do

        Loop

        Return j

    End Function

End Class