PPCG 사용자 및 선출 모드는 @Dennis는 단지 100,000 담당자를 통해 적립 두 번째 이제까지 사용자가되었습니다!

이것은 내가 다른 사람에게서 얻지 못한 완전히 독창적 인 아이디어 이지만 그의 사용자 ID를 바탕 12012으로 공물로 도전합시다 !

그것을 보면, 그의 ID에는 두 개의 별개의 “섹션”이 있음을 알 수 있습니다.

12

과

012

이 두 섹션은 모두 3을 더합니다. 그것은 꽤 흥미로운 속성입니다.

“Dennis 2.0 숫자”를 양의 정수로 정의하여 엄격하게 증가하는 숫자의 최대 하위 시퀀스가 ​​모두 같은 숫자가되도록합니다. 예를 들어

123

엄격하게 증가하는 자릿수의 최대 하위 목록이 하나뿐이기 때문에 Dennis 2.0 숫자이며 6의 합계입니다. 또한 2,846,145는 증가하는 자릿수의 세 개의 최대 하위 목록, 즉

28
46
145

모든 합은 10입니다. 또한 동일한 숫자를 반복하는 숫자 는 예를 들어 다음과 777같이 나눌 수 있으므로 Dennis 2.0 숫자 여야합니다.

7
7
7

이는 분명 일곱 모든 합계입니다.

같은 숫자 는 Dennis 2.0 숫자 42가 아닙니다 .

4
2

분명히 같은 숫자와 합치 지 않습니다.

도전

주어진 숫자가 Dennis 2.0 숫자인지 여부를 판별하기 위해 프로그램 또는 함수를 작성해야합니다. 문자열, 숫자, 파일, 함수 인수 / 반환, STDIN / STDOUT 등의 합리적인 입력 형식으로 입력하고 출력 한 다음 이 숫자가 Dennis 2.0 인 경우 정확한 값 을 반환 할 수 있습니다. 그렇지 않으면 거짓 값입니다. 참고로, 모든 Dennis 2.0 번호는 최대 1,000입니다.

1
2
3
4
5
6
7
8
9
11
12
13
14
15
16
17
18
19
22
23
24
25
26
27
28
29
33
34
35
36
37
38
39
44
45
46
47
48
49
55
56
57
58
59
66
67
68
69
77
78
79
88
89
99
101
111
123
124
125
126
127
128
129
134
135
136
137
138
139
145
146
147
148
149
156
157
158
159
167
168
169
178
179
189
202
222
234
235
236
237
238
239
245
246
247
248
249
256
257
258
259
267
268
269
278
279
289
303
312
333
345
346
347
348
349
356
357
358
359
367
368
369
378
379
389
404
413
444
456
457
458
459
467
468
469
478
479
489
505
514
523
555
567
568
569
578
579
589
606
615
624
666
678
679
689
707
716
725
734
777
789
808
817
826
835
888
909
918
927
936
945
999

표준 허점이 적용되며 바이트 단위로 측정 된 최단 응답이 승리합니다!

답변

DIṠ’0;œṗDS€E

DIṠ’0;œṗDS€E    Main link. Argument: N
D               Convert N to its digits.
 I              Find the differences between the elements.
  Ṡ             Find the sign of each difference. This yields 1 for locations where the
                list is strictly increasing and 0 or -1 elsewhere.
   ’            Decrement. This yields 0 for locations where the list is strictly
                increasing and -1 or -2 elsewhere.
    0;          Prepend a 0.
        D       Get another list of digits.
      œṗ        Split the list of digits at truthy positions, i.e. the -1s and -2s.
         S€     Sum each sublist.
           E    Check if all values are equal.

"(a=2+8)&&(a==4+6)&&(a==1+4+5)"

let f =

n=>eval(n.replace(/./g,(v,i)=>(v>n[i-1]?'+':i?')&&(a==':'(a=')+v)+')')

console.log(f("101"));
console.log(f("102"));
console.log(f("777"));
console.log(f("2846145"));

r='0'
for d in input():r=d+'=+'[r<d]*2+r
1/eval(r)

~c@e:{<+}a!#=

~c               Find a list of integers which when concatenated result in the Input
  @e             Split the integers into lists of digits
    :{<+}a       Each list of digit is stricly increasing, and compute its sum
          !      Discard all other choice points (prevents backtracking for smaller sublists)
           #=    All sums must be equal

mb$1m>0R+fMbms}lt!

mb                 -         map(int, input)
  $                -        delta(^)
   1m>             -       map(^, 1>i)
      0R+          -      [0]+^
         f         -     input.split_at(^)
          Mb       -    deep_map(int, ^)
            ms     -   map(sum, ^)
              }    -  uniquify(^)
               lt! - len(^) == 1

-join([char[]]$args[0]|%{("+$_","-eq$_")[$_-le$i];$i=$_})|iex

PS C:\Tools\Scripts\golfing> 2846145,681,777,12366,2|%{"$_ -> "+(.\dennis-number-20.ps1 "$_")}
2846145 -> True
681 -> False
777 -> True
12366 -> False
2 -> 2

s/./&,/g;s/^/,/g;:;s,0,,;s,2,11,;s,3,21,;s,4,31,;s,5,41,;s,6,51,
s,7,61,;s,8,71,;s,9,81,;t;s/(,1*)(1*)\1,/\1\2X\1,/;t;s/,//g
s,1X1(1*),X\1a,;t;/^1.*X/c0
/Xa*$/s,a*$,,;y,a,1,;/1X1/b;/1X|X1/c0
c1

s/^|$/,/g;:;s/(,1*)(1*)\1,/\1\2X\1,/;t;s/,//g
s,1X1(1*),X\1a,;t;/^1.*X/c0
/Xa*$/s,a*$,,;y,a,1,;/1X1/b;/1X|X1/c0
c1