我也玩个游戏，我申请加精，求批准

newkid

帮楼主改改：

WITH TMP00 AS(SELECT -1 SEED FROM DUAL UNION SELECT -2 FROM DUAL UNION SELECT 1 FROM DUAL UNION SELECT 2 FROM DUAL),
TMP02 AS(
SELECT STATUS,SUBSTR(STATUS,LEVEL,1) SON,LEVEL ID,4 INS
   FROM (SELECT 'FFF_GGG' STATUS FROM DUAL)
   CONNECT BY LEVEL<=LENGTH(STATUS)
),
TMP03(SON,ID,LEV,INS,STATUS,PATH) AS(
SELECT T2.SON,T2.ID,1 LEV,INS,STATUS,CAST(STATUS AS VARCHAR2(4000)) PATH  FROM TMP02 T2
UNION ALL
SELECT X.COLUMN_VALUE,
T3.ID,T3.LEV+1,T3.INS+T0.SEED,
   listagg(X.COLUMN_VALUE) WITHIN GROUP(ORDER BY T3.ID)  over(partition by T3.LEV+1,T3.INS+T0.SEED,T0.SEED,t3.path),
    T3.PATH||'-->'||listagg(X.COLUMN_VALUE) WITHIN GROUP(ORDER BY T3.ID)  over(partition by T3.LEV+1,T3.INS+T0.SEED,T0.SEED,t3.path)
  FROM TMP03 T3, TMP00 T0
      ,TABLE(CAST(MULTISET(SELECT CASE WHEN T3.SON<>'_' AND T3.ID=T3.INS+T0.SEED THEN '_'
                                       WHEN T3.SON='_' AND T0.SEED>0 AND T3.INS+T0.SEED<=7 AND SUBSTR(T3.STATUS,T3.INS+T0.SEED,1)='G' THEN 'G'
                                       WHEN T3.SON='_' AND T0.SEED<0 AND T3.INS+T0.SEED>=1 AND SUBSTR(T3.STATUS,INS+T0.SEED,1)='F' THEN 'F'
                                       ELSE T3.SON
                                  END FROM DUAL) AS SYS.ODCIVARCHAR2LIST)) X
  WHERE T3.INS+T0.SEED>=1 AND T3.INS+T0.SEED<=7 AND ((T0.SEED>0 AND SUBSTR(T3.STATUS,T3.INS+T0.SEED,1)='G')
         or (T0.SEED<0 AND SUBSTR(T3.STATUS,INS+T0.SEED,1)='F'))
)
SELECT DISTINCT LEV-1 steps,path  FROM TMP03 where status='GGG_FFF';

他这个解法规定了青蛙只能朝一个方向跳，似乎还有些道理。

udfrog

Naldonado 发表于 2016-4-11 09:38
对啊，很多可以简化，我这是1.0，昨天写出来就不想搞了。

再说我不卖个破腚给你，你能过来瞅一眼？&#128 ...

，也许你以为写了个完美的，在我眼里也都是破腚呢？

〇〇

newkid 发表于 2016-4-11 11:00
帮楼主改改：

WITH TMP00 AS(SELECT -1 SEED FROM DUAL UNION SELECT -2 FROM DUAL UNION SELECT 1 FROM ...

,TABLE(CAST(MULTISET AS SYS.ODCIVARCHAR2LIST
好高级

Naldonado

newkid 发表于 2016-4-11 11:00
帮楼主改改：

WITH TMP00 AS(SELECT -1 SEED FROM DUAL UNION SELECT -2 FROM DUAL UNION SELECT 1 FROM ...

我就是想这么改，但是

TABLE(CAST(MULTISET(SELECT CASE WHEN T3.SON<>'_' AND T3.ID=T3.INS+T0.SEED THEN '_'
                                       WHEN T3.SON='_' AND T0.SEED>0 AND T3.INS+T0.SEED<=7 AND SUBSTR(T3.STATUS,T3.INS+T0.SEED,1)='G' THEN 'G'
                                       WHEN T3.SON='_' AND T0.SEED<0 AND T3.INS+T0.SEED>=1 AND SUBSTR(T3.STATUS,INS+T0.SEED,1)='F' THEN 'F'
                                       ELSE T3.SON
                                  END FROM DUAL) AS SYS.ODCIVARCHAR2LIST)) X
这个有点高级。。

Naldonado

udfrog 发表于 2016-4-11 11:01
，也许你以为写了个完美的，在我眼里也都是破腚呢？

反正我爽到了啊，6只牛蛙让我玩来玩去。

Naldonado

newkid 发表于 2016-4-11 11:00
帮楼主改改：

WITH TMP00 AS(SELECT -1 SEED FROM DUAL UNION SELECT -2 FROM DUAL UNION SELECT 1 FROM ...

请教下，那这个时候table()正好可以把我那串玩意，复用了？感觉有临时结果集的感觉。

oracle_cj

Naldonado 发表于 2016-4-11 11:25
反正我爽到了啊，6只牛蛙让我玩来玩去。

已高潮了？

udfrog

Naldonado 发表于 2016-4-11 11:25
反正我爽到了啊，6只牛蛙让我玩来玩去。

。。

newkid

规定只能往前跳之后，用我的CONNECT BY也可以不限制层数了：


WITH f(frogs) AS (
SELECT frogs FROM (SELECT '0' frogs FROM DUAL UNION ALL SELECT '1' FROM DUAL UNION ALL SELECT '2' FROM DUAL)
UNION ALL
SELECT f.frogs||c.frogs
  FROM f,(SELECT '0' frogs FROM DUAL UNION ALL SELECT '1' FROM DUAL UNION ALL SELECT '2' FROM DUAL) c
WHERE LENGTH(f.frogs)<7
       AND (c.frogs='0' AND INSTR(f.frogs,'0')=0
            OR c.frogs<>'0' AND REGEXP_COUNT(f.frogs,c.frogs)<3
           )
)
,f2 AS (
SELECT frogs FROM f WHERE length(frogs)=7
)
,t AS (
SELECT f2.frogs,f3.frogs frogs2
  FROM f2,f2 f3
WHERE  INSTR(f3.frogs,'0')<>INSTR(f2.frogs,'0')
       AND ( TRIM('0' FROM TO_CHAR(f2.frogs-f3.frogs)) IN ('9','99')
             OR TRIM('0' FROM TO_CHAR(f3.frogs-f2.frogs)) IN ('18','198')
           )
UNION ALL
SELECT NULL,'1110222' FROM DUAL
)
SELECT SYS_CONNECT_BY_PATH(frogs2,',')
  FROM t
WHERE frogs2='2220111'
START WITH frogs IS NULL
CONNECT BY NOCYCLE PRIOR frogs2=frogs AND frogs<>'2220111';

newkid

Naldonado 发表于 2016-4-11 11:35
请教下，那这个时候table()正好可以把我那串玩意，复用了？感觉有临时结果集的感觉。

TABLE()本来是把嵌套表里面的列拿出来引用，但是我们这里本来就没有嵌套表，只是把一个复杂表达式硬生生转成了嵌套表，这样就可以用列的别名来引用这个复杂表达式。这算是比较另类的一个技巧。