最小源代码擂台

DragonBill

mod(floor(330/power(2,12-m)),2)

等价于

BITAND(1, 2640/2**M - .2)

谁

原帖由 DragonBill 于 2008-5-28 09:38 发表
mod(floor(330/power(2,12-m)),2)

等价于

BITAND(1, 2640/2**M - .2)

扣，这什么脑袋
煮了吃了，相信大家的智商能提高很大 一个台阶

DragonBill

318Byte应该是我能想到的极限了

因为我曾试过, 利用 位操作 的办法虽然能减少 43434434341 这串数字的长度为8, 但增加了其它开销, 得不偿失.
或许还有其它更好的方法吧, 留给有兴趣的人去思考吧
位操作代码如下, 以供大家参考

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 := 28 + BITAND((62648012+0 ** (Y MOD (4 + 12 * 0 ** (Y MOD H))) * 16) / 4 ** M - .5, 3);
      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

原帖由 谁 于 2008-5-28 16:55 发表


扣，这什么脑袋
煮了吃了，相信大家的智商能提高很大 一个台阶

谁

原帖由 DragonBill 于 2008-5-29 10:48 发表

谢谢提供刀子
请自裁吧

hotiice

请版主取消置顶，谢谢楼主红包

wxqxs

Congratulation ... Code Length: 167 Bytes. Times: 00:00:01


create or replace function my_add_months(p_date_string varchar2,
                                         p_months      number)
  return varchar2 is

begin

   return to_char((add_months(to_date(p_date_string,'yyyymmdd'),p_months)),'yyyymmdd');

end;

mure

429的哥们，你看看题目。。。

wxqxs

有点幽默感嘛~

nbug

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

哎，写这么个小程序都费半天劲，迟钝啊迟钝