此擂台赛已经结束, 尚未整理, 先把奖励送出.
DragonBill: 344 Bytes
第一名攻擂成功!奖励2000PUB$
sdxiong: 349 Bytes
第二名攻擂成功!奖励1500PUB$
junsansi: 405 Bytes
第三名奖励200PUB$
yangtingkun: 412 Bytes
参与奖励100PUB$
hotiice: 510 Bytes
参与奖励100PUB$
谁: 583 Bytes
参与奖励100PUB$
dhl2001: 636 Bytes
参与奖励100PUB$
jiqing1004: 720 Bytes
参与奖励100PUB$
xiaochuan1206: 723 Bytes
参与奖励100PUB$
leniz: 740 Bytes
参与奖励100PUB$
前两天在网上看到有混乱代码比赛, 心血来潮,我也来搞一个题目供娱乐娱乐.
为更多的人参与进来, 现决定以PUB币作为奖励
第一名:奖励1000PUB币, 第二名奖励500PUB币, 第三名奖励200PUB币
另攻擂成功者, 前三名额外增加1000PUB币
本次摆擂持续时间为一个月, 字节数 <= 384 即告攻擂成功.
摆擂者无论是否有更好的成绩出来, 一律以 384 字节为准作为攻擂标准.
目前设擂者成绩: 348 Bytes.
因为要更多的人参与进来,所以摆擂时间会更长一些, 请耐心等待
最新战绩一览(截止至 # 308 )
DragonBill: 344 Bytes
攻擂成功!
sdxiong: 349 Bytes
攻擂成功!
junsansi: 405 Bytes
yangtingkun: 412 Bytes
hotiice: 510 Bytes
谁: 583 Bytes
dhl2001: 636 Bytes
jiqing1004: 720 Bytes
xiaochuan1206: 723 Bytes
leniz: 740 Bytes
题目: 请模拟出 Oracle 中 Add_Months 函数功能的一个自定义函数.
要求:
1. 函数申明固定为:
create or replace function my_add_months(p_date_string varchar2,
p_months number)
return varchar2
不允许更改.
2. 代码中禁止申明日期类型的变量, 禁止使用一切与日期有关的类型转换及函数,禁止使用Oracle提供的Package, 只能使用 Oracle 的标准函数
3. 不求代码的效率高效, 但也不能太低.
4. 使用你可以使用的一切手段, 将源代码缩短, 不考虑编译后的代码长度, 这里只要求源代码最短.
5. 代码的长度以扣除其中的空白(空格, 回车换行, TAB键)后的字节长度.
6. 传入的日期字符串格式为 yyyymmdd, 增加的月份数传入整数, 函数内部你不需要检核传入的日期字符串是否有效(一定传入有效的), 月份数也不用考虑带小数的情况, 返回的日期字符串格式依然为 yyyymmdd
7. 写完函数后, 请用以下代码进行测试, 希望运行时间不要太长哦.
8. 只把测试结果贴出来, 函数代码先不贴.
9. 运算结果日期年不会超过9999, 也不会小于1600.
见
http://www.itpub.net/thread-977394-1-1.html 中提到1582年前使用的是凯撒时期制定的儒略历，4年一闰,
这个属历史问题, 我们这里不考虑.
10. 函数代码中禁止使用SQL语句.
待收集到一定数量的测试结果后, 再请大家贴出自己的函数源码.
测试代码:
重新设计了一下测试代码, 把测试量减少一个数量级,以便更快得到结果
脚本:
test.sql (2.46 KB)
set serverout on
declare
ln number;
ld date;
ls1 varchar2(8);
ls2 varchar2(8);
lt number := dbms_utility.get_time;
ex exception;
y number;
m number;
d number;
j number;
begin
for j in 0 .. 5000 loop
for y in 2000 .. 2001 loop
for m in 2 .. 4 loop
for d in 28 .. 31 loop
begin
ls1 := y || '0' || m || d;
begin
ld := to_date(ls1, 'yyyymmdd');
exception
when others then
exit;
end;
ld := add_months(ld, j);
ls2 := to_char(ld, 'yyyymmdd');
if nvl(my_add_months(ls1, j), '*') <> ls2 then
dbms_output.put_line('Sorry: stop at p_date_string=' || ls1 ||
',p_months=' || j);
dbms_output.put_line('my_add_months returned: ' ||
my_add_months(ls1, j));
dbms_output.put_line('add_months returned: ' || ls2);
raise ex;
end if;
ls1 := to_char(add_months(ld, -j), 'yyyymmdd');
if nvl(my_add_months(ls2, -j), '*') <> ls1 then
dbms_output.put_line('Sorry: stop at p_date_string=' || ls2 ||
',p_months=' || -j);
dbms_output.put_line('my_add_months returned: ' ||
my_add_months(ls2, -j));
dbms_output.put_line('add_months returned: ' || ls1);
raise ex;
end if;
exception
when ex then
raise;
when others then
raise;
end;
end loop;
end loop;
end loop;
end loop;
ln := 0;
for c in (select text
from user_source
where name = 'MY_ADD_MONTHS'
and type = 'FUNCTION') loop
ln := ln + nvl(lengthb(translate(c.text,
'*' || chr(9) || chr(10) || chr(13) ||
chr(32),
'*')),
0);
end loop;
lt := (dbms_utility.get_time - lt) / 100;
dbms_output.put_line('Congratulation ... Code Length: ' || ln ||
' Bytes. Times: ' ||
to_char(to_date(to_char(lt, 'fm00000'), 'sssss'),
'hh24:mi:ss'));
exception
when ex then
null;
end;
/
[
本帖最后由 nyfor 于 2008-6-5 11:48 编辑 ]
