(酱油)关于复活节最短源码的尝试

〇〇

工具和源码

1. 
   
2. begin
   
3. execute immediate replace(q'[       
   
4. create or replace package easter is
   
5.   procedure showAll!MaxOccurence!Leap!FoolEasterDay;
   
6. end;
   
7. ]','!','EasterDay;
   
8. procedure show');
   
9. execute immediate replace(replace(replace(replace(replace(replace(q'[
   
10. create or replace package body easter is
    
11.   c dbms_sql.varchar2s;
    
12. 
    
13.   s varchar(999);
    
14.   x s%type;
    
15.   v date ^ date'1-3-31';
    
16. 
    
17.   f int;
    
18.   g int;
    
19. 
    
20.   procedure p(t char) is
    
21.   begin
    
22.     dbms_output.put_line(t);
    
23.     s ^ '';
    
24.     for i in -30 .. 50 $
    
25.       c(i) ^ 0;
    
26.     ` $#
    
27.       f ^ y - 1900;
    
28.       g ^ f mod 19;
    
29.       g ^ (11 * g + 4 - trunc((7 * g + 1) / 19)) mod 29;
    
30.       f ^ 25 - g - (f + trunc(f / 4) + 31 - g) mod 7;
    
31.    
    
32.       c(y) ^ to_char(v + f, ' mm-dd');
    
33.    
    
34.       c(f) ^ c(f) - 1;
    
35.    
    
36.       g ^ sign(f - 1) + 40;
    
37.       c(g) ^ least(0, c(f), c(g));
    
38.     ` $@All!'YEAR DAY')#
    
39.       p(y || c(y));
    
40.     ` $;
    
41.   `;
    
42.   procedure z(w int, n int ^ 30, m int ^ -30) is
    
43.   begin
    
44.     for f in m .. n $
    
45.       if c(f) = w then
    
46.         s ^ s || to_char(v + f, 'mm-dd/');
    
47.       ` if;
    
48.     ` $;
    
49.     s ^ rtrim(s, '/') || ' ' || -w || ' '@MaxOccurence!'MAXOCC                               MO_CNT MAXOCC_3 MO3_CNT    MAXOCC_4          MO4_CNT');
    
50.   
    
51.     f ^ least(0, c(40), c(41));
    
52.     z(least(f, c(39)));
    
53.     z(c(39), 0);
    
54.     z(f, 30, 1);
    
55.   
    
56.     p(s)@Leap!'ABSENT_START ABSENT_END');
    
57.     for i in 22 - 31 .. 25 $
    
58.       x ^ to_char(v + i, 'mm-dd   ');
    
59.       if c(i) = 0 then
    
60.         s ^ nvl(s, x);
    
61.       ` if;
    
62.       if s < x and (i = 25 or c(i + 1) < 0) then
    
63.         p(s || x);
    
64.       ` if;
    
65.     ` $@Fool!'YEAR TOTAL')#
    
66.       if substr(c(y), -2) = 1 then
    
67.         p(y || ' ' || -c(40));
    
68.       ` if;
    
69.     ` $;
    
70.   `;
    
71. `;
    
72. ]','@',
    
73. ';
    
74.   `;
    
75.   procedure show'),'!','EasterDay is
    
76.   begin
    
77.     p('),'#',';
    
78.     for y in 2011 .. 2099 $
    
79. '),'^',':='),'`','end'),'$','loop');
    
80. end;
    
81. /
    

复制代码

lastwinner

2099-2011+1=99
这个99不能直接写上哦

DragonBill

？？ 程序中没有这样写吧？

lastwinner

原帖由 DragonBill 于 11-4-30 16:03 发表
？？ 程序中没有这样写吧？

比赛帖中的我还没看，这里你们单独开帖的可以不受此限

DragonBill

将参数L 的类型由VARCHAR改为NCHAR后，缩至1174

fumuju

强人

regonly1

佩服您那不停歇的专研精神。

nyfor

原帖由 DragonBill 于 2011-4-30 21:59 发表
将参数L 的类型由VARCHAR改为NCHAR后，缩至1174

没法赶超了....

DragonBill

从严格意义来讲，我那个算3/22至4/25这段时间没有出现的日期的方法是错误的，具体说明，我在另一篇贴子(http://www.itpub.net/thread-1425015-1-2.html) 的#7第8点有提及。
如果严谨地加上这部分正确计算方法的话，代码量估计要超过1200，呵呵，没去想了，别介意，玩玩而已