用pl/sql游标实现约瑟夫环

什么是约瑟夫环：

约瑟夫环（约瑟夫问题）是一个数学的应用问题：已知n个人（以编号1，2，3...n分别表示）围坐在一张圆桌周围。从编号为1的人开始报数，数到m的那个人出列；他的下一个人又从1开始报数，数到m的那个人又出列；依此规律重复下去，直到圆桌周围的人全部出列。通常解决这类问题时我们把编号从0~n-1，最后结果+1即为原问题的解。

创建一个全局临时表：

create global temporary table temp(t_id int) on commit delete rows;

游标实现约瑟夫环：

declare
  --总人数
  v_total number:=&v_total;
  --对应的m
  v_step number:=&v_step;
  --剩余的人数
  v_surplus number;
  --计数
  v_count number:=0;
begin
  --将数据插入到表中
  for i in 1..v_total loop
    insert into temp values(i);
  end loop;
  v_surplus:=v_total;
  while v_surplus>1 loop
    --声明一个游标
    declare
      cursor c_temp
      is
      select * from temp;
      c_row c_temp%rowtype;
    begin
      open c_temp;
      loop
        fetch c_temp into c_row;
        exit when c_temp%notfound;
        v_count:=v_count+1;
        --判断是否报到m的倍数，是则从表中删除
        if mod(v_count,v_step)=0 then
          dbms_output.put_line(c_row.t_id);
          delete from temp where t_id=c_row.t_id;
        end if;
      end loop;
      close c_temp;
    end;
    --重新计数剩余的人数
    select count(*) into v_surplus from temp;
  end loop;
  commit;
end;