实现计算24点的一条sql

with  test as (select rownum id, regexp_substr('1,2,3,4', '[^,]+',1,rownum) n from dual connect by rownum < 5)
select  case when     end_out1=24  then '('||'('||n1||f1||n2||')'||f2||n3||')'||f3||n4||'='||'24'
             when     end_out2=24  then '('||n1||f1||n2||')'||f3||'('||n3||f2||n4||')'||'='||'24'
             when     end_out3=24  then n1||f3||'('||'('||n2||f1||n3||')'||f2||n4||')'||'='||'24'
             when    round(end_out4)=24  then n1||f3||'('||n2||f2||'('||n3||f1||n4||')'||')'||'='||'24'
             end  
                     
from
     ( select x2.*,d.n n4,f3,
             decode(f3, '+', c123 + d.n, '-', c123 - d.n, '*', c123 * d.n, '/', c123 / d.n) end_out1,
             decode(f3, '+', c12 + decode(f2, '*', n3 * d.n, '/', n3 / d.n),
                        '-', c12 - decode(f2, '*', n3 * d.n, '/', n3 / d.n),
                        '*', c12 * decode(f2, '+', n3 + d.n, '-', n3 - d.n),
                        '/', c12 / decode(f2, '+', n3 + d.n, '-', decode(n3,d.n,null,n3-d.n), '/', n3 / d.n) )             end_out2,
             decode(f3, '-', n1 - decode(f2, '+', c23 + d.n, '-', c23 - d.n, '*', c23 * d.n, '/', c23 / d.n),
                        '/', n1 / decode(f2, '+', decode(c23,-1*d.n,null,c23+d.n),
                                             '-', decode(c23,d.n,null,c23-d.n),
                                             '*', decode(c23,0,null,c23 * d.n),
                                             '/', decode(c23,0,null,c23 / d.n) ))                                             end_out3,
             decode(f3, '/', n1 / decode(f2, '/', n2 / decode(f1,'+',n3 + d.n,'-',decode(n3,d.n,null,n3- d.n),'*', n3 * d.n,'/', n3 / d.n),
                                             '-', decode(n2,decode(f1,'+',n3 + d.n,'-', decode(n3,d.n,null,n3- d.n),'*', n3 * d.n,'/', n3 / d.n) ,
                                                            null,n2-decode(f1,'+',n3 + d.n,
                                                                              '-',decode(n3,d.n,null,n3- d.n),
                                                                              '*', n3 * d.n,
                                                                              '/', n3 / d.n) ),
                        '-', n1 - decode(f2, '/', n2 / decode(f1,'+',n3 + d.n, '-', decode(n3,d.n,null,n3- d.n), '*', n3 * d.n, '/', n3 / d.n),
                                             '-', n2 - decode(f1,'+',n3 + d.n, '-', decode(n3,d.n,null,n3- d.n), '*', n3 * d.n, '/', n3 / d.n)) )) end_out4
                        
                                          
      from (select id1,id2,c.id id3,
                   x1.n1,x1.n2,c.n n3,
                   f1,f2,x1.c12,
                   decode(f2, '+', c12+ c.n, '-', c12 - c.n, '*', c12 * c.n, '/', c12 / c.n) c123,
                   decode(f1, '+', n2+ c.n,'-', n2- c.n, '*', n2* c.n, '/', n2 / c.n) c23
            from (select a.id id1,b.id id2,
                         a.n  n1, b.n n2,
                         f1,
                         decode(f1, '+', a.n + b.n, '-', a.n - b.n, '*', a.n * b.n, '/', a.n / b.n) c12
                    from test a,
                         test b,
                         (select substr('+-*/', rownum, 1) f1  from dual connect by rownum < 5) x
                   where a.id <> b.id)            x1,
                 test c,
                 (select substr('+-*/', rownum, 1) f2 from dual connect by rownum < 5) x
            where x1.id1 <> c.id
             and x1.id2 <> c.id)x2,
            test d,
            (select substr('+-*/', rownum, 1) f3 from dual connect by rownum < 5) x
       where id1<>d.id and   id2<>d.id  and   id3<>d.id ) x3
where end_out1=24
    or end_out2=24
    or end_out3=24
    or round(end_out4)=24

1.先取 前2个数字n1,n2 分别计算加减乘除 得到c12，
2.再 取第三个数字 n3，c12和n3分别计算 加减乘除 得到 c23，n2和n3加减乘除得到 c23
3.取第四个数字n4,  
   1.c2和n4做加减乘除 得到最后结果
  2.n3与n4的加减乘除再与c12做加减乘除  得到最后结果
  3.c23与n4的加减乘除再与n1做加减乘除  得到最后结果
  4.n3与n4 做除减运算，再与n2,与n1做除减计算

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9066649/viewspace-462908/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9066649/viewspace-462908/