PUZZLEUP 2015

newkid

“这个数字”指的是我们要求的数。

〇〇

newkid 发表于 2015-11-26 08:31
“这个数字”指的是我们要求的数。

假设这个数字是123，具体说怎么不符合要求了

newkid

任意两位之和：取1,2
1+2=3
3和“这个数”123有一位相同。
所以不符合要求。

solomon_007

18#

12C 环境:

SQL>  with function f(p_str1 varchar2,p_str2 varchar2) return int
  2        as
  3          s int :=0;
  4        begin
  5          for i in 1..length(p_str1) loop
  6            s := s+ instr(p_str2,substr(p_str1,i,1));
  7          end loop;
  8
  9          return s;
10        end;
11        t as (select level-1 n from dual connect by level<=10),
12        s(lvl,numstr,twobitsum) as (select 1 lvl,cast(n as varchar2(10)) numstr,cast(null as varchar2(30)) twobitsum
13                           from t
14                          where n > 0
15                          union all
16                         select s.lvl + 1,
17                                s.numstr||t.n,
18                                s.twobitsum||','||to_char(to_number(substr(s.numstr,-1)) + t.n)

19                           from s,t
20                          where lvl<10
21                            and instr(s.numstr,t.n) = 0
22                            and f(s.numstr||t.n,s.twobitsum||','||to_char(to_number(substr(s.numstr,-1)) + t.n))=0
23                            )
24   select max(numstr) from s;
25  /

MAX(NUMSTR)
--------------------------------------------------------------------------------
98652

lugionline

solomon_007 发表于 2015-11-26 11:51
18#

12C 环境:

还能更大，比方 983465

〇〇

lugionline 发表于 2015-11-26 12:37
还能更大，比方 983465

17 11

solomon_007

lugionline 发表于 2015-11-26 12:37
还能更大，比方 983465

要 to_number 一下:


SQL>  with function f(p_str1 varchar2,p_str2 varchar2) return int
  2        as
  3          s int :=0;
  4        begin
  5          for i in 1..length(p_str1) loop
  6            s := s+ instr(p_str2,substr(p_str1,i,1));
  7          end loop;
  8
  9          return s;
10        end;
11        t as (select level-1 n from dual connect by level<=10),
12        s(lvl,numstr,twobitsum) as (select 1 lvl,cast(n as varchar2(10)) numstr,cast(null as varchar2(30)) twobitsum
13                           from t
14                          where n > 0
15                          union all
16                         select s.lvl + 1,
17                                s.numstr||t.n,
18                                s.twobitsum||','||to_char(to_number(substr(s.numstr,-1)) + t.n)

19                           from s,t
20                          where lvl<10
21                            and instr(s.numstr,t.n) = 0
22                            and f(s.numstr||t.n,s.twobitsum||','||to_char(to_number(substr(s.numstr,-1)) + t.n))=0
23                            )
24   select max(to_number(numstr)) from s   ;
25  /

MAX(TO_NUMBER(NUMSTR))
----------------------
              92837465

lugionline

17 11 怎么啦，和983465没有相同数字么

〇〇

lugionline 发表于 2015-11-26 13:12
17 11 怎么啦，和983465没有相同数字么

我是说相邻数字和

lugionline

solomon_007 发表于 2015-11-26 13:11
要 to_number 一下:

这下对了

In[1]:= SameDigitsQ[v_] := Count[Length[Intersection[v, IntegerDigits[#]]] > 0 & /@ (v[[;; -2]] + v[[2 ;;]]), True] == 0;
FromDigits@Last@Sort@Select[Permutations[Range[0, 9], {2, 8}], SameDigitsQ]

Out[2]= 92837465

改题了，稍作修改搞定

In[1]:= SameDigitsQ[v_] := Count[Length[Intersection[v, IntegerDigits[#]]] > 0 & /@ (v[[;; -3]] + v[[2 ;; -2]] + v[[3 ;;]]), True] == 0;
FromDigits@Last@Sort@Select[Permutations[Range[0, 9], {3, 8}], SameDigitsQ]

Out[2]= 9574083