PUZZLEUP 2014

〇〇

peter1166 发表于 2014-10-16 14:37
这样就秒杀了。

算原题比你的慢，但我的数据很快出来了

with a as(select '21218453415461109221'a from dual), --75059993789508200000
b as(select level l from a connect by level<=log(2,a)+2),
c as(select level-1 c from dual connect by level<=2 union all
select sum(power(2,l)) over(partition by mod(l,2) order by l )+mod(l+1,2)from b),
t as(select c n from a,c where instr(a,c)>0)
SELECT *
FROM   T T1,T T2,T T3,T T4,T T5,T T6,a
where  t1.n like substr(a,1,1)||'%'
and T1.N||T2.N||T3.N||T4.N||T5.N||T6.N =a
AND    ROWNUM <= 1 ;
select count(*) from t;

〇〇

〇〇 发表于 2014-10-16 16:59
算原题比你的慢，但我的数据很快出来了

with a as(select '21218453415461109221'a from dual), --750 ...

改成递归就快了
with a as(select '21218453415461109221'a from dual), --75059993789508200000
b as(select level l from a connect by level<=log(2,a)+2),
c as(select level-1 c from dual connect by level<=2 union all
select sum(power(2,l)) over(partition by mod(l,2) order by l )+mod(l+1,2)from b),
t as(select c n from a,c where instr(a,c)>0),
s(lv,n,s) as(select 1 lv,to_char(n),0+n s from t,a where a like n||'%'
union all
select 1+lv,to_char(s.n)||to_char(t.n),s+t.n from s,t,a where a like to_char(s.n)||to_char(t.n)||'%'and lv<6)
SELECT *
FROM  s,a
where lv=6 and length(n)=length(a) and ROWNUM <= 1 ;

peter1166

〇〇 发表于 2014-10-16 15:19
用这个75059993789508200000跑不出来

您说的对， 我那个还是有缺陷， 因为 》 XOR 是对 0 无效的。 但0 也满足条件。
修改了一下应该出来了。

WITH T0 AS (
            SELECT LEVEL L
                   ,SUBSTR(S,LEVEL,1) C
            FROM   (SELECT '75059993789508200000' S FROM DUAL )
            CONNECT BY LEVEL <= LENGTH(S)
            )
    ,T1 AS (
            SELECT DISTINCT TO_NUMBER(REPLACE(SYS_CONNECT_BY_PATH(C,','),',','')) N
            FROM T0
            CONNECT BY LEVEL <= 20 AND L = PRIOR L+1
           )
    ,T AS (
             SELECT DISTINCT  N
             FROM (SELECT  N , FLOOR(N/2) SHR1 FROM T1)
             WHERE N = 0 OR N + SHR1 - 2 * BITAND(N,SHR1) IN (SELECT POWER(2,LEVEL)-1 FROM DUAL CONNECT BY LEVEL <= 100)
           )
SELECT *
FROM   T T1,T T2,T T3,T T4,T T5,T T6
WHERE  t1.n like '7%'
and    T1.N||T2.N||T3.N||T4.N||T5.N||T6.N = '75059993789508200000'  
AND    ROWNUM <= 1 ;

         N          N          N          N          N          N
---------- ---------- ---------- ---------- ---------- ----------
7505999378          0          0          0          0          0

peter1166

〇〇 发表于 2014-10-16 16:59
算原题比你的慢，但我的数据很快出来了

with a as(select '21218453415461109221'a from dual), --750 ...

强！
先构造

100 + 1
10100 + 1
1010100 + 1
101010100 + 1
...
10
1010
101010
10101010
...
再拼。
log(2,a)+2 印象深刻。

newkid

peter1166 发表于 2014-10-16 21:15
强！
先构造

给你发个章。
我写的是这样：


VAR S VARCHAR2(30);
EXEC :S := '21218453415461109221';

WITH n(n,lvl) AS (
SELECT 1,1 FROM DUAL
UNION ALL
SELECT n*2 + MOD(lvl+1,2), lvl+1 FROM n WHERE n<TO_NUMBER(:s)
)
,s AS (
SELECT n FROM n WHERE INSTR(:s,TO_CHAR(n))>0
)
SELECT *
  FROM s s1,s s2,s s3,s s4,s s5,s s6
WHERE s1.n||s2.n||s3.n||s4.n||s5.n||s6.n=:S
;

peter1166

〇〇 发表于 2014-10-16 18:40
改成递归就快了
with a as(select '21218453415461109221'a from dual), --75059993789508200000
b as( ...

您这个是最快的，
如果我偷用你的递归， 速度跟这个差不多。

WITH A AS (SELECT '21218453415461109221' A FROM DUAL )
     ,T0 AS (
            SELECT LEVEL L
                   ,SUBSTR(A,LEVEL,1) C
            FROM   A
            CONNECT BY LEVEL <= LENGTH(A)
            )
    ,T1 AS (
            SELECT DISTINCT TO_NUMBER(REPLACE(SYS_CONNECT_BY_PATH(C,','),',','')) N
            FROM T0
            CONNECT BY LEVEL <= 20 AND L = PRIOR L+1
           )
    ,T AS (
             SELECT distinct  N
             FROM (SELECT  N , FLOOR(N/2) SHR1 FROM T1)
             WHERE N = 0 OR N + SHR1 - 2 * BITAND(N,SHR1) IN (SELECT POWER(2,LEVEL)-1 FROM DUAL CONNECT BY LEVEL <= 20)
           )
,s(lv,n,s) as(select 1 lv,to_char(n),0+n s from t,a where a like n||'%'
union all
select 1+lv,to_char(s.n)||to_char(t.n),s+t.n from s,t,a where a like to_char(s.n)||to_char(t.n)||'%'and lv<6)
SELECT *
FROM  s,a
where lv=6 and length(n)=length(a) and ROWNUM <= 1 ;

peter1166

newkid 发表于 2014-10-16 22:01
给你发个章。
我写的是这样：

您这个精炼， 学习了， 难怪说简单。
要个劳斯莱斯， 谢谢。

newkid

peter1166 发表于 2014-10-16 22:27
您这个精炼， 学习了， 难怪说简单。
要个劳斯莱斯， 谢谢。

转了。

peter1166

newkid 发表于 2014-10-16 22:29
转了。

再次感谢！ 期待下一题。

newkid

不用笛卡尔积，直接两个递归速度更快：

WITH s(n) AS (
SELECT 1 FROM DUAL
UNION ALL
SELECT n*2 + 1 - MOD(n,2) FROM s WHERE n<TO_NUMBER(:s)
)
,r(n,cnt,r) AS (
SELECT TO_CHAR(n),1,TO_CHAR(n) FROM s WHERE :s LIKE n||'%'
UNION ALL
SELECT r.n||s.n,cnt+1,r||','||s.n FROM r,s WHERE :s LIKE r.n||s.n||'%'
)
SELECT r FROM r WHERE n=:s AND cnt=6;