Problem:
Score : 500 points

Problem Statement

Ibis is fighting with a monster.

The health of the monster is H.

Ibis can cast N kinds of spells. Casting the i-th spell decreases the monster's health by A_i, at the cost of B_i Magic Points.

The same spell can be cast multiple times. There is no way other than spells to decrease the monster's health.

Ibis wins when the health of the monster becomes 0 or below.

Find the minimum total Magic Points that have to be consumed before winning.

Constraints

1 \leq H \leq 10^4

1 \leq N \leq 10^3

1 \leq A_i \leq 10^4

1 \leq B_i \leq 10^4

All values in input are integers.

Input

Input is given from Standard Input in the following format:

H N
A_1 B_1
:
A_N B_N

Output

Print the minimum total Magic Points that have to be consumed before winning.

Sample Input 1

9 3
8 3
4 2
2 1

Sample Output 1

4

First, let us cast the first spell to decrease the monster's health by 8, at the cost of 3 Magic Points. The monster's health is now 1.

Then, cast the third spell to decrease the monster's health by 2, at the cost of 1 Magic Point. The monster's health is now -1.

In this way, we can win at the total cost of 4 Magic Points.

Sample Input 2

100 6
1 1
2 3
3 9
4 27
5 81
6 243

Sample Output 2

100

It is optimal to cast the first spell 100 times.

Sample Input 3

9999 10
540 7550
691 9680
700 9790
510 7150
415 5818
551 7712
587 8227
619 8671
588 8228
176 2461

Sample Output 3

139815

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

import Control.Monad
import Control.Monad.ST
import Data.Maybe
import Data.List
import qualified Data.Vector as V
import qualified Data.Vector.Mutable as MV
import qualified Data.ByteString.Char8 as BS

main = do
  h: n: _ <- map readAsInt . BS.words <$> BS.getLine :: IO [Int]
  xs <- map (map readAsInt . BS.words) <$> BS.lines <$> BS.getContents :: IO [[Int]]
  putStrLn $ show $ knapsack xs h

readAsInt = fst . fromJust . BS.readInt

knapsack :: [[Int]] -> Int -> Int
knapsack xs k = knapsackMemo xs V.! k
    where knapsackMemo :: [[Int]] -> V.Vector Int
          knapsackMemo [] = V.generate (k+1) $ \j -> if j == 0 then 0 else div maxBound 2
          knapsackMemo ([w, v]: xs) = V.modify evolve $ knapsackMemo xs
              where evolve :: MV.MVector s Int -> ST s ()
                    evolve memo = foldM_ step () [1..k]
                        where step _ j = do
                                passed <- MV.read memo j
                                selected <- MV.read memo (if j < w then 0 else j-w)
                                MV.write memo j $ min passed (selected + v)