一个看似简单但实现极其复杂的存储过程

表结构如下：

create table t_money(id int primary key,amount int not null);// id 是序列号，amount是金额

对如下数据进行查询：

+----+--------+
| id | amount |
+----+--------+
|  1 |      2 |
|  2 |      2 |
|  3 |      3 |
|  4 |      5 |
|  5 |      2 |
|  6 |      8 |
|  7 |      1 |
|  8 |      2 |
|  9 |      3 |
| 10 |      3 |
+----+--------+
从表中选取若干条数据，使得被选出来的几条数据的amount（金额）字段之和等于10，要求存储过程能返回被选取出来的数据的序列号。
算法举例：2+3+5=10 返回序列号：1，3，4   
说明：表中会有多种组合使金额字段相加等于10，此存储过程要求只要能找到任意一种组合就马上成功返回，不需要找其他的组合了。例如上面序列号为 1，3，4 的组合是第一种，能返回它们就行，至于后面的组合不用管。另外，组合没有个数的限制，可以3个组合成10，如算法举例，也可以2个组合，甚至单个组合，即可能表中有一个数据它的金额就是10，当然也可以是N个数字的组合。
上面对题目的文字说明可能有些啰嗦，我只是想让大家尽可能的明白我的意思，有兴趣的朋友对题意还有疑问的可以联系我。谢谢。
QQ：390000258



下面是一个网友帮我写的存储过程，现在和大家一起分享，如果你有更好的，可以写写。
create or replace procedure P_test(sum_num in number)
as
       v_str      varchar2(200):=',';
       v_str1      varchar2(200):=',';
       v_id       number;
       v_count    number;
       v_tmp      number :=0;
       v_money    number :=0;
       v_length   number:=0;
       v_count1   number;
begin
       for cur1 in 1..100 loop
       v_str:=',';
       v_str1:=',';
       v_tmp:=0;
       v_money:=0;
       v_length:=0;
       select count(0) into v_count1 from t_money;
       loop
           select count(0) into v_count from t_money where not instr(v_str,','||id||',')>0 and amount <= sum_num-v_money;
           if v_count = 0  then
           if v_length=v_count1 then
            dbms_output.put_line('error:the input-value is too large');
            return;
           end if;
             v_str:=',';
             v_str1:=',';
             v_money:=0;
            
              -- or restart
           end if;

           select id,amount into v_id,v_tmp from
                  (select id,amount from t_money where not instr(v_str,','||id||',')>0 and amount <= sum_num-v_money order by dbms_random.value)
                where rownum <2;
           v_money := v_money + v_tmp;
           v_str := v_str || v_id ||',';
           v_str1:=v_str1||v_tmp||',';
           v_length:=v_length+1;
           exit when v_money =sum_num;

       end loop;
     
       dbms_output.put_line('id组合: '||substr(v_str,2));
       dbms_output.put_line('amount组合: '||substr(v_str1,2));
        dbms_output.put_line(v_money);
        end loop;
       -- Error
end p_test;


begin
p_test(10);--可以换成任意数字
end;