Problem:
上司のおごり

会津太郎さんの会社には、割り切れない事が大嫌いな上司がいます。太郎さんがその上司と食事に行くときは、割り勘で会計をしているのですが、支払金額が参加人数で割り切れないときは、いつも上司がおごってくれています。

ある日、太郎さんは食事会の幹事になりました。お金の少ない太郎さんは、その上司を誘ってなんとかおごってもらえるように出来ないか考えました。もう料理屋に注文をしなければならないのですが、まだ何人参加するかは分からないので、どんな人数が参加してもおごってもらえるような注文をしておきたいようです。太郎さんの同期で、同じく食事会に参加する予定のあなたは、太郎さんに協力して、予算額以下で最大のどんな人数でも割り切れない金額を算出することにしました。

料理の種類、各料理の料金、予算額を入力とし、予算額以下で最大のどんな数字でも割り切れない合計金額(ただし、 1 と合計金額は除く)を出力するプログラムを作成してください。なお、各種類の料理は複数個注文できますが、全種類の料理を注文する必要はありません。ただし、このような合計金額がない場合は、 NA と出力してください。

Input

複数のデータセットの並びが入力として与えられます。 入力の終わりはゼロふたつの行で示されます。
各データセットは以下の形式で与えられます。

n x
v1
v2
:
vn

1 行目に料理の種類 n (1 ≤ n ≤ 30) と予算額 x (1 ≤ x ≤ 1000000) が空白区切りで与えられます。続くn 行に i 種類目の料理の金額を表す整数 vi (1 ≤ vi ≤ 1000000) が与えられます。

データセットの数は 100 を超えません。

Output

入力データセットごとに、予算額に最も近い合計金額、または NA を１行に出力します。

Sample Input

4 15000
305
260
129
500
3 400
10
20
30
3 200909
5
9
12
0 0

Output for the Sample Input

14983
NA
200909

Solution in Haskell (judge verdict: Memory Limit Exceeded)

import Control.Monad
import Control.Applicative
import Data.Array

solve ms max ns = filter iter ms
  where
    memo = listArray (0, max) $ map iter [0..max]

    iter 0 = True
    iter i = any id $ map (\n -> if i < n then False else memo ! (i - n)) ns

primes = 2:3:[x|i<-[1..], j<-[-1,1], let x = 6*i+j, isPrime x] where
  isPrime n = null [i|i<-takeWhile (\x -> x*x <= n) primes, rem n i == 0]

primesBRev max = reverse $ takeWhile (<= max) primes

v0202 max ns ps = let res = solve ps max ns in
               if res == [] then "NA"
                            else show $ head res

parse :: [String] -> [(Int, [Int])]
parse [] = []
parse (x:xs)
  | x == "0 0" = []
  | otherwise  = (max, map read (take n xs)) : parse (drop n xs)
  where
    [n, max] = map read $ words x

main = do
  inp <- lines <$> getContents
  let inps = parse inp
  mapM_ (\(max, costs) -> putStrLn $ v0202 max costs (primesBRev max)) inps