puzzleup2012谜题，请用SQL或PLSQL解答

lastwinner

newkid 发表于 2012-8-7 05:31
你这还是很勉强，锯齿状也可以连续的，比如你中线不就是这样弄出来的嘛？
难在证明无法“一笔画”。

问题是到边后，还能连续么？所以锯齿状无法一直连续

newkid

我现在严重怀疑我们讲的是不是一回事？

我所谓的“阶梯状”：

1****
23***
*45**
**67*
***89

可以看到13579在中线上，2468偏向一方。导致剩下的空位无法一笔画。但是这个必须证明，并不是显而易见的。

左右均分：
1****
234**
**5**
**678
****9
可以看到2468是上下错开的。这样的可以一笔画。

你的这句话什么意思：“左右不均匀，因为对角线是锯齿状的，所以一边就无法按规则形成连续的数”

〇〇

No: 03       August 08, 2012

Five Numbers Insert 4 multiplication signs inside the number sequence "234567898765432" and obtain a multiplication of 5 numbers. What can be the maximum value of this operation? Example: 2x3x4567x8x98765432=21650962941312 But, the result is not maximum. [ You can answer this problem starting from Thursday at 11:00 (GMT) ]

〇〇

〇〇 发表于 2012-8-8 20:38

感觉分割成差不多长的大,但是也不一定
SQL> select 2*2*222,2*22*22 from dual;

   2*2*222    2*22*22
---------- ----------
       888        968

Elapsed: 00:00:00.01
SQL> select 2*2*422,2*24*22 from dual;

   2*2*422    2*24*22
---------- ----------
      1688       1056

ryax

编个VB，不好意思，菜鸟。看看哪里不通？
Sub puzzle()
Dim a(5) As Integer
Dim n As Integer
Dim k As Double
Dim m As Integer
k = 0
m = 0
n = 234567898765432#
For i = 1 To 11
For j = 1 To 12 - i
For e = 1 To 13 - i - j
For r = 1 To 14 - i - j - e
     
        a(0) = n - Int(n / (10 ^ i)) * (10 ^ i)
        n = Int(n / (10 ^ i))
        a(1) = n - Int(n / (10 ^ j)) * (10 ^ j)
        n = Int(n / (10 ^ j))
        a(2) = n - Int(n / (10 ^ e)) * (10 ^ e)
        n = Int(n / (10 ^ e))
     a(3) = n - Int(n / (10 ^ e)) * (10 ^ e)
     a(4) = Int(n / (10 ^ r))
     
     m = a(1) * a(2) * a(3) * a(4) * a(0)
     If k < m Then
     k = m
     n = 2345678987654#
     
Next r
Next e
Next j
Next i
Cells(1, 1) = k
Cells(1, 3) = m
      
   
End Sub

ryax

当然死算也能算

newkid

ryax 发表于 2012-8-8 22:03
当然死算也能算出来。

“死算”什么意思？
改成SQL或PLSQL, 我给你发章。这道题很简单的。

ryax

Sub puzzle()
Dim a(5) As Integer
Dim b(15) As Integer
Dim k As Double
Dim m As Integer
k = 0
m = 0
   a(0) = a(1) = a(2) = a(3) = a(4) = 0
     b(0) = 2
     b(1) = 3
     b(2) = 4
     b(3) = 5
     b(4) = 6
     b(5) = 7
     b(6) = 8
     b(7) = 9
     b(8) = 8
     b(9) = 7
     b(10) = 6
     b(11) = 5
     b(12) = 4
     b(13) = 3
     b(14) = 2
     
     For i = 1 To 11
     For j = 1 To 12 - i
     For e = 1 To 13 - i - j
     For k = 1 To 14 - i - j - e
   
        For i1 = 1 To i
        a(0) = a(0) * 10 + b(i1 - 1)
        Next i1
        For j1 = 1 To j
        a(1) = a(1) * 10 + b(i + j1 - 1)
        Next j1
        For e1 = 1 To e
        a(2) = a(2) * 10 + b(i1 + j + e1 - 1)
        Next e1
        For k1 = 1 To k
        a(3) = a(3) * 10 + b(i + j + e + k 1- 1)
        Next k1
        t = 15 - i - j - e - k
        For t1 = 1 To t
        a(4) = a(4) * 10 + b(t 1- 1)
        Next t1
      
     m = a(0) * a(1) * a(2) * a(3) * a(4)
     If k < m Then
     k = m
      a(0) = a(1) = a(2) = a(3) = a(4) = 0
Next k
Next e
Next j
Next i

Cells(1, 1) = k
Cells(1, 3) = m
      
   

End Sub

〇〇

原以为会很多种情况,其实很少
SQL> with n as (select 234567898765432 n from dual),
  2  t as(select level l from n connect by level<=length(n)-1)
  3  select * from(select substr(n,1,a.l)
  4  *substr(n,1+a.l,b.l-a.l)
  5  *substr(n,1+b.l,c.l-b.l)
  6  *substr(n,1+c.l,d.l-c.l)
  7  *substr(n,1+d.l)prod,
  8  substr(n,1,a.l)||
  9  '*'||substr(n,1+a.l,b.l-a.l)||
10  '*'||substr(n,1+b.l,c.l-b.l)||
11  '*'||substr(n,1+c.l,d.l-c.l)||
12  '*'||substr(n,1+d.l)expr
13  from t a,t b,t c,t d,n where a.l<b.l and b.l<c.l and c.l<d.l
14  order by 1 desc)
15  where rownum=1;
                       PROD
---------------------------
EXPR
------------------------------------------------------------------------------------------------------------------------------------
            103623394387968
23456*7*8*9*8765432

ryax

楼上是切4下，5个数的积。