最小源代码擂台

谁

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



要把Service停掉, 再打Patch, 我上次给9i打Patch, 忘了停掉Service, 直接setup patch, 结果....

10.1到10.2，算是upgrade？

nyfor

原帖由 谁 于 2008-5-26 10:24 发表



哎，我不是说要同时兼顾代码长度和效率了
我意思是，将你们现有的代码，去除隐式转换
我运行一下看看能不能提高效率
由于代码已经很精悍了，去除隐式转换应该也不会增加太多字节

如果要确保取出每一个隐式转换,包含精度的转换, 也会增加很多字节的. 我的转换后如下:
create or replace function my_add_months
(
   p_date_string varchar2,
   p_months      number
) return varchar2 is
   c int := 100;
   a int := to_number(p_date_string);
   y int := round(to_number(a) / c / c);
   m int := round(to_number(a) / c - y * c);
   t int;
   procedure p is
   begin
      t := to_number(substr('525454554545', m, 1));
      t := round(t + 26 + 1 / (t + mod(y, 4) + instr(0, mod(y, c)) * mod(y, 400)));
   end;
begin
   p;
   a := mod(to_number(a), c);
   a := trunc(to_number(a) / t) * c + to_number(a);
   m := m + p_months + y * 12 - 7;
   y := round(m / 12);
   m := m - y * 12 + 7;
   p;
   return to_char(y * c * c + m * c + least(to_number(a), t));
end;

加入所有的显示转换及精度转换后 475 Bytes.

DragonBill

是啊, TO_NUMBER, ROUND, TO_CHAR...个个都so长so长

DragonBill

那个 +/- 7, 我也是无论如何想不到那一方面去的

谁

转换前
SQL> /
Congratulation ... Code Length: 348 Bytes. Times: 00:00:04

调用完成。

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

调用完成。

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

调用完成。

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

调用完成。

已用时间:  00: 00: 04.25



转换后
SQL> call t();
Congratulation ... Code Length: 475 Bytes. Times: 00:00:04

调用完成。

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

调用完成。

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

调用完成。

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

调用完成。

已用时间:  00: 00: 03.96

提高了6.8%  
效率提升不是很明显

[ 本帖最后由 谁 于 2008-5-26 10:47 编辑 ]

DragonBill

原帖由 谁 于 2008-5-26 10:33 发表



10.1到10.2，算是upgrade？

不知道, 我没试过10g, 一直用9i

谁

恭喜！您刚拣到ITPUB送出的奥运纪念徽章。2008北京奥运纪念徽章:棒球

这是啥？

谁

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



不知道, 我没试过10g, 一直用9i

找到一个帖子 http://www.itpub.net/viewthread.php?tid=975703
正在看Oracle安装文档

DragonBill

原帖由 谁 于 2008-5-26 10:47 发表
恭喜！您刚拣到ITPUB送出的奥运纪念徽章。2008北京奥运纪念徽章:棒球

这是啥？

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

谁

yangtingkun的

SQL> call t();
Congratulation ... Code Length: 412 Bytes. Times: 00:00:03

调用完成。

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

调用完成。

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

调用完成。

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

调用完成。

已用时间:  00: 00: 03.01

太强了