pl/sql实现排列组合中组合

桀昊j

　　procedure zuhev(n      number,
　　arrvar out t_arrchar) is

　　>　　m   number;
　　x   number := 1;
　　type arrayty is table of number index by binary_integer;
　　-- nlarr nlarrarty;
　　-- arr arrayty;
　　p    arrayty;
　　a    arrayty;
　　tmps varchar2(1000);
　　begin
　　for i in 1 .. n
　　loop
　　a(i) := i;
　　end loop;
　　for i in 1 .. n
　　loop
　　p(i) := i;
　　end loop;
　　for i in 0 .. n
　　loop
　　m := i;
　　begin

　　>　　p(idx) := 1; --//取第一个元素
　　while (true)
　　loop
　　if (p(idx) > n) then
　　--//取到底了，回退
　　if (idx = 1) then
　　--//各种情况取完了，不能再回退了
　　exit;
　　end if;
　　--}

　　>　　p(idx) := p(idx) + 1; --//替换元素
　　--   }
　　elsif (idx = m) then
　　--//取够了，输出
　　for i in 1 .. m
　　loop
　　tmps := tmps || to_char(a(p(i)));
　　end loop;
　　arrvar(x) := tmps;
　　tmps := null;
　　p(idx) := p(idx) + 1; --//替换元素
　　x := x + 1;
　　else
　　--{//多取一个元素

　　>　　p(idx) := p(idx - 1) + 1;
　　--}
　　end if;
　　end loop;
　　end;
　　end loop;
　　/*  for i in 1 .. arrvar.count
　　loop
　　dbms_output.put_line(to_char(arrvar(i)));
　　end loop;*/
　　end;