最小源代码擂台

yangtingkun · 发表于 2008-4-25 15:12

估计快到极限了

Congratulation ... Code Length: 430 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

nyfor · 发表于 2008-4-25 15:19

原帖由 yangtingkun 于 2008-4-25 15:12 发表
估计快到极限了

Congratulation ... Code Length: 430 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

加油还差几个字节.

yangtingkun · 发表于 2008-4-25 16:06

呓？什么时候变成的428，自己都没有注意

Congratulation ... Code Length: 428 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

yangtingkun · 发表于 2008-4-25 16:21

[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: 420 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

.
[/PHP]

休息，休息一会。

nyfor · 发表于 2008-4-25 16:33

哇, 都超过我了啊, 恭喜恭喜.

yangtingkun · 发表于 2008-4-25 16:38

Congratulation ... Code Length: 419 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

yangtingkun · 发表于 2008-4-25 16:42

这个题目已经费了我将近一天的时间了，该休息一下了。

[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: 415 Bytes. Times: 00:00:10

PL/SQL 过程已成功完成。

.
[/php]

nyfor · 发表于 2008-4-25 16:57

最新战果:
Congratulation ... Code Length: 404 Bytes. Times: 00:00:33

振奋人心啊, 各位加油了...

inzaghiogml · 发表于 2008-4-25 17:01

留個名。

nyfor · 发表于 2008-4-25 17:49

最新突破:
Congratulation ... Code Length: 396 Bytes. Times: 00:00:35

[精华] 最小源代码擂台