for(1..<>){
	($n1,$n2)=<>=~/\d+/g;
	<>;
	$n=0;
	$s=0;
	%h=0;
	for$a(sort{$a-$b}<>=~//g){
		$s+=$a;
		@k=keys%h;
		%h=();
		for(@k){
			if($s-$_<=$n2){
				$h{$_}=1;
			}
			if($_+$a<=$n1){
				$h{$_+$a}=1;
			}
		}
		if(!%h){
			last;
		}
		++$n;
	}
	print $n,$/;
}