最小源代码擂台

谁

原帖由 sdxiong 于 2008-5-26 11:09 发表
CREATE OR REPLACE FUNCTION MY_ADD_MONTHS(P_DATE_STRING VARCHAR2,
                                         P_MONTHS      NUMBER)
  RETURN VARCHAR2 IS
  H INT := 100;
  S INT := P_DATE_STRING;
  Y INT := S/H/H;
  M INT := S/H MOD H;
  D INT := S MOD H;

  PROCEDURE P IS
  BEGIN
    S := 28 + 3232332323030 / 10**M MOD 10;
    IF M=2 AND (Y MOD 400 = 0 OR Y MOD 4 < Y MOD H / H) THEN
       S := 29;
    END IF;
  END;

BEGIN

  P;
  D := D + D * INSTR(D,S);

  M := Y*12+M+P_MONTHS;
  Y := M/12-.55;
  M := M-Y*12;

  P;
  D := LEAST(D,S);

  RETURN Y*H*H + M*H + D;

END;
/

MS语法有错？
sqlplus下不能用
pl/sql中没问题

[ 本帖最后由 谁 于 2008-5-26 11:14 编辑 ]

DragonBill

只能在PL/SQL下用

nyfor

原帖由 DragonBill 于 2008-5-26 11:11 发表



288??

弄错了, 嘿嘿, 是 328.

nyfor

原帖由 谁 于 2008-5-26 11:13 发表


MS语法有错？
sqlplus下不能用
pl/sql中没问题

我在10G中可以运行, 可能低版Oracle不支持某些语法.

nyfor

10G中利用 sdxiong 的 ** 代替 power 函数的方法, 我的代码可以缩减 6 个字节.

DragonBill

大开眼界

DragonBill

令人惊奇的是各种用法

DragonBill

用sxdoing的MOD用法, 我的参赛代码能再减少4个Byte

DragonBill

结合这么多方法了, 大家再一齐弄弄, 看能不能整个更短的出来

nyfor

等所有的代码都贴上来之后就可以搞一个最短的了.
目前我综合大家的算法, 缩短到了 324 Byte.