Puzzleup 2013挑战赛即将开始

HelloWorld_001

我就是觉得1个个拼很慢，就4个来的。发现4个变8个就是 test2就特慢了，直接无法出结果，只能拆开算了。其实8个符合条件的就一千多个

solomon_007

〇〇 发表于 2013-8-16 16:35
利用instr的第4个参数，终于改对了
set num 20
SQL> with t as (select level-1 l from dual connect b ...

简单高效，非常漂亮的写法，good job!

udfrog

〇〇 发表于 2013-8-16 16:35
利用instr的第4个参数，终于改对了
set num 20
SQL> with t as (select level-1 l from dual connect b ...

感觉有一处不严谨，t2没有限制字符出现不超过两次。虽然有很多偶然的因素导致不会出现8881开头的符合条件的数字。不知道你是否在写代码的时候有综合考虑到所以没有加上

〇〇

udfrog 发表于 2013-8-18 16:11
感觉有一处不严谨，t2没有限制字符出现不超过两次。虽然有很多偶然的因素导致不会出现8881开头的符合条件 ...

想过，但是太傻
and instr(a.l||b.l||c.l||d.l,a.l,1,3)=0
and instr(a.l||b.l||c.l||d.l,b.l,1,3)=0
and instr(a.l||b.l||c.l||d.l,c.l,1,3)=0
and instr(a.l||b.l||c.l||d.l,d.l,1,3)=0
and a.l||b.l not like '0%'
因为后面接上去的都判断了instr(str,c,1,3)所以如果最长数超过4，自动就滤掉了

udfrog

〇〇 发表于 2013-8-19 18:27
想过，但是太傻
and instr(a.l||b.l||c.l||d.l,a.l,1,3)=0
and instr(a.l||b.l||c.l||d.l,b.l,1,3)=0

"所以如果最长数超过4，自动就滤掉了"什么意思？

newkid

lugionline 发表于 2013-8-17 08:54
大家的做法肯定都差不多

with

用两位二进制来充当计数器的方法很新颖！我试过十进制，但十进制没有位操作，要用其他办法实现。

改成ORACLE语法：
with
d (n, m, c) as
(
         select 0, power(4, 0) * 3, power(4, 0) * 1 FROM DUAL union all
         select n + 1, power(4, n + 1) * 3, power(4, n + 1) * 1 from d where n < 9
),
s (x, c, p1, p2, p3, p4, l) as
(
         select cast(d.n as varchar2(20)), d.c, 0, 0, 0, d.n, 1 from d where n > 0 union all
         select s.x || d.n , s.c + d.c, s.p2, s.p3, s.p4, d.n, s.l + 1 from s, d
         where ( BITAND(d.m, (s.c + d.c))) < d.m
                 and (s.l + 1 < 4 or (s.p2 + s.p3 + s.p4 + d.n) in (select n*n from d))
)
select x from
(
         select x, rank() over (order by l desc) r from s
) s where r = 1

我刚刚发现图书章不可转让，那就有劳你把书名和联系办法告诉童馨，或者告诉我也行。

newkid

〇〇 发表于 2013-8-19 18:27
想过，但是太傻
and instr(a.l||b.l||c.l||d.l,a.l,1,3)=0
and instr(a.l||b.l||c.l||d.l,b.l,1,3)=0

把t2也写到递归里去就行了，参见68楼写法。

〇〇

newkid 发表于 2013-8-19 21:42
把t2也写到递归里去就行了，参见68楼写法。

因为题目已经出来超过4位数的，我原来以为8881会自动隔离，但如果后面凑上去的没有8就难讲了

lugionline

newkid 发表于 2013-8-19 21:34
用两位二进制来充当计数器的方法很新颖！我试过十进制，但十进制没有位操作，要用其他办法实现。

改成 ...

章就不要了，麻烦，我对技术书籍不感冒，看教科书和用户手册就够了

〇〇

lugionline 发表于 2013-8-20 06:34
章就不要了，麻烦，我对技术书籍不感冒，看教科书和用户手册就够了

我在看一本《电子电器工程师必知必会》，很厉害的样子，它也不是教科书