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

〇〇 · 发表于 2011-4-27 20:56

又见神人

newkid · 发表于 2011-4-27 22:49

很好的开端，请继续！

nyfor · 发表于 2011-4-28 07:25

原帖由 lastwinner 于 2011-4-27 19:40 发表
大牛出马了，有好戏看了，哈哈

后继还在继续研究的是否应该再设个啥奖项？

DragonBill · 发表于 2011-4-28 10:20

create or replace package easter is
  PROCEDURE showAllEasterDay;
  PROCEDURE showMaxOccurenceEasterDay;
  PROCEDURE showLeapEasterDay;
  PROCEDURE showFoolEasterDay;
end;
/

create or replace package body easter is

  R    DM_ITEMS := DM_ITEMS();
  D INT;
  B    INT := 0;
  C    INT := 0;
  E    INT;
  S    VARCHAR(999);

  PROCEDURE O(L VARCHAR, F INT := 999) IS
  BEGIN
DBMS_OUTPUT.PUT_LINE(L);

FOR I IN 301+F..430 LOOP

S := 0 || REPLACE(RPAD(I/100, 4, 0),'.','-') || '/';

E := 0 || R(I);

IF I < 332 OR I > 400 THEN
IF E = 0 AND I < 426 THEN
R(2) := R(2) || S;
END IF;
IF F = 0 THEN

IF E = D THEN
R(8) := R(8) || S;
END IF;

IF I < 332 AND E = B THEN
R(6) := R(6) || S;
END IF;

IF I > 400 AND E = C THEN
R(7) := R(7) || S;
END IF;
END IF;

END IF;

END LOOP;
  END;

  PROCEDURE showAllEasterDay IS
  BEGIN

O('YEAR DAY');
FOR X IN 2011..2099 LOOP
   O(X || R(X));
