最小源代码擂台

DragonBill

原帖由 nyfor 于 2008-5-26 12:37 发表
等所有的代码都贴上来之后就可以搞一个最短的了.
目前我综合大家的算法, 缩短到了 324 Byte.

me too

nyfor

真的是"三人行必有我师", 太有道理了.

DragonBill

DragonBill

我觉得现在优化的目标应该在于用什么代替那个11位数, 以及SUBSTR函数

nyfor

原帖由 DragonBill 于 2008-5-26 13:09 发表
我觉得现在优化的目标应该在于用什么代替那个11位数, 以及SUBSTR函数

倘若有一个函数比如 ln(2) 结果中正好有这个11位数序列那就太妙了, 可惜不太可能找到.

DragonBill

没有的, LN和EXP我都试过了

sdxiong

hotiice的代码中有一行比较有意思

原帖由 hotiice 于 2008-5-26 08:31 发表
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

向前进
--Congratulation ... Code Length: 319 Bytes. Times: 00:00:09
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 := C MOD H;
   Z INT := Y * 12 + M + p_months;

   PROCEDURE P
   AS
   BEGIN
      C := 27 + SUBSTR(43434434341 + 0 ** (Y MOD (4 + 12 * 0 ** (Y MOD 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(C, Z || D);
END;
/

DragonBill

请他解释一下

[ 本帖最后由 DragonBill 于 2008-5-27 00:06 编辑 ]

DragonBill

目前已更新至 319Byte, 请看 400楼

400楼, 真有意义