最小源代码擂台

nyfor

原帖由 leniz 于 2008-5-26 19:30 发表
nyfor   記得要 將每個人的都加到首貼 連接中

没问题, 目前还有一些网友的代码没有贴上来, 我也不着急, 毕竟还要忙工作
稍后做个整理.

DragonBill

我盘算一下, 这次能捞多少外快??

DragonBill

等nyfor整理完毕后再讲解.


现在自己慢慢看, 慢慢推算

louis_xu

告一段落了？

DragonBill

更新至 318 Byte, 但该方法存在一个小Bug
如果允许0年{0,1}月这种格式存在的话, 该 Function 存在错误
注意我红色标出的地方, 用了 Z < 2 作判断
常规情况下, Y * 12 + M + p_months(即Z的初始值), 应该是一定大于1的,
但如果出现下列情况:
p_date_string = 16000101, p_months = -19200(或是-19201, -19202, etc.)
那么就会出现程序错误.
但是反过来考虑, 如果出现以上的情况,
就意味着最后得出的年月一定为0(或者是负数)年{0,1}月, 这种格式事实上是不存在的.

就本题给出的种种规则来看, 我认为这种写法是可行的


--Congratulation ... Code Length: 318 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 := C MOD H;
   Z INT := Y * 12 + M + p_months;
BEGIN
   LOOP
      C := 27 + SUBSTR(43434434341 + 0 ** (Y MOD (4 + 12 * 0 ** (Y MOD H))), 1 - M, 1);
      EXIT WHEN Z < 2;
      Y := (Z - 7) / 12;
      M := Z - Y * 12;
      Z := D/C/2;
   END LOOP;

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

DragonBill

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

这里所说的漏洞就是指这个LOOP.

DragonBill

我最初用的是GOTO + LABEL的实现手法

nyfor

原帖由 DragonBill 于 2008-5-27 10:18 发表
更新至 318 Byte, 但该方法存在一个小Bug
如果允许0年{0,1}月这种格式存在的话, 该 Function 存在错误
注意我红色标出的地方, 用了 Z < 2 作判断
常规情况下, Y * 12 + M + p_months(即Z的初始值), 应该是一定大于1的,
但如果出现下列情况:
p_date_string = 16000101, p_months = -19200(或是-19201, -19202, etc.)
那么就会出现程序错误.
但是反过来考虑, 如果出现以上的情况,
就意味着最后得出的年月一定为0(或者是负数)年{0,1}月, 这种格式事实上是不存在的.

就本题给出的种种规则来看, 我认为这种写法是可行的


--Congratulation ... Code Length: 318 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 := C MOD H;
   Z INT := Y * 12 + M + p_months;
BEGIN
   LOOP
      C := 27 + SUBSTR(43434434341 + 0 ** (Y MOD (4 + 12 * 0 ** (Y MOD H))), 1 - M, 1);
      EXIT WHEN Z < 2;
      Y := (Z - 7) / 12;
      M := Z - Y * 12;
      Z := D/C/2;
   END LOOP;

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

真是PF得不行了....

zhangweicai74

还是早点了结了吧,
我估计有的人睡觉的时候都在想这个问题
各位高手:
记住发个红包给我这个看热闹的

DragonBill

原帖由 DragonBill 于 2008-5-27 00:14 发表
对了 hotiice  , 能请你解释一下 mod(floor(330/power(2,12-m)),2) 的思路吗?
看不大明白?

想明白了, 位移