根据消费定额生成菜单的算法(原创)

在去年一个实验性项目中有这样一个问题，饭店根据顾客消费意愿进行菜单自动生成，如：699元套餐、899元套餐等。菜品类型有凉菜、热菜、蒸菜等等，具体需求不详细描述。关键是一个根据消费金额自动生成菜单的算法。可惜当时的代码找不到了。
今天在论坛中又遇到一个类似问题，正好可用以回顾。如下：
表结构：

SQL> create table t_money(id int primary key,amount int not null);

Table created

Executed in 0.468 seconds
插入数据：

Code
create or replace procedure P_test(O_str out varchar2)exp user1/pwd@server owner=user1 file=c:\file.dmp
imp user2/pwd@server fromuser=user1 touser=user2 file=c:\file.dmp
as
v_str varchar2(20):=',';
v_id number;
v_count number;
v_tmp number :=0;
v_money number :=0;
begin

select count(0) into v_count from t_money;
loop
select count(0) into v_count from t_money where not instr(v_str,',' || id || ',')>0 and amount <= 10-v_money;
if v_count = 0 then
exit;
-- 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 <= 10-v_money order by dbms_random.value)
where rownum <2;
v_money := v_money + v_tmp;
v_str := v_str || v_id ||',';
exit when v_money =10;
end loop;
O_str := v_str;

-- Error
end;

结果：,7,9,10,3,