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

DragonBill · 发表于 2011-4-30 09:30

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

create or replace package body easter is

  R    KU$_VCNT := KU$_VCNT();
  D    INT;
  E    INT;

  PROCEDURE O(L VARCHAR := ' ') IS
      S    CHAR(6);
      X    INT;
  BEGIN
      IF L = ' ' THEN
               FOR I IN 301..430 LOOP

                     E := R(I);

X := TRUNC(I/100);

                     IF D < 99 THEN
S := 0 || X || TO_CHAR(-I MOD 100,'09') || '/';
                     END IF;

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

                  IF E >= 0 || R(X) THEN
R(X) := E;
R(5 + X) := R(5 + X) || S;
END IF;

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

                  END LOOP;
      END IF;
      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(802),'#',LENGTH(R(802))/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(8) || '    ' || R(3) || ' ' || R(9) || '    ' || R(4), '/ '));

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),'-');

         R(D*2) := R(D*2) || I || ' #
';
         R(D) := 0 || R(D) + 1;

      END LOOP;

      O;

      D := GREATEST(R(3), R(4));

      O;
END;
/

[ 本帖最后由 DragonBill 于 2011-4-30 09:40 编辑 ]

DragonBill · 发表于 2011-4-30 09:35

1，修改了DM_ITEMS不能通过编译的问题，改用 KU$_VCNT 两者一样。
2，神奇的脑子，总能在计穷的时候神来一笔(自我陶醉一下

)

zhangweicai74 · 发表于 2011-4-30 09:44

原帖由 DragonBill 于 2011-4-30 09:35 发表
1，修改了DM_ITEMS不能通过编译的问题，改用 KU$_VCNT 两者一样。
2，神奇的脑子，总能在计穷的时候神来一笔(自我陶醉一下)

DragonBill · 发表于 2011-4-30 12:11

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

create or replace package body easter is

  R    KU$_VCNT := KU$_VCNT();
  D    INT;

  PROCEDURE O(L VARCHAR := ' ') IS
      S    CHAR(6);
      X    INT;
E    INT;
  BEGIN

      IF L = ' ' THEN
               FOR I IN 301..430 LOOP

X := TRUNC(I/100);

                     IF D < 99 THEN
S := 0 || X || TO_CHAR(-I MOD 100,'09') || '/';
                     END IF;

E := R(I);

                  IF E >= 0 || R(X) THEN
R(X) := E;
R(5 + X) := R(5 + X) || S;
R(9 + E) := R(9 + E) || S; END IF;

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

                  END LOOP;
      END IF;

      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(802),'#',LENGTH(R(802))/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(9 + D) || '    ' || D || ' ' || R(8) || '    ' || R(3) || ' ' || R(9) || '    ' || R(4), '/ '));

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),'-');

         R(D*2) := R(D*2) || I || ' #
';
         R(D) := 0 || R(D) + 1;

      END LOOP;

      O;

      D := GREATEST(R(3), R(4));

      O;
END;
/

jboracle1981 · 发表于 2011-4-30 12:26

又是一位神人！

DragonBill · 发表于 2011-4-30 12:49

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

create or replace package body easter is

  R    KU$_VCNT := KU$_VCNT();
  D    INT;

  PROCEDURE O(L VARCHAR := ' ') IS
      S    CHAR(6);
      X    INT;
E    INT;
  BEGIN

FOR I IN 301*INSTR(L, ' ')..430 LOOP

X := TRUNC(I/100);

IF D < 99 THEN
S := 0 || X || TO_CHAR(-I MOD 100,'09') || '/';
END IF;

E := R(I);

IF E >= 0 || R(X) THEN
R(X) := E;
R(5 + X) := R(5 + X) || S;
R(9 + E) := R(9 + E) || S;
END IF;

IF I || E < 332 AND I > 321 OR I || E < 426 AND I > 400 THEN
R(2) := R(2) || 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(802),'#',LENGTH(R(802))/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(9 + D) || '    ' || D || ' ' || R(8) || '    ' || R(3) || ' ' || R(9) || '    ' || R(4), '/ '));

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),'-');

         R(D*2) := R(D*2) || I || ' #
';
         R(D) := 0 || R(D) + 1;

      END LOOP;

      O;

      D := GREATEST(R(3), R(4));

      O;
END;
/

〇〇 · 发表于 2011-4-30 15:03

强,快接近我人工ｗｒａｐ的字节数了

DragonBill · 发表于 2011-4-30 15:06

拿掉了 S, X 变量，并且取消 IF D < 99...语句，改用R(I*3)架构存放日期格式字符串，压至 1176

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

create or replace package body easter is

  R    KU$_VCNT := KU$_VCNT();
  D    INT;

  PROCEDURE O(L VARCHAR := ' ') IS
E    INT;
  BEGIN

FOR I IN 301*INSTR(L, ' ')..430 LOOP

D := TRUNC(I/100);

E := R(I);

IF E >= 0 || R(D) THEN
R(D) := E;
R(5 + D) := R(5 + D) || R(I * 3);
R(9 + E) := R(9 + E) || R(I * 3);
END IF;

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

R(I * 3) := 0 || D || TO_CHAR(-I MOD 100,'09') || '/';
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(802),'#',LENGTH(R(802))/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(9 + D) || '    ' || D || ' ' || R(8) || '    ' || R(3) || ' ' || R(9) || '    ' || R(4), '/ '));

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),'-');

         R(D*2) := R(D*2) || I || ' #
';
         R(D) := 0 || R(D) + 1;

      END LOOP;

      O;
      O;
D := GREATEST(R(3), R(4));END;
/

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

DragonBill · 发表于 2011-4-30 15:12

你人工是多少？

〇〇 · 发表于 2011-4-30 15:20

http://www.itpub.net/thread-1419945-6-1.html
２５４
用１９６的工具测试
１１６９

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

YES, 1199，下标的妙用

继续前进，我被它迷住了:) 1190

1186，利用输出空字符串的位置控制LOOP

回复 #37 〇〇的帖子

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

YES, 1199， 下标的妙用

继续前进，我被它迷住了:) 1190

1186， 利用输出空字符串的位置控制LOOP

回复 #37 〇〇 的帖子

YES, 1199，下标的妙用

1186，利用输出空字符串的位置控制LOOP

回复 #37 〇〇的帖子