ITPUB第2届“盛拓传媒杯”SQL数据库编程大赛第二期正式开始，欢迎大家踊跃参与答题！

xqmei

上传第一二期所有题目的答案，无所谓参赛与否了。。。

jboracle1981

附加题，密码与正题一样
坐等学习newkid的解法

jboracle1981

xqmei 发表于 2013-11-7 06:46
上传第一二期所有题目的答案，无所谓参赛与否了。。。

牛人！3个题目才1.63KB！

Naldonado

上次发了n个版答案，这次什么时候，我黔驴技穷了，什么时候就发，现在继续便秘。

〇〇

欢迎大家贴奇葩地雷阵挑战newkid的答案，我先提供一个，大家测下速度
var v_width NUMBER;

var v_height NUMBER;


var v_cnt NUMBER;


VAR v_str VARCHAR2(1000);
exec :v_width := 21
exec :v_height := 21
exec :v_CNT := 1
exec :v_str:=''
begin
for i in 1..21 loop
if i mod 2 =1 then
:v_str:=:v_str||replace(lpad('*',10, '*'),'*','* ')||'*';
else
:v_str:=:v_str||' '||replace(lpad('*',10, '*'),'*','* ');
end if;
end loop;
:v_CNT :=regexp_count(:v_str,'\*');
:v_str:=replace(getdl_1(:v_width,:v_height ,:v_cnt,:v_str),'*',' ');
--:v_str:=replace(replace(:v_str,' ',8),'*',' ');
end;
/

〇〇

〇〇 发表于 2013-11-7 17:03
欢迎大家贴奇葩地雷阵挑战newkid的答案，我先提供一个，大家测下速度
var v_width NUMBER;

getdl_1用来返回正题的答案，即标出地雷数字

demonat

我来个：
exec :v_width := 31
exec :v_height := 31
exec :v_CNT := 31*31-1
exec :v_str:=RPAD(3,31*31,' ')

asamiya310

a.str='      535  3 3  535      ',w=h=5,cnt=16  这个是牛蛙的那个
b.str=' 2  2  2  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  2  2  2 ',w=h=9,cnt=27  这个18*18的我要72秒，30*30的就不行了
c.str='         ',w=h=3,cnt=0 or cnt=9 全是地雷或者全不是地雷
d.str=' 1  11          ',w=h=4,cnt=1
e.str='3        ',w=h=3,cnt=8

〇〇

demonat 发表于 2013-11-7 17:31
我来个：
exec :v_width := 31
exec :v_height := 31

nice job

lanhuiboy

不是说到12号才结束的吗?现在还可以上传正题和附加题的答案吗?