END LOOP;

  END;

  PROCEDURE showFoolEasterDay IS
  BEGIN

   O('YEAR TOTAL
' || REPLACE(R(1),'#',LENGTH(R(1))/7));

  END;

  PROCEDURE showLeapEasterDay IS
  BEGIN

O('ABSENT_START ABSENT_END
' || SUBSTR(R(2),1,5) || '       ' || SUBSTR(R(2),-6,5));

END;

PROCEDURE showMaxOccurenceEasterDay IS
BEGIN

O('MAXOCC MO_CNT       MAXOCC_3 MO3_CNT             MAXOCC_4       MO4_CNT
' || REPLACE(R(8) || '    ' || D || ' ' || R(6) || '    ' || B || ' ' || R(7) || '    ' || C, '/ ' , ' '));

END;

BEGIN

FOR I IN 2011..2099 LOOP

      R.EXTEND(I);

      D := (234 - 11 * (I MOD 19)) MOD 30 ;
         IF D > 27 THEN
         D := D + 1;
         END IF;

         R(I) := TO_CHAR(DATE'1-3-28' + D - (I + TRUNC(I / 4) + D + 1) MOD 7,' MM-DD');

         D := REPLACE(R(I),'-','');

         IF D = 401 THEN
R(1) := R(1) || I || ' #
';
      END IF;

         R(D) := 0 || R(D) + 1;
      E := R(D);

         IF D < 332 AND E > B THEN
         B := E;
         END IF;

         IF D > 400 AND E > C THEN
         C := E;
         END IF;

END LOOP;

D := GREATEST(B, C);

O('',21);

O('',0);

END;
/

set serveroutput on
exec easter.showFoolEasterDay;
exec easter.showLeapEasterDay;
exec easter.showMaxOccurenceEasterDay;
exec easter.showAllEasterDay;

SELECT SUM(length(REPLACE(REPLACE(REPLACE(text, ' '), chr(9)), chr(10)))) bytes  FROM user_source WHERE NAME = 'EASTER';
/

[ 本帖最后由 DragonBill 于 2011-4-28 10:22 编辑 ]

nyfor · 发表于 2011-4-28 10:54

原帖由 DragonBill 于 2011-4-28 10:20 发表
目前 1311 好数字，看今天能不能压到 1200

期待...

DragonBill · 发表于 2011-4-28 15:49

create or replace package easter is
  PROCEDURE showAllEasterDay;
  PROCEDURE showMaxOccurenceEasterDay;
  PROCEDURE showLeapEasterDay;
  PROCEDURE showFoolEasterDay;
end;
/

create or replace package body easter is

  R    DM_ITEMS := DM_ITEMS();
  D INT;
  B    INT := 0;
  C    INT := 0;
  E    INT;
  S    VARCHAR(999);

  PROCEDURE O(L VARCHAR, F INT := 999) IS
  BEGIN

FOR I IN F..430 LOOP

S := 0 || REPLACE(RPAD(I/100, 4, 0),'.','-') || '/';

E := R(I);

IF  I || E < 332 AND I > 321 OR I || E < 426 AND I > 400 THEN
R(2) := R(2) || S;
END IF;

IF E = D THEN
R(8) := R(8) || S;
END IF;

IF I < 332 AND E = B THEN
R(6) := R(6) || S;
END IF;

IF I > 400 AND E = C THEN
R(7) := R(7) || S;
END IF;

END LOOP;

DBMS_OUTPUT.PUT_LINE(L);
  END;

  PROCEDURE showAllEasterDay IS
  BEGIN

O('YEAR DAY');
FOR X IN 2011..2099 LOOP
   O(X || R(X));
END LOOP;

  END;

  PROCEDURE showFoolEasterDay IS
  BEGIN

   O('YEAR TOTAL
' || REPLACE(R(1),'#',LENGTH(R(1))/7));

  END;

  PROCEDURE showLeapEasterDay IS
  BEGIN

O('ABSENT_START ABSENT_END
' || SUBSTR(R(2),1,5) || '       ' || SUBSTR(R(2),-6,5));

END;

PROCEDURE showMaxOccurenceEasterDay IS
BEGIN

O('MAXOCC MO_CNT       MAXOCC_3 MO3_CNT             MAXOCC_4       MO4_CNT
' || REPLACE(R(8) || '    ' || D || ' ' || R(6) || '    ' || B || ' ' || R(7) || '    ' || C, '/ ' , ' '));

END;

BEGIN

FOR I IN 2011..2099 LOOP

      R.EXTEND(I);

      D := (234 - 11 * (I MOD 19)) MOD 30 ;
         IF D > 27 THEN
         D := D + 1;
         END IF;

         R(I) := TO_CHAR(DATE'1-3-28' + D - (I + TRUNC(I / 4) + D + 1) MOD 7,' MM-DD');

         D := REPLACE(R(I),'-','');

         IF D = 401 THEN
R(1) := R(1) || I || ' #
';
      END IF;

         R(D) := 0 || R(D) + 1;
      E := R(D);

         IF D < 332 AND E > B THEN
         B := E;
         END IF;

         IF D > 400 AND E > C THEN
         C := E;
         END IF;

END LOOP;

D := GREATEST(B, C);

O('',301);

END;
/

set serveroutput on
exec easter.showFoolEasterDay;
exec easter.showLeapEasterDay;
exec easter.showMaxOccurenceEasterDay;
exec easter.showAllEasterDay;

SELECT SUM(length(REPLACE(REPLACE(REPLACE(text, ' '), chr(9)), chr(10)))) bytes  FROM user_source WHERE NAME = 'EASTER';
/

[ 本帖最后由 DragonBill 于 2011-4-28 15:50 编辑 ]

DragonBill · 发表于 2011-4-28 15:52

表示很累滴说，先休息一下，毕竟到1300以下了, COME ON....

〇〇 · 发表于 2011-4-28 17:00

PROCEDURE showFoolEasterDay IS
  BEGIN

   O('YEAR TOTAL
' || REPLACE(R(1),'#',LENGTH(R(1))/7));

  END;

好像和我的思路有点点像

DragonBill · 发表于 2011-4-29 00:36

create or replace package easter is
  PROCEDURE showAllEasterDay;
  PROCEDURE showMaxOccurenceEasterDay;
  PROCEDURE showLeapEasterDay;
  PROCEDURE showFoolEasterDay;
end;
/

create or replace package body easter is

  R    DM_ITEMS := DM_ITEMS();
  D INT;
  B    INT := 0;
  C    INT := 0;
  E    INT;

  PROCEDURE O(L VARCHAR, F INT := 999, X INT := 0) IS
S    VARCHAR(999);  BEGIN

DBMS_OUTPUT.PUT_LINE(L);

FOR I IN F..430 LOOP

IF X = 1 THEN
S := 0 || REPLACE(RPAD(I/100, 4, 0),'.','-') || '/';
END IF;

E := R(I);

IF  I || E < 332 AND I > 321 OR I || E < 426 AND I > 400 THEN
R(2) := R(2) || S;
END IF;

IF E = D THEN
R(5) := R(5) || S;
END IF;

IF I < 400 AND E >= B THEN
B := E;
R(3) := R(3) || S;
END IF;

IF I > 400 AND E >= C THEN
C := E;
R(4) := R(4) || S;
END IF;

END LOOP;
  END;

  PROCEDURE showAllEasterDay IS
  BEGIN

O('YEAR DAY');
FOR X IN 2011..2099 LOOP
   O(X || R(X));
END LOOP;

  END;

  PROCEDURE showFoolEasterDay IS
  BEGIN

   O('YEAR TOTAL
' || REPLACE(R(1),'#',LENGTH(R(1))/7));

  END;

  PROCEDURE showLeapEasterDay IS
  BEGIN

O('ABSENT_START ABSENT_END
' || SUBSTR(R(2),1,5) || '       ' || SUBSTR(R(2),-6,5));

END;

PROCEDURE showMaxOccurenceEasterDay IS
BEGIN

O('MAXOCC MO_CNT       MAXOCC_3 MO3_CNT             MAXOCC_4       MO4_CNT
' || REPLACE(R(5) || '    ' || D || ' ' || R(3) || '    ' || B || ' ' || R(4) || '    ' || C, '/ ' , ' '));

END;

BEGIN

FOR I IN 2011..2099 LOOP

      R.EXTEND(I);

      D := (234 -  I MOD 19 * 11) MOD 30 ;
         D := D + INSTR(27-D,'-');
         R(I) := TO_CHAR(DATE'1-3-28' + D - (I + TRUNC(I / 4) + D + 1) MOD 7,' MM-DD');

         D := REPLACE(R(I),'-','');

         IF D = 401 THEN
R(1) := R(1) || I || ' #
';
      END IF;

         R(D) := 0 || R(D) + 1;

END LOOP;

O('',301);

D := GREATEST(B, C);

O('',301, 1);

END;
/

set serveroutput on
exec easter.showFoolEasterDay;
exec easter.showLeapEasterDay;
exec easter.showMaxOccurenceEasterDay;
exec easter.showAllEasterDay;

SELECT SUM(length(REPLACE(REPLACE(REPLACE(text, ' '), chr(9)), chr(10)))) bytes  FROM user_source WHERE NAME = 'EASTER';
/

[ 本帖最后由 DragonBill 于 2011-4-29 00:37 编辑 ]

DragonBill · 发表于 2011-4-29 00:39

呵呵，很正常，其实很多技巧殊途同归。

就是不断的对代码进行重构和变换

夜了，洗洗睡，希望明早又有一个new idea

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

目前 1311 好数字，看今天能不能压到 1200

1281, 完了，脑子快宕机了

老牛破车慢悠悠， 1260了，离1200还差得远

回复 #18 〇〇的帖子

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

目前 1311 好数字，看今天能不能压到 1200

1281, 完了，脑子快宕机了

老牛破车慢悠悠， 1260了， 离1200还差得远

回复 #18 〇〇 的帖子

老牛破车慢悠悠， 1260了，离1200还差得远

回复 #18 〇〇的帖子