Submission #2586534

---

Source Code Expand

import Data.List
main=do
 [n,k]<-map read.words<$>getLine
 l<-reverse.sort.map read.words<$>getLine
 print$if k>sum l then -1 else solve k 0 l

solve::Int->Int->[Int]->Int
solve k y []=0
solve k y (x:xs)=if x+y<k then 1+(solve k (y+x) xs) else 1

Submission Info

Judge Result