连TOM也答不上来的SQL问题，你来试试看！

lastwinner

多字符也没问题，但需要用replace去做
数据还需要做点特殊处理，并且要用上connect by
麻烦点了，就不折腾了，意思到就是了，呵呵

newkid

原帖由 lastwinner 于 2010-4-23 02:13 发表
多字符也没问题，但需要用replace去做
数据还需要做点特殊处理，并且要用上connect by
麻烦点了，就不折腾了，意思到就是了，呵呵

REPLACE跟顺序有关，就不能像TRANSLATE那么方便了，你做一下就知道有多麻烦。
还是11GR2好！

guostong

原帖由 newkid 于 2010-4-9 22:55 发表
哇！真是八仙过海各显神通，我隆重宣布开发版进入鼎盛时期！

以下是我的几种方法，等会再和各位的对照一下：

VAR s VARCHAR2(200);
EXEC :s := 'A,B,C,D,E,F';

用BITAND的思路：
WITH t AS (
SELECT REGEXP_SUBSTR(:s,'[^,]+',1,ROWNUM) s,COUNT(*) OVER() cnt, ROWNUM rn
  FROM DUAL
CONNECT BY ROWNUM

强烈要求 newkid 同学不要一次性贴出太多种解法。
原因如下：
1。一下子学习不了这么多
2。让我觉得很惭愧

开个玩笑。

newkid

原帖由 guostong 于 2010-4-23 03:01 发表


强烈要求 newkid 同学不要一次性贴出太多种解法。
原因如下：
1。一下子学习不了这么多
2。让我觉得很惭愧

开个玩笑。

我比你还惭愧，其实我那些方法前面都有人想到了而且更好。

newkid

学习kingtsi的思路，只求不超过一半的子集然后对调再合并,用于11GR2:

WITH t AS (
SELECT REGEXP_SUBSTR(:s,'[^,]+',1,ROWNUM) s, COUNT(*) OVER() cnt
  FROM DUAL
CONNECT BY ROWNUM<=LENGTH(:s)-LENGTH(REPLACE(:s,','))+1
)
, T2(s,s1,s2,lvl,cnt) AS (
  SELECT s,s s1, REPLACE(','||:s||',',','||s||',',',') as s2, 1 as lvl,cnt
    FROM t
  UNION ALL
  SELECT t.s,t2.s1||','||t.s,REPLACE(','||t2.s2||',',','||t.s||',',',') as s2, t2.lvl+1,t.cnt
    FROM t, T2
   WHERE t2.s<t.s
         AND t2.lvl<TRUNC(t.cnt/2)
)
SELECT s1,TRIM(BOTH ',' FROM s2) FROM t2
UNION ALL
SELECT TRIM(BOTH ',' FROM s2),s1 FROM t2
WHERE lvl<cnt/2
;

这样递归次数少了很多。

〇〇

这个问题用PLSQL怎么解？

newkid

原帖由 〇〇 于 2010-4-23 07:26 发表
这个问题用PLSQL怎么解？

如果还允许用SQL，就把我#40的写法改成反复JOIN（用临时表或嵌套表加TABLE函数), 如果不用SQL就是一堆循环。你想看哪个？等我明天有空来写一下。

lastwinner

原帖由 newkid 于 10-4-23 02:56 发表

REPLACE跟顺序有关，就不能像TRANSLATE那么方便了，你做一下就知道有多麻烦。
还是11GR2好！

你没理解我的意思

,1,2,12,121,33,13,32,3,


看了上面这个字符串，你能明白我说的了么？
只要元素不重复，就没关系
上班了，晚上有空再看

newkid

原帖由 lastwinner 于 2010-4-23 09:26 发表


你没理解我的意思

,1,2,12,121,33,13,32,3,


看了上面这个字符串，你能明白我说的了么？
只要元素不重复，就没关系
上班了，晚上有空再看

从你这个串里面去掉2和33怎么做？那不是要两次REPLACE? TRANSLATE只要一次。
可能我一下子理解不了，等你明示。

newkid

写了个纯PLSQL的版本：

DECLARE
   s VARCHAR2(200) := 'F,B,D,C,E,A';
   TYPE t_str IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
   ss t_str;
   s1 t_str;
   s2 t_str;
   cnt NUMBER := 0;
   org_s VARCHAR2(200) := s;
   cnt2 NUMBER := 0;
   low NUMBER := 0;
   high NUMBER := 0;
   
   TYPE t_num IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
   id t_num;
   lvl t_num;
   lv_level NUMBER :=1;
BEGIN
   WHILE s IS NOT NULL LOOP
       cnt := cnt+1;
       IF INSTR(s,',')>0 THEN
          ss(cnt) := SUBSTR(s,1,INSTR(s,',')-1);
          s := SUBSTR(s,INSTR(s,',')+1);
       ELSE
          ss(cnt) := s;
          s := '';
       END IF;
       s1(cnt):=ss(cnt);
       id(cnt):=cnt;
       lvl(cnt):=lv_level;
       s2(cnt):=TRIM(BOTH ',' FROM REPLACE(','||org_s||',',','||s1(cnt)||',',','));
   END LOOP;
   cnt2 := cnt;
   low := 1;

   WHILE lv_level<TRUNC(cnt/2) LOOP
      high := cnt2;
      lv_level := lv_level+1;
      FOR i IN low..high LOOP
          FOR j IN id(low)+1..cnt LOOP
              IF id(i)<j THEN
                 cnt2 := cnt2+1;
                 id(cnt2) := j;
                 lvl(cnt2) := lv_level;
                 s1(cnt2):=s1(i)||','||ss(j);
                 s2(cnt2):=TRIM(BOTH ',' FROM REPLACE(','||s2(i)||',',','||ss(j)||',',','));
              END IF;
          END LOOP;
      END LOOP;
      low := high+1;
   END LOOP;

   FOR i IN 1..cnt2 LOOP
       DBMS_OUTPUT.PUT_LINE(s1(i)||'  '||s2(i));
       IF lvl(i)<cnt/2 THEN
          DBMS_OUTPUT.PUT_LINE(s2(i)||'  '||s1(i));
       END IF;
   END LOOP;
END;
/