Codegolf - Сворачивающиеся Числа

Определим функцию a для натуральных чисел \$n\$, записанных в виде десятизначного числа \$d_k\; d_{k-1}\; \точка\; д_1\; d_0\$, следующим образом:

Если соседние цифры \$d_i\;d_{i-1}\$ равны, замените их суммой \$d_i+d_{i-1}\$ слева направо. Если такие цифры были, повторите ту же процедуру.

Другими словами, на каждой итерации мы жадно берем все пары одинаковых соседних цифр и заменяем их суммой одновременно (используя самую левую пару, если они перекрываются).

Пример

Возьмем, к примеру, \$\texttt{9988}\$:

1. Первые соседние цифры, которые равны, — это две \$\texttt{9}\$
2. Поэтому мы заменяем их на \$\texttt{9 + 9} = \texttt{18}\$, что дает нам \$\texttt{1888}\$
3. Поскольку мы все еще находимся на первом обходе слева направо и еще было два \$\texttt{8}\$s, нам нужно сначала заменить эти
4. Итак, мы получаем \$\texttt{1816}\$
5. Что-то изменилось, поэтому нам нужно сделать еще одну итерацию
6. Но таких цифр нет, поэтому остановимся

Следовательно, число \$9988^\text{th}\$ в этой последовательности равно \$1816\$.

Испытание

Первые 200 терминов:

 
 222 -> 42
1633 -> 4
4488 -> 816
15519 -> 2019
19988 -> 2816
99999 -> 18189
119988 -> 21816
100001 -> 101
999999 -> 181818
 
 

Ваша задача — сгенерировать эту последовательность, либо

• учитывая \$n\$, верните число \$n^\text{th}\$ в этой последовательности,
• учитывая \$n\$, верните первые числа \$n\$ в этой последовательности
• или генерировать последовательность бесконечно.

Вы можете выбрать для своей отправки индексацию \$0\$- или \$1\$, но укажите, какую именно.

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

Вы можете использовать приведенные выше термины, однако вот несколько более крупных:

#код-гольф #последовательность #целое число

Питон 3, 128 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 →U¡ödṁoṁodΣC2gd
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Питон 2, 97 96 93 байт

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

Версия без регулярного выражения:

Питон 2, 133 130 122 112 98 байт

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

Желе, 11 байт

Это неоправданно медленная, насыщенная программа.

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

Альтернативная версия, 12 байт.

На один байт длиннее, но гораздо быстрее. Работает как программа или функция.

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

Как это работает

11-байтовая версия делает то же самое, но вызывает ссылку н раз для ввода н, вместо того, чтобы вызывать его до тех пор, пока не будет достигнута фиксированная точка.

Хаскель, 70 байт

Ввод принимается в виде строки.

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

JavaScript, 48 47 46 байт

Ввод и вывод в виде строк. Возвращает [Char] term of the sequence.

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

• 1 байт сэкономлен благодаря Арно
• 1 байт сэкономлен благодаря tsh

Перл 6, 37 байт

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

Это функция, которая генерирует n-й член последовательности, учитывая n в качестве аргумента.

limit o iterate$o map digitToInt is the sequence of successive changes to the input number, generated by the bracketed expression (a simple regex substitution) and stopping when import StdEnv,Data.List $[a,b:t]|a==b=[1,(a*2)rem 10]%(1-a/5,1)++ $t=[a: $[b:t]] $l=l , то есть когда два последних числа в последовательности равны. Тогда s=>{for(;s[0]!=(s[0]=Replace(s[0],@"(.)\1",m=>m.Value[0]*2-96+"")););} takes just the final element of that sequence as the return value.

сетчатка, 16 байт

Попробуйте онлайн! Ссылка включает тестовые примеры. Объяснение:

Повторяйте до тех пор, пока ввод не перестанет меняться.

Заменить пары соседних цифр...

