关于过程的问题

Question

 编写一个算命的过程，接收输入的一个生日（yyyymmdd），每2位相加取个位，最后得到一位数字，此数字为偶数（命好），为质数（一般），否则为（命运悲惨）.算法如下；
19850324
 0735356
  708881
   78669
    5425
     967
      53
       8  -------------------偶数，命好

Answer 1

好过瘾，写了一个很好玩的函数create or replace function suanming(birthday date) return varchar is
  Result varchar(8);
  v_birthstr varchar(8);
  v_str varchar(8);
  v_flag boolean := true;
begin
  v_birthstr := to_char(birthday, 'yyyymmdd');
  
  while (length(v_birthstr)>1)
  loop                
        dbms_output.put_line(v_birthstr);   
        v_str := '';
        for ind in 1..length(v_birthstr) loop
                v_str := v_str||mod(to_number(substr(v_birthstr, ind, 1))+to_number(substr(v_birthstr, ind+1, 1)), 10);                                            
        end loop;
              
        v_birthstr := v_str;                
  end loop;
  
  dbms_output.put_line(v_birthstr); 
  
  if(mod(to_number(v_birthstr), 2) = 0) then
      result := 'Good';
  else
      result := 'Bad';
  end if;
  
  return(Result);
end suanming;

Answer 2

SQL> set serverout on;
SQL> select suanming(sysdate) lucky from dual;
LUCKY
------------------------------------------------
Good20090814
2099895
298774
17541
8295
014
15
6
SQL> select suanming(to_date('19850324', 'yyyymmdd')) lucky from dual;
LUCKY
-----------------------------------------------------------------------
Good19850324
0735356
708881
78669
5425
967
53
8