最小源代码擂台

nyfor

create or replace function my_add_months
(
   p_date_string varchar2,
   p_months      number
) return varchar2 is
   c int := 100;
   a int := p_date_string;
   y int := a / c / c;
   m int := a / c - y * c;
   t int;
   procedure p is
   begin
      t := substr(525454554545, m, 1);
      t := t + 26 + 1 / (t + mod(y, 4) + instr(0, mod(y, c)) * mod(y, 400));
   end;
begin
   p;
   a := mod(a, c);
   a := trunc(a / t) * c + a;
   m := m + p_months + y * 12 - 7;
   y := m / 12;
   m := m - y * 12 + 7;
   p;
   return y * c * c + m * c + least(a, t);
end;

Congratulation ... Code Length: 348 Bytes. Times: 00:00:21

nyfor

原帖由 DragonBill 于 2008-5-26 09:20 发表
不等飞机男(sdxiong)了?, 那我就把Codes贴上来.

他的后贴也没关系 不等他再来缩短源码了

DragonBill

--Congratulation ... Code Length: 344 Bytes. Times: 00:00:08
--(在公司的Server端用最新Test Case得到的评测结果)
create or replace function my_add_months(p_date_string varchar2,
                                         p_months      number)
  return varchar2
AS
   C INT := p_date_string;
   H INT := 100;
   Y INT := C/H/H;
   M INT := MOD(C/H, H);
   D INT := MOD(C, H);
   Z INT := Y * 12 + M + p_months;

   PROCEDURE P
   AS
   BEGIN
      C := 27 + SUBSTR(43434434342 - SIGN(MOD(Y, 16 - 4 * INSTR(Y/H,'.'))), 1 - M, 1);
   END;

BEGIN

   P;

   M := MOD(Z - 1, 12) + 1;
   Y := (Z - M) / 12;
   Z := C;

   P;

   RETURN Y*H*H + M*H + LEAST(D + TRUNC(D/Z) * 3, C);
END;
/

DragonBill

--Congratulation ... Code Length: 339 Bytes. Times: 00:00:08
--(在公司的Server端用最新Test Case得到的评测结果)
create or replace function my_add_months(p_date_string varchar2,
                                         p_months      number)
  return varchar2
AS
   C INT := p_date_string;
   H INT := 100;
   Y INT := C/H/H;
   M INT := MOD(C/H, H);
   D INT := MOD(C, H);
   Z INT := Y * 12 + M + p_months;

   PROCEDURE P
   AS
   BEGIN
      C := 27 + SUBSTR(43434434342 - SIGN(MOD(Y, 16 - 4 * INSTR(Y/H,'.'))), 1 - M, 1);
   END;

BEGIN

   P;

   M := MOD(Z - 1, 12) + 1;
   Y := (Z - M) / 12;
   Z := D/C/2;

   P;

   RETURN Y*H*H + M*H + LEAST(D + Z * 3, C);
END;
/

DragonBill

339与344的差别在于前者利用了隐式转换以代替后者的TRUNC

DragonBill

真是算法各逞风骚

DragonBill

借签你算月的方法可以再减少3个Byte

DragonBill

肓点肓点, 光记得优化闰年和求当前月去了

谁

原帖由 DragonBill 于 2008-5-26 09:06 发表
昨夜本人看完"同行杀机"后, 想到了一个办法, 可以缩短到339, 如下:

Congratulation ... Code Length: 339 Bytes. Times: 00:00:08

无奈已到2008-05-26 0:38.

BT啊

DragonBill

学习nyfor的Codes ing.....