深夜独霸, 轮到我出个题目了——算24点的SQL解法

fengzj

占位

beybey911

崇拜了

sheeplittle

牛

fengzj

占位

catan

学习一下。。。。

jqw_1026

1.
create table test1
(
  col1 number
)
;
2.insert into test1(col1) values(4,1,5,6);
commit;
3.
declare
  cursor get_express is
    select e.col1 || f.col1 || e.col2 || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
  union
    select '(' || e.col1 || f.col1 || e.col2 || ')' || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f   
     union
    select '(' || e.col1 || f.col1 || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f               
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f              
         
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f           

    union
    select e.col1 || f.col1 || e.col2 || f.col2 || '('|| e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
    ;  
  vsql varchar2(200);
  vexpress varchar2(200);
  vresult number := 1;
begin
  open get_express;
  fetch get_express into vexpress;
  while get_express%found loop
    Begin
        EXECUTE IMMEDIATE 'select ' || vexpress || ' from dual' into vresult;
    exception
      when others then
        dbms_output.put_line('wrong express:' || vexpress);
    end ;
    if vresult = 24 then
       dbms_output.put_line(vexpress);
       close get_express;
       return;
    end if;
    fetch get_express into vexpress;
  end loop;
  close get_express;
end;
适用于一个括号

jqw_1026

declare
  cursor get_express is
    select e.col1 || f.col1 || e.col2 || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
  union
    select '(' || e.col1 || f.col1 || e.col2 || ')' || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f   
     union
    select '(' || e.col1 || f.col1 || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f               
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f              
         
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f           

    union
    select e.col1 || f.col1 || e.col2 || f.col2 || '('|| e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
    ;  
  vsql varchar2(200);
  vexpress varchar2(200);
  vresult number := 1;
begin
  open get_express;
  fetch get_express into vexpress;
  while get_express%found loop
    Begin
        EXECUTE IMMEDIATE 'select ' || vexpress || ' from dual' into vresult;
    exception
      when others then
        dbms_output.put_line('wrong express:' || vexpress);
    end ;
    if vresult = 24 then
       dbms_output.put_line(vexpress);
       close get_express;
       return;
    end if;
    fetch get_express into vexpress;
  end loop;
  close get_express;
end;

jqw_1026

刚才的那个程序忘记的round一下了;
declare
  cursor get_express is
    select e.col1 || f.col1 || e.col2 || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
  union
    select '(' || e.col1 || f.col1 || e.col2 || ')' || f.col2 || e.col3||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f   
     union
    select '(' || e.col1 || f.col1 || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f               
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3|| ')' ||f.col3 || e.col4 express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f              
         
    union
    select e.col1 || f.col1 || '(' || e.col2 || f.col2 || e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f           

    union
    select e.col1 || f.col1 || e.col2 || f.col2 || '('|| e.col3 ||f.col3 || e.col4  || ')'express
     from (
          select *
            from (select a.col1 col1,
                         b.col1 col2,
                         c.col1 col3,
                         d.col1 col4
                    from (select col1   col1,rownum row1 from test1) a,
                         (select col1   col1,rownum row1 from test1) b,
                         (select col1   col1,rownum row1 from test1) c,
                         (select col1   col1,rownum row1 from test1) d
                   where a.row1 <> b.row1
                     and a.row1 <> c.row1
                     and a.row1 <> d.row1
                     and b.row1 <> c.row1
                     and b.row1 <> d.row1
                     and c.row1 <> d.row1
          ) )e,
          (
            select distinct
                   c1.col1 col1,
                   c2.col1 col2,
                   c3.col1 col3
              from test2 c1,
                   test2 c2,
                   test2 c3,
                   test2 c4
          ) f
    ;  
  vsql varchar2(200);
  vexpress varchar2(200);
  vresult number := 1;
begin
  open get_express;
  fetch get_express into vexpress;
  while get_express%found loop
    Begin
        EXECUTE IMMEDIATE 'select ' || vexpress || ' from dual' into vresult;
    exception
      when others then
        dbms_output.put_line('wrong express:' || vexpress);
    end ;
    if round(vresult) = 24 then
       dbms_output.put_line(vexpress);
       close get_express;
       return;
    end if;
    fetch get_express into vexpress;
  end loop;
  close get_express;
