最小源代码擂台

谁 · 发表于 2008-5-26 10:51

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

Ft, 我咋就没捡的??
你不知道那是啥? 打劫

你好像有12个哦
劫贫济富，我BS你

谁 · 发表于 2008-5-26 10:53

SQL> /
Congratulation ... Code Length: 510 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 04.50
SQL> /
Congratulation ... Code Length: 510 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 04.46
SQL> /
Congratulation ... Code Length: 510 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 04.46
SQL> /
Congratulation ... Code Length: 510 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 04.46

谁 · 发表于 2008-5-26 10:54

SQL> /
Congratulation ... Code Length: 555 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.40
SQL> /
Congratulation ... Code Length: 555 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.39
SQL> /
Congratulation ... Code Length: 555 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.39
SQL> /
Congratulation ... Code Length: 555 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.37

偶的效率还可以

谁 · 发表于 2008-5-26 10:56

SQL> /
Congratulation ... Code Length: 344 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 04.01
SQL> /
Congratulation ... Code Length: 344 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 03.96
SQL> /
Congratulation ... Code Length: 344 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 03.96
SQL> /
Congratulation ... Code Length: 344 Bytes. Times: 00:00:04

调用完成。

已用时间:  00: 00: 03.95

nyfor · 发表于 2008-5-26 11:06

原帖由 DragonBill 于 2008-5-26 10:30 发表
现在可以飚到329了

--Congratulation ... Code Length: 329 Bytes. Times: 00:00:08
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 := C/H - Y * 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;

Y := (Z - 7) / 12;
M := Z - Y * 12;
Z := D/C/2;

P;

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

刚想到 LEAST(D + Z * 3, C) 改为 LEAST(C,Z||D) 可以再次减少一个字节到 288

sdxiong · 发表于 2008-5-26 11:07

晕。。。。。还以为有1000PUB币呢。。。。跌到了第三名

谁 · 发表于 2008-5-26 11:08

原帖由谁于 2008-5-26 09:44 发表
我的算法思路和hotiice差不多
不过字节比他的多多了

CREATE OR REPLACE function SYSTEM.my_add_months(p_date_string varchar2, p_months number) return varchar2 IS
t int:=p_date_string;
l int:=100;
y int:= t/l/l; m int:= mod(t/l,l); d int:= mod(t,l);
BEGIN
t := case when m=2 and d>=28 then case when not ((mod(y,4)=0 and mod(y,25)>0 or mod(y,16)=0) and d=28) then 1 end
         when m in(4,6,9,11) and d=30 then 1 when d=31 then 1 end;
m := m+p_months;
y := trunc(y+(m-1)/12);
m := mod(mod(m,12)+11,12)+1;
l:=28;
if mod(y,4)=0 and (mod(y,25)>0 or mod(y,16)=0) then l:=29; end if;
d := case when m in(4,6,9,11) and (d>30 or t=1) then 30
      when m=2 and (d>l or t=1) then l
      when t=1 then 31
      else d end;
RETURN y||lpad(m,2,'0')||d;
END;
/

SQL> /
Congratulation ... Code Length: 538 Bytes. Times: 00:00:04

这是按我的算法思路走，最少的字节数了吧
当然我的最终成绩，还是按照555字节来定
这三个数，也好听

更少的是这个

CREATE OR REPLACE function my_add_months(p_date_string varchar2, p_months number) return varchar2 IS
t int:=p_date_string;
l int:=100;
y int:= t/l/l; m int:= mod(t/l,l); d int:= 31-mod(t,l);
BEGIN
t := case when m=2 and d<4 then case when not ((mod(y,4)=0 and mod(y,25)>0 or mod(y,16)=0) and d=3) then 1 end
         when m in(4,6,9,11) and d=1 or d=0 then 1 end;
m := m+p_months;
y := y+(m-7)/12;
m := mod(mod(m,12)+11,12)+1;
l:=3;
if mod(y,4)=0 and (mod(y,25)>0 or mod(y,16)=0) then l:=2; end if;
d := case when m in(4,6,9,11) and (d<1 or t=1) then 1
      when m=2 and (d<l or t=1) then l
      when t=1 then 0
      else d end;
RETURN y*10000+m*100+31-d;
END;
/

同时还拒绝了漏洞

SQL> /
Congratulation ... Code Length: 516 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.25
SQL> /
Congratulation ... Code Length: 516 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.21
SQL> /
Congratulation ... Code Length: 516 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.21
SQL> /
Congratulation ... Code Length: 516 Bytes. Times: 00:00:03

调用完成。

已用时间:  00: 00: 03.21

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;
/