gistfile1.fs

let computeOptCost (budget,N,(opt:int [,]),optFunValue) = 
  let mutable optCost = 0
  for  c=budget downto 0 do 
    if opt.[N,c] = optFunValue then 
      optCost <- c
    else
      ()
  optCost