PUZZLEUP 2015

solomon_007

lugionline 发表于 2015-11-26 13:28
这下对了

In[1]:= SameDigitsQ[v_] := Count[Length]] > 0 & /@ (v[[;; -2]] + v[[2 ;;]]), True] ==  ...

又可以捡一枚章.

你的M 代码完全看不懂, 简洁深奥费脑

newkid

这老头忒不地道，又改题目了。加菲猫把新题再做一遍，不许用12C的WITH PLSQL函数，才能得到章。

ADJACENT DIGITS

What is the maximum number having the following properties?

-All of its digits are different.

-When you add any three adjacent digits of this number, the digits of the result will not be found in the number.


具备下列属性的最大的数是什么？

- 每位数字个各不相同。

- 当你把这个数字的任意三位相邻的数字相加，其结果的每一位数字都不会出现在这个数字中。

solomon_007

newkid 发表于 2015-11-26 23:34
这老头忒不地道，又改题目了。加菲猫把新题再做一遍，不许用12C的WITH PLSQL函数，才能得到章。

ADJACEN ...

先找出数字:

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            return s;
  9         end;
10       t as (select level-1 n from dual connect by level<=10),
11       s(lvl,numstr,threebitsum) as (select 3 lvl,
12                                            cast(a.n||b.n||c.n as varchar2(10)) numstr,
13                                            cast(a.n+b.n+c.n   as varchar2(30)) threebitsum
14                                       from t a,t b,t c
15                                      where a.n > 0
16                                        and a.n <> b.n
17                                        and a.n <> c.n
18                                        and b.n <> c.n
19                                      union all
20                                     select s.lvl + 1,
21                                            s.numstr||t.n,
22                                            s.threebitsum||','||to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n)
23                                       from s,t
24                                      where lvl<10
25                                        and instr(s.numstr,t.n) = 0
26                                        and f(s.numstr||t.n,s.threebitsum||','||to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n))
0
27                                      )
28    select max(to_number(numstr)) from s;
29  /

MAX(TO_NUMBER(NUMSTR))
----------------------
               9574083

SQL>

solomon_007

上面 26行后面copy的时候掉了个 "=" 等号

〇〇

我们的sql比赛争取不改题目

solomon_007

newkid 发表于 2015-11-26 23:34
这老头忒不地道，又改题目了。加菲猫把新题再做一遍，不许用12C的WITH PLSQL函数，才能得到章。

ADJACEN ...

终于改了,不用12C的PLSQL了:

SQL>  with
  2       t as (select level-1 n from dual connect by level<=10),
  3       s(lvl,numstr,threebitsum) as (select 3 lvl,
  4                                            cast(a.n||b.n||c.n as varchar2(10)) numstr,
  5                                            cast(a.n+b.n+c.n   as varchar2(30)) threebitsum
  6                                       from t a,t b,t c
  7                                      where a.n > 0
  8                                        and a.n <> b.n
  9                                        and a.n <> c.n
10                                        and b.n <> c.n
11                                        and instr(to_char(a.n+b.n+c.n),a.n) =0
12                                        and instr(to_char(a.n+b.n+c.n),b.n) =0
13                                        and instr(to_char(a.n+b.n+c.n),c.n) =0
14                                      union all
15                                     select s.lvl + 1,
16                                            s.numstr||t.n,
17                                            s.threebitsum||','||to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n)
18                                       from s,t
19                                      where lvl<10
20                                        and instr(s.numstr,t.n) = 0
21                                        and instr(s.threebitsum||','||to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n),t.n) = 0
22                                        and instr(s.numstr, substr(to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n),1,1))=0
23                                        and instr(s.numstr, substr(to_char(to_number(substr(s.numstr,length(s.numstr)-1,1))+to_number(substr(s.numstr,-1)) + t.n),-1,1))=0
24                                      )
25    select max(to_number(numstr)) from s;

MAX(TO_NUMBER(NUMSTR))
----------------------
               9574083

〇〇

solomon_007 发表于 2015-11-28 13:52
终于改了,不用12C的PLSQL了:

SQL>  with

to_number(n)可以改为n+0

solomon_007

嗯,很多隐式转换的地方都不用写也可以的,那样就显得简洁一些

newkid

solomon_007 发表于 2015-11-28 22:59
嗯,很多隐式转换的地方都不用写也可以的,那样就显得简洁一些

转了个白羊座。奇怪，很多徽章都不能转让。
我写的SQL:
WITH d AS (SELECT LEVEL-1 d FROM DUAL CONNECT BY LEVEL<=10)
,t(n,used) AS (
SELECT d,CAST(' ' AS VARCHAR2(40)) FROM d
UNION ALL
SELECT TO_NUMBER(t.n||d)
      ,t.used||CASE WHEN LENGTH(t.n)>=2 THEN TO_CHAR(d+SUBSTR(t.n,-1)+SUBSTR(t.n,-2,1)) END
  FROM t,d
WHERE INSTR(t.used,d)=0
       AND INSTR(t.n,d)=0
       AND (LENGTH(t.n)>=2
            AND INSTR(t.n||d,SUBSTR(d+SUBSTR(t.n,-1)+SUBSTR(t.n,-2,1),1,1))=0
            AND INSTR(t.n||d,SUBSTR(d+SUBSTR(t.n,-1)+SUBSTR(t.n,-2,1),-1,1))=0
            OR LENGTH(t.n)<2
           )
)
SELECT MAX(TO_NUMBER(n)) FROM t;

solomon_007

newkid 发表于 2015-11-29 10:44
转了个白羊座。奇怪，很多徽章都不能转让。
我写的SQL:
WITH d AS (SELECT LEVEL-1 d FROM DUAL CONNEC ...

章章, 多谢!

思路上大致差不多,但你更简洁一些!