... с удвоенной цифрой. ( ToString generates a string of Total/@ Flatten[...,1] s, Partition[#, UpTo@2]&/@ дублирует это, и Split takes the length. Actually, the Retina engine is cleverer than that and just doubles IntegerDigits .)

С# (.NET Core), 231, 203, 200, 196, 192 байта

РЕДАКТИРОВАТЬ: функция теперь имеет размер 185 байт плюс 18 для ToExpression[""<>ToString/@Total/@Flatten[Partition[#,UpTo@2]&/@Split@IntegerDigits@#,1]]&~FixedPoint~#&

Спасибо BMO (за то, что 1>0 равно true плюс удаление новой строки) и Mr. XCoder (за операторы f=!f)!

EDIT2: до 182 байт плюс 18 для Δ # Continue until the (implicit) input no longer changes: γ # Split the integer in chunks of the same adjacent digits # i.e. 199999889 → [1,99999,88,9] ε } # Map each to: 2ô # Split it into parts of size 2 # i.e. 99999 → [99,99,9] €S # Split each part into digits # i.e. [99,99,9] → [[9,9],[9,9],[9]] O # And take the sum of each part # i.e. [[9,9],[9,9],[9]] → [18,18,9] ˜ # Flatten the list # i.e. [[1],[18,18,9],[16],[9]] → [1,18,18,9,16,9] J # Join everything together # i.e. [1,18,18,9,16,9] → 118189169 # (And output the result implicitly at the end) # i.e. output = 28189169 thanks to dana for sharing a few golf tips!

EDIT3: Спасибо Embodiment of Ignorance за int[] -> var, устранение короткого замыкания && -> & и изменение ToArray -> ToList! (178 байт + 18 использований)

EDIT4: Воплощение незнания уменьшило 4 байта, изменив назначение. Дура, мне надо было посчитать! Еще раз спасибо :D

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

Перл 5 {s->r=/(\d)\1/ while(s=~r)s=s.replaceAll(r){(it[1]as int)*2} s} , 21 bytes

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

Япт v2.0a0 Æ=s_r/(.)\1/ÏÑ , 15 14 байт

Возвращает nth term of the sequence.

Попробуйте это

Это должно работать для 10 байт, но, похоже, в методе рекурсивной замены Japt есть ошибка.

классный, 63 байта

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

05AB1E, 11 байты

Попробуйте онлайн или проверить все тестовые случаи.

Объяснение:

Язык Wolfram 108 байт

Объяснение

$1 transforms the input number into a list of its digits.

$.( groups consecutive repeated digits.

2* breaks runs of like digits into lists of, at most, lengths of 2.

_ eliminates occasional overly-nested braces--e.g., {{2,2}} becomes {2,2}

$1 sums totals of paired digits. Isolated digits need not be summed.

$1* converts the totals (and isolated digits) to strings.

$.(2*$1* joins all the strings in the list.

(.)\1 converts the outcome to an integer.

+` applies the function until the result ceases to change.

C# (интерактивный компилятор Visual C#) с флагом +`(.)\1 $.(2*$1* , 70 bytes

Выходы путем изменения входа. Принимает на вход список, содержащий одну строку.

Спасибо @dana за целых 23 байта!

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

Чистый, 118 байт

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

Принимает первое повторяющееся значение ( {($_,{S:g[(\d)$0]=2*$0}...*==*)[*-1]} ) from the infinite list of applications ( f=s=>s-(s=s.replace(/(.)\1/g,x=>x/5.5))?f(s):s ) лямбды, выполняющей один шаг процесса сжатия. Ввод принимается как nth .

Красный, 84 83 80 байт

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

Возвращает DŒg+2/€FVµƬṪ Main link. Argument: n (integer) µ Combine the previous links into a chain. Begin a new one. D Decimal; yield n's digit array in base 10. Œg Group adjacent, identical digits into subarrays. +2/€ Map non-overlapping, pairwise sum over the subarrays. If there is an odd number of digits in a subarray, the last digit will remain untouched. F Flatten; dump all sums and digits into a single array. V Eval; turn the result into an integer. Ƭ Execute the chain 'til the results are no longer unique. Return all unique results. Ṫ Tail; extract the last result. term of the sequence.

Объяснение:

Скала, 84 байта

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

C# (интерактивный компилятор Visual C#), 111 байт

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

ОГРОМНАЯ благодарность @ASCIIOnly за игру в гольф ~30 ;) Сначала мы оба публиковали обновления одновременно, но в какой-то момент он явно уехал в город!

-2 спасибо @EmbodimentOfIgnorance!

Меньше гольф-кода...

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

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