nyfor 复活节比短代码解题说明

nyfor · 发表于 2011-4-28 11:00

暂时不想了. 贴上 1200 bytes 的代码:
create or replace package easter is
  procedure showAllEasterDay;
  procedure showMaxOccurenceEasterDay;
  procedure showLeapEasterDay;
  procedure showFoolEasterDay;
end;
/
create or replace package body easter is
  c dbms_sql.varchar2s;
  subtype w is varchar(999);

  s w;
  x w;
  v date := date '1-3-31';

  procedure p(t w) is
  begin
dbms_output.put_line(t);

for i in -30 .. 50 loop
   c(i) := 0;
end loop;

for y in 2011 .. 2099 loop
   s := y mod 19;
   s := (11 * s + 4 - trunc((7 * s + 1) / 19)) mod 29;
   x := 25 - s - (y - 2344 + trunc(y / 4) - s) mod 7;

   c(y) := to_char(v + x, ' mm-dd');

   c(x) := c(x) - 1;

   s := sign(x - 1) + 40;
   c(s) := least(+c(x), c(s));
end loop;
s := '';
  end;

  procedure showAllEasterDay is
  begin
p('YEAR DAY');
for y in 2011 .. 2099 loop
   p(y || c(y));
end loop;
  end;
  procedure z(w w, n w := 30, m w := -30) is
  begin
for f in m .. n loop
   if c(f) = w then
      s := s || to_char(v + f, 'mm-dd/');
   end if;
end loop;
s := rtrim(s, '/') || ' ' || -w || ' ';
  end;
  procedure showMaxOccurenceEasterDay is
  begin
p('MAXOCC                            MO_CNT MAXOCC_3 MO3_CNT MAXOCC_4       MO4_CNT');

x := least(+c(40), c(41));
z(least(+x, c(39)));
z(c(39), 0);
z(x, 30, 1);

p(s);
  end;
  procedure showLeapEasterDay is
  begin
p('ABSENT_START ABSENT_END');
for i in 22 - 31 .. 25 loop
   x := to_char(v + i, 'mm-dd ');
   if c(i) = 0 then
      s := nvl(s, x);
   end if;
   if s < x and (i = 25 or c(i + 1) < 0) then
      p(s || x);
   end if;
end loop;
  end;
  procedure showFoolEasterDay is
  begin
p('YEAR TOTAL');
for y in 2011 .. 2099 loop
   if substr(c(y), -2) = 1 then
      p(y || ' ' || -c(40));
   end if;
end loop;
  end;
end;
/

zhangweicai74 · 发表于 2011-4-28 11:21

1200 bytes 了。
牛！

my_legend · 发表于 2011-4-28 13:29

厉害

〇〇 · 发表于 2011-4-28 13:35

if s < x and (i = 25 or c(i + 1) < 0)
如何处理
4-25 4-25这样的输出？如果把2011-2099变成变量

〇〇 · 发表于 2011-4-28 13:48

比如把2011-〉2091
SQL> exec easter.showAlLEasterDay
YEAR DAY
2091 04-08
2092 03-30
2093 04-12
2094 04-04
2095 04-24
2096 04-15
2097 03-31
2098 04-20
2099 04-12

PL/SQL 过程已成功完成。

如果把s<x改为s<=x
SQL> exec easter.showLeapEasterDay
ABSENT_START ABSENT_END
03-22 03-29
04-01 04-03
04-05 04-07
04-09 04-11
04-13 04-14
04-16 04-19
04-21 04-23
04-25 04-25