お手本になるようなソースコード

' コンパイル方法： vbc vbCashDispenser.vb /out:vbCashDispenser.exe
' 使用方法：vbCashDispenser.exe 12345 98765 999
Imports System
Imports System.Collections

Public Class CashDispenser
    ' 金種とその使用可能数(初期値)
    ' 使用しない金種には、使用可能数 -1を設定する
    Private m_units(,) As Integer = _
         {{10000, 400}, _
          {5000 ,  -1}, _
          {2000 , 100}, _
          {1000 , 800}, _
          {500  ,  -1}, _
          {100  , 200}, _
          {50   , 1}, _   ' 残量無しの実験用に減らしてます
          {10   , 100}, _
          {5    , 100}, _
          {1    , 100}}

    ' 金種リスト
    Private m_unitList As New ArrayList()

    Public Sub New()
        For i As Integer  = 0 To m_units.GetUpperBound(0)
            m_unitList.Add(New CashUnit(m_units(i, 0), m_units(i, 1)))
        Next
    End Sub

    ' 金種計算
    Public Sub DisplayCashUnitCount(ByVal amountOfMoney As Integer)
        Dim amountOfRemainingMoney As Integer = amountOfMoney

        Console.WriteLine("出金：{0}", amountOfMoney)

        For Each cashUnit As CashUnit In m_unitList
            If cashUnit.Count > 0 Then
                Dim requestCount As Integer = amountOfRemainingMoney \ cashUnit.Value
                Dim availableCount As Integer 
                If  requestCount > cashUnit.Count Then
                    availableCount = cashUnit.Count
                Else
                    availableCount = requestCount
                End If
                ' 単なる金種計算として使うなら以下の行をコメントアウトする
                cashUnit.Count -= availableCount

                Console.WriteLine("金種{0}：{1}枚", cashUnit.Value, requestCount)
                amountOfRemainingMoney -= cashUnit.Value * availableCount
            ElseIf cashUnit.Count = 0 Then
                Console.WriteLine("金種{0}：残量なし", cashUnit.Value)
            Else
                Console.WriteLine("金種{0}：非使用", cashUnit.Value)
            End If
        Next 
    End Sub

    Public Shared Sub Main(ByVal cmdArgs() As String)
         Dim cd As New CashDispenser()
         
         For Each arg As String In cmdArgs
             cd.DisplayCashUnitCount(CInt(arg))
         Next
    End Sub
End Class

' 金種クラス
Public Class CashUnit
    ' 使用可能数
    Private m_Count As Integer
    ' 金種の額面
    Private m_Value As Integer

    Public Property Count() As Integer
        Get
            Return m_Count
        End Get
        Set(ByVal value As Integer)
            m_Count = value
        End Set
    End Property

    Public ReadOnly Property Value() As Integer
        Get
            Return m_Value
        End Get
    End Property

    Public Sub New(ByVal value As Integer, ByVal count As Integer)
        m_Value = value
        m_Count = count
    End Sub
End Class

# !ruby 



class Coin

  attr_accessor :price, :count

  def initialize(price, count=0)

    @price = price

    @count = count

  end

  def inspect

    to_str

  end

  def to_str

    "￥#{price}"

  end

end



AMOUNT = (ARGV.shift || '46000').to_i

COIN_DATA = ARGV.empty? ? [10000, 5000, 1000, 500, 100, 50, 10, 5, 1] : ARGV.map{|i| i.to_i}

COIN_LIST = COIN_DATA.map{|i| Coin.new(i)}



def select_coin

  p COIN_LIST

  gain = [0] * (AMOUNT + 1)

  choice = [nil] * (AMOUNT + 1)

  COIN_LIST.each do |item|

    size = item.price

    price = item.price*100-1

    (size..AMOUNT).each do |i|

      space = i - size

      new_value = price + gain[space]

      if gain[i] < new_value

        gain[i] = new_value

        choice[i] = item

      end

    end 

  end



  i = AMOUNT

  while i > 0 

    item = choice[i]

    item.count = item.count + 1

    i = i - item.price

  end

  

  sum = 0

  COIN_LIST.each do |item|

    next if item.count == 0

    print("%8d × %d\n" % [item.price, item.count])

    sum += item.count

  end

  print "合計 : #{sum}枚\n"

end



select_coin

> ruby coin.rb 63999 100 50 49 48 47 1

[￥100, ￥50, ￥49, ￥48, ￥47, ￥1]

     100 × 639

      50 × 1

      49 × 1

合計 : 641枚