end;

hyee

create or replace type T_TBL_CHARS is table of varchar2(50);
/
CREATE OR REPLACE FUNCTION FML(A INT, B INT, C INT, D INT) RETURN T_tbl_CHARS
    PIPELINED IS
    t  T_tbl_CHARS := T_tbl_CHARS('', '', '', '', '', '', '');
    t2 T_tbl_CHARS;
    FUNCTION eval(p_expression VARCHAR2) RETURN VARCHAR2 IS
        v_Result NUMBER;
        v_Exps   VARCHAR2(50) := p_expression;
    BEGIN
        FOR i IN 120 .. 122 LOOP
            v_Exps := REPLACE(v_Exps, chr(i), t(i-115));
        END LOOP;
        BEGIN
            EXECUTE IMMEDIATE 'BEGIN :x:= Round(' || v_Exps || ',2);END;'
                USING OUT v_Result, t(1), t(2), t(3), t(4);
        EXCEPTION
            WHEN OTHERS THEN
                NULL;
        END;
        FOR i IN 1 .. 4 LOOP
            v_Exps := REPLACE(v_Exps, ':' || (i), t(i));
        END LOOP;
        RETURN v_Exps || ' = ' || v_Result || ' ';
    END;
BEGIN
    SELECT DISTINCT sys_connect_by_path(x, ',') ||
                    substr(sys_connect_by_path(r, ','), 1, 7) || '-'
    BULK COLLECT INTO   T2
    FROM   (SELECT decode(rownum, 1, a, 2, b, 3, c, d) x, rownum r1
            FROM   dual
            CONNECT BY rownum <= 4),
           (SELECT decode(ROWNUM, 1, '+', 2, '-', 3, '*', '/') r
            FROM   dual
            CONNECT BY ROWNUM <= 4)
    WHERE  LEVEL = 4
    CONNECT BY NOCYCLE PRIOR r1 != r1;

    FOR r IN 1 .. T2.COUNT LOOP
        FOR i IN 1 .. 7 LOOP
            t(i) := rtrim(regexp_substr(T2(R), '[^,]+,', 1, i), ',');
        END LOOP;
   
        PIPE ROW(eval('((:1x:2)y:3)z:4'));
        IF t(5) = '/' THEN
            IF t(6) IN ('+', '-')oR t(7) IN ('+', '-') THEN
                PIPE ROW(eval(':1x(:2y:3z:4)'));
            END IF;
            IF t(6) IN ('+', '-') THEN
                PIPE ROW(eval('(:1x(:2y:3))z:4'));
            END IF;
        END IF;
   
        IF t(6) IN ('*', '/') AND t(7) NOT IN ('*', '/')oR
           t(7) IN ('*', '/') AND t(6) NOT IN ('*', '/') THEN
            PIPE ROW(eval('(:1x:2)y(:3z:4)'));
        END IF;
    END LOOP;
    RETURN;
END;
/
SQL> SELECT * FROM TABLE(fml(1,2,3,4)) WHERE COLUMN_VALUE LIKE '%= 24 ';

COLUMN_VALUE
--------------------------------------------------
(1+3)*(4+2) = 24
((2+1)+3)*4 = 24
(2+4)*(1+3) = 24
((2*3)*1)*4 = 24
((2*4)*1)*3 = 24
((3*2)*1)*4 = 24
(4+2)*(3+1) = 24
((1+2)+3)*4 = 24
((1*3)*4)*2 = 24

...........
1)绑定变量
2)execute immediate执行PL/SQL表达式，而不是动态SQL
因为用到了正则表达式，所以仅能用于10G以上版本

[ 本帖最后由 hyee 于 2008-12-2 11:33 编辑 ]

newkid

to hyee:
SELECT decode(ROWNUM, 1, '+', 2, '-', 3, '*', '-') r
最后一个应该是 '/' 吧？这里是笔误。

你只考虑了
((a b) c) d
(a b) (c d)
这两种顺序，还有其他顺序没有覆盖到。

用绑定变量的PL/SQL比较有趣，我不知道和SELECT...FROM DUAL比较哪个更好。