Найти самый длинный ряд последовательных цифр


15

Простая задача: при наличии ряда положительных целых чисел найти число, которое содержит среди своих цифр самый длинный ряд последовательных цифр. Хитрость? Разрешено, чтобы цифры в прогонах обтекали возможные значения ( 0123456789) и работали задом наперед. Так как 2345, 89012и 5432109являются действительными пробегами последовательных цифр (но не 3456765ни 321090123как бег должен быть всегда в том же направлении, хотя 3456765можно рассматривать как два прохода: 34567а 765). В случае галстуков верните первый.

Тестовые случаи:

Input:  [3274569283, 387652323, 23987654323648, 2345687913624]
Output: 23987654323648 
        (The run is 98765432; run length: 8)

Input:  [123012363672023, 098761766325432, 15890123456765]
Output: 15890123456765
        (The run is 8901234567; run length: 10)

Input:  [43, 19, 456]
Output: 456

Input:  [5, 9, 0]
Output: 5

Input:  [71232107, 7012347]
Output: 7012347

Input:  [1234, 32109876]
Output: 32109876

Input:  [9090, 123]
Output: 123

Примечания:

  • На входе будет хотя бы одно число.
  • Входные числа могут содержать начальные нули.
  • Ввод и вывод могут быть в любом разумном формате . Таким образом, входные числа могут быть приняты в виде строк, списков цифр / символов ...
  • Вывод может содержать конечные и / или начальные пробелы и переводы строк, пока число печатается.
  • Это , поэтому может выиграть самая короткая программа / функция для каждого языка!


Просто чтобы быть уверенным, сам список не может быть завершен, верно? (Я неправильно понял перенос цифр как перенос списка), поэтому [7,8,1,6]максимальный пробег [7,8]скорее равен [6,7,8], чем , да?
Джонатан Аллан

1
@JonathanAllan да, максимальный пробег 78в этом случае.
Чарли,

Ответы:


4

Желе , 18 байт

I9,-;N¤yŒgỊS€ṀµÐṀḢ

Попробуйте онлайн!

Принимает и возвращает в виде списка цифр, чтобы сохранить начальные нули.


Проблема, аналогичная моей, - попробуйте это по размеру (я считаю, что это возвращает неправильный результат - я предложил это в качестве контрольного примера, просто чтобы быть уверенным).
Джонатан Аллан

@JonathanAllan Я думаю, что это правильный выход? (есть 3210в первом номере, кстати)
Эрик Outgolfer

Ах, ой, это , извините!
Джонатан Аллан

@JonathanAllan О, я понимаю, что вы имеете в виду ... это, вероятно, из-за Aтам.
Эрик Outgolfer

@JonathanAllan Исправлено.
Эрик Outgolfer

3

JavaScript (ES6), 104 102 98 байт

Вводит в виде списка списков цифр. Возвращает лучший.

a=>a.map(s=>s.map(n=>(i=(d=(x-(x=n)+11)%10)&&d-2?0:d-p?(p=d,1):i+1)>j&&(r=s,j=i),p=x=-10),j=-1)&&r

Контрольные примеры


3

Желе ,  18 16  15 байт

I%⁵Œg%8ċ€1ṀµÐṀḢ

Монадическая ссылка, содержащая список списков цифр и возвращающая крайнюю левую ссылку, содержащую максимальный пробег, как описано.

Попробуйте онлайн! или посмотрите набор тестов (с обработкой, чтобы сделать ввод-вывод похожим на вопрос).

Как?

I%⁵Œg%8ċ€1ṀµÐṀḢ - Link: list of lists of integers (digits) from [0-9]
           µÐṀ  - keep elements for which the link to the left is maximal:
I               -   incremental differences (i.e. [a2-a1, a3-a2, ...])
  ⁵             -   literal 10
 %              -   modulo by (i.e. [(a2-a1)%10, (a3-a2)%10, ...])
                -     this equates deltas of -9 and -1 with 1 and 9 respectively
   Œg           -   group runs of equal elements
     %8         -   modulo by 8; vectorised (9s become 1s, others unaffected)
       ċ€1      -   count number of 1s in €ach group
          Ṁ     -   maximum
              Ḣ - head (get the first one of those that were maximal)

V€не уверен насчет этого, возможно, вам придется считать ведущие нули.
Эрик Outgolfer

Это учитывает начальные нули входных данных в строчку, однако я вижу, что мы можем взять списки списков цифр ...
Джонатан Аллан

Я думаю, что вы должны поддерживать ведущие нули.
Эрик Outgolfer

Я поддерживаю ведущие нули
Джонатан Аллан

1
Я прочитал это как «Это не считается ...»
Эрик Outgolfer

2

Python 2 , 118 байт

Принимает список списков цифр a; возвращает один из своих списков.

lambda a:max(a,key=lambda l:len(max(re.findall('1+|9*',`[(x-y)%10for x,y in zip(l,l[1:])]`[1::3]),key=len)))
import re

Попробуйте онлайн!


Сбой при вводе [[9,0,9,0],[1,2,3]].
Згарб

@ Zgarb Ой, ты прав. Вернуться к старой версии я иду.
Линн

1

Шелуха , 20 байт

←Ö¤<(→Of€1†%8gẊo%10-

Принимает и возвращает список списков цифр. Попробуйте онлайн!

объяснение

←Ö¤<(→Of€1†%8gẊo%10-  Implicit input.
←                     Return first element of
 Ö                    the input sorted in a stable manner
   <                  in descending order
  ¤ (                 with respect to the following function:
                       Argument is list of digits, say [5,2,1,0,9,1,0].
                   -   Differences
               o%10    mod 10
              Ẋ        of all adjacent pairs: [7,9,9,9,2,1]
             g         Group adjacent equal elements: [[7],[9,9,9],[2],[1]]
          †%8          Vectorized mod 8: [[7],[1,1,1],[2],[1]]
       f€1             Keep those runs where 1 occurs: [[1,1,1],[1]]
      O                Sort in ascending order: [[1],[1,1,1]]
     →                 Take last element (gives [] on empty list): [1,1,1]
                       This is a list of 1s with length one less than
                       the longest run of consecutive digits.

1

MATLAB, 130 байт

Возьмите входные данные в массив, массив разностей столбцов [X (2) -X (1), ..., X (n) -X (n-1)], проверьте наиболее частое значение в массиве (1 в порядке возрастания - 1 в противном случае), получить индекс для наиболее частого значения или -9, умноженный на наиболее частое значение (-9 встречается в порядке возрастания, в противном случае 9), найти последовательные индексы (т. Е. Разница которых равна 1) и сложить его пожалуйста, потому что уже поздно. Выход самый большой.

a=input('')
t=[]
for i=1:numel(a)
b=diff(num2str(a(i))-'0')
c=mode(b)
t=[t sum(diff(find(b==c|b==-9*c))==1)]
end
[t,I]=max(t),a(I)

Попробуйте онлайн!

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.