最小源代码擂台

nyfor

原帖由 DragonBill 于 2008-5-25 21:12 发表
想到了一个不用Procedure压缩在346Byte的办法
不过这个办法不够完善(你的Test Case有漏洞)

真是太厉害了!
测试用例的确是有漏洞, 大家都发现了.

谁

CREATE        OR        REPLACE        FUNCTION        MY_ADD_MONTHS(P_DATE_STRING        VARCHAR2,        P_MONTHS        NUMBER)
RETURN        VARCHAR2        AS                                       
SUBTYPE        I        IS        INT;                               
N        I:=P_DATE_STRING;                                               
C        I:=100;                                               
D        I:=MOD(N,C);                                               
Y        I:=N/C/C;                                               
M        I:=MOD(N/C,C);                                               
Z        I:=M+P_MONTHS;                                               
FUNCTION        F(Y        I,M        I)        RETURN        I               
AS                                                       
BEGIN                                                       
RETURN        31-CASE        WHEN        M        IN(4,6,9,11)        THEN        1       
WHEN        M!=2        THEN        0                               
WHEN        MOD(Y,16)=0        OR        MOD(Y,4)=0        AND        MOD(Y,C)>0        THEN        2
ELSE        3                                               
END;                                                       
END;                                                       
BEGIN                                                       
N:=MOD(MOD(Z,12)+11,12)+1;                                                       
Z:=Y+(Z-N)/12;                                                       
IF        D=F(Y,M)        OR        D>F(Z,N)        THEN                       
D:=F(Z,N);                                                       
END        IF;                                               
RETURN        Z*C*C+N*C+D;                                               
END;                                                       
/                                                       
                                                       

SQL> /
Congratulation ... Code Length: 411 Bytes. Times: 00:00:16


帮yangtingkun节省一个字节

谁

其实我觉得这个擂台赛的目标有些偏离
应该定为最优算法，标准就是正确的结果＋最小的耗时

其实是可以想见的，能达到上述目标的
字节数不见得最少，但肯定不会多 ^_^

hotiice

create or replace function my_add_months(p_date_string varchar2,
                     p_months   number)
return varchar2
as
x char(8):=p_date_string;
y int:=0;
m int;
n int:=substr(x,5,2);
p int:=x/10000;
d int:=mod(x,100);
l int:=0;
type t is table of int;
a t:=t(31,28,31,30,31,30,31,31,30,31,30,31);
begin
if n<>2 and a(n)=d then
l:=1;
elsif mod(p,4)=0 and mod (p,25)>0 or mod(p,16)=0 then
y:=1;
end if;
if n||d-y=228 then
l:=1;
end if;
n:=n+p_months;
m:=mod(p*12+n-1,12)+1;
y:=p+(n-m)/12;
if mod(y,4)=0 and mod (y,25)>0 or mod(y,16)=0 then
a(2):=29;
end if;
if d>a(m) or l=1 then
d:=a(m);
end if;
return y*10000+m*100+d;
end;

hotiice

SQL> CREATE OR REPLACE FUNCTION MY_ADD_MONTHS(P_DATE_STRING VARCHAR2, P_MONTHS NUMBER)
  2  RETURN VARCHAR2 AS
  3  SUBTYPE I IS INT;
  4  N I:=P_DATE_STRING;
  5  C I:=100;
  6  D I:=MOD(N,C);
  7  Y I:=N/C/C;
  8  M I:=MOD(N/C,C);
  9  Z I:=M+P_MONTHS;
10  FUNCTION F(Y I,M I) RETURN I
11  AS
12  BEGIN
13  RETURN 31-CASE
14  WHEN M!=2 THEN mod(floor(330/power(2,12-m)),2)
15  WHEN MOD(Y,16)=0 OR MOD(Y,4)=0 AND MOD(Y,C)>0 THEN 2
16  ELSE 3
17  END;
18  END;
19  BEGIN
20  N:=mod(y*12+z-1,12)+1;
21  Z:=Y+(Z-N)/12;
22  IF D=F(Y,M) OR D>F(Z,N) THEN
23  D:=F(Z,N);
24  END IF;
25  RETURN Z*C*C+N*C+D;
26  END;
27  /

函数已创建。

SQL> exec test_add
Congratulation ... Code Length: 415 Bytes. Times: 00:00:08

DragonBill

昨夜本人看完"同行杀机"后, 想到了一个办法, 可以缩短到339, 如下:

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

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

DragonBill

nyfor, 啥时放代码?

nyfor

原帖由 DragonBill 于 2008-5-26 09:07 发表
nyfor, 啥时放代码?

现在就开始放代码上来.

nyfor

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

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

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

这个最新成果也请发表出来

DragonBill

不等飞机男(sdxiong)了?, 那我就把Codes贴上来.