最小源代码擂台

nyfor

刚刚删除了我的测试结果, 希望能有更多的人参与进来.

jiqing1004

关注中～～ 下班好好研究下

junsansi

Congratulation ... Code Length: 1317 Bytes. Times: 00:00:21

PL/SQL procedure successfully completed

en,有待优化~~~

另外速度这块是不是还得考虑硬件环境啊~

nyfor

原帖由 junsansi 于 2008-4-24 17:34 发表
Congratulation ... Code Length: 1317 Bytes. Times: 00:00:21

PL/SQL procedure successfully completed

en,有待优化~~~

另外速度这块是不是还得考虑硬件环境啊~

不错, 第一个出来结果的,

速度这块是与硬件环境有关, 但这里不作为评判标准, 只期望以上的测试代码的执行时间最好不要超过5分钟.

代码还有优化的空间哦.

junsansi

替换了一下变量，目前变成了751字节

nyfor

再次说明, 这里只求源代码最短, 速度在可接受的范围内.
不管你的代码有多晦涩难懂也是允许的.

nyfor

原帖由 junsansi 于 2008-4-24 17:43 发表
替换了一下变量，目前变成了751字节

继续加油!

yangtingkun

有奖品吗？

[PHP]

SQL> declare
  2    ln  number;
  3    ld1 date;
  4    ld2 date;
  5    ls  varchar2(8);
  6    lt  number := dbms_utility.get_time;
  7    ex exception;
  8    i number;
  9    j number;
10  begin
11    ld1 := to_date('20080101', 'yyyymmdd');
12    i := 0;
13    loop
14      exit when i > 800;
15      j := -2400;
16      loop
17        exit when j > 2400;
18        if to_char(ld1 + i,'dd')= '02' then
19          i := i + 25;
20        end if;
21        if to_char(add_months(ld1 + i, j), 'yyyymmdd') <>
22           nvl(my_add_months(to_char(ld1 + i, 'yyyymmdd'), j), '*') then
23          dbms_output.put_line('Sorry: stop at p_date_string=' ||
24                               to_char(ld1 + i, 'yyyymmdd') || ',p_months=' || j);
25          raise ex;
26        end if;
27        j := j + 1;
28      end loop;
29      i := i + 1;
30    end loop;
31    ln := 0;
32    for c in (select text
33                from user_source
34               where name = 'MY_ADD_MONTHS'
35                 and type = 'FUNCTION') loop
36      ln := ln + nvl(lengthb(translate(c.text,
37                                       '*' || chr(9) || chr(10) || chr(13) ||
38                                       chr(32),
39                                       '*')),
40                     0);
41    end loop;
42    lt := (dbms_utility.get_time - lt) / 100;
43    dbms_output.put_line('Congratulation ... Code Length: ' || ln ||
44                         ' Bytes. Times: ' ||
45                         to_char(to_date(to_char(lt, 'fm00000'), 'sssss'),
46                                 'hh24:mi:ss'));
47  exception
48    when ex then
49      null;
50  end;
51  /
Congratulation ... Code Length: 676 Bytes. Times: 00:00:13

PL/SQL 过程已成功完成。

.
[/PHP]

yangtingkun

Congratulation ... Code Length: 672 Bytes. Times: 00:00:14

PL/SQL 过程已成功完成。

yangtingkun

Congratulation ... Code Length: 657 Bytes. Times: 00:00:14

PL/SQL 过程已成功完成。