Codegolf - Плюс И Времена, Единицы И Девятки

Реализуйте это рекуррентное отношение как функция или программа, которая вводит и выводит неотрицательное целое число:

• Ф(0) = 0

• F(N) = наименьшее целое число, большее, чем F(N-1), такое, что сумма и/или произведение его цифр по основанию 10 равна N.

N — это входные данные вашей программы, а F(N) — ее выходные данные.

Для ясности: сумма цифр в числе, например 913, равна 9+1+3=13. Произведение равно 9×1×3=27. Для однозначных чисел сумма и произведение представляют собой одно и то же число. Числа, содержащие 0, конечно, имеют произведение 0.

Результаты через F(70):

 N F(N)
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 19
11 29
12 34
13 49
14 59
15 69
16 79
17 89
18 92
19 199
20 225
21 317
22 499
23 599
24 614
25 799
26 899
27 913
28 1147
29 2999
30 3125
31 4999
32 5999
33 6999
34 7999
35 8999
36 9114
37 19999
38 29999
39 39999
40 41125
41 59999
42 61117
43 79999
44 89999
45 91115
46 199999
47 299999
48 311128
49 499999
50 511125
51 699999
52 799999
53 899999
54 911116
55 1999999
56 2111147
57 3999999
58 4999999
59 5999999
60 6111125
61 7999999
62 8999999
63 9111117
64 11111188
65 29999999
66 39999999
67 49999999
68 59999999
69 69999999
70 71111125
 

Выигрывает самый короткий код в байтах. Слава, если вы сможете показать, что ваш код обладает некоторой эффективностью.

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

05AB1E, 20 12 байт

Сэкономлено 8 байт благодаря Осабл!

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 for(;$c<=$a=$argn;$c=count($r))array_product($s=str_split($n++))!=$c&&array_sum($s)!=$c?:$r[]=~-$n;echo$r[$a];
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Использует CP-1252 кодировка. Попробуйте онлайн!

Mathematica, 71 байт, 68 символов

Всего за 4 байта есть версия, в которой хранятся значения &20p>:000pv >\1+^vp011< | >.@>:55+%:00g+00p10g*v>10g-* ::\$_^#!:/+55p01*!`"~":<^\-g00 < |!-g02 +1< v\ :

В последней версии, прежде чем оценивать f\.{ 0\0 @( find @(or = #1 sum #0) = #1 prod #0 ) (dp + 1 (f -#0 1)) N } , f\.{0\0@(:>@(| =#1sum#0)=#1prod#0)(dp +1f -#0 1)N}; f 10 будет иметь два нижних значения:

Теперь, если мы оценим f=lambda n,k=0,r=0:-(k>n)or-~f(n,k+(k in[eval(c.join(`r`))for c in'+*']),r+1) :

Это значительно ускоряет будущие вычисления, поскольку Mathematica больше не будет вычислять значения между Q.fY'Bs]iR{)e and i рекурсивно. Сэкономленное время более драматично, поскольку first_n increases:

С#, 155 159 135 байт

Супер неэффективно, занимает много времени N=40 . Gonna try to get a more efficient, but longer solution.

Хорошо, теперь намного лучше, но на 4 байта длиннее. О, ну я могу сделать 20 pretty quickly now. Thank you @milk for saving 24 bytes!

Пиф — 18 17 байт

Один байт сэкономлен благодаря @Jakube!

Использует сокращение для рекурсивных действий.

Тестовый набор.

Р, 124 112 байт

Ошибка при N=45, потому что R настаивает на записи 10.000 как 1e+05, что не нравится $l , this is fixable by using for по стоимости 12 байт:

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

Сэкономлено 12 байт благодаря billywob.

JavaScript (ES6) 109 107 105 91 89 байт

JavaScript (ES6), 84 86

Изменить: сохранено 2 байта, спасибо @Arnauld

Тест Обратите внимание, что при значении выше 50 будет использоваться слишком много ресурсов вашего процессора. Нажмите «Скрыть результаты», чтобы остановиться, пока не стало слишком поздно.

Математика, 67 байт

Функция с именем $_ . Takes a number as input and returns a number as output. Inspired by the previous Mathematica solution, but uses a different looping mechanism.

С, 240 байт

Попытка использовать некоторые математические свойства последовательности.

PowerShell v3+, 114 байт

Итеративное решение, без простого способа превратить число в сумму/произведение его цифр, поэтому оно немного длиннее, чем ответы JavaScript.

Принимает ввод eval , sets Invoke-Expression в массив всего лишь iex (this is the collection of + и наборы -join equal to $b (это последняя char ). We then loop upward from "$l" к $l , each iteration executing a for петля.

for loop's conditional takes the $n номер теста в строке 1 , then casts that as a F -array и сохраняет этот массив во временную переменную 1 . We then $l эти цифры вместе с F() and pipe that to 0 (сокращение от $i and similar to $n ). Кроме того, мы также делаем то же самое с param($n)$i=,0;$l=1;1..$n|%{for(;$_-notin((($b=[char[]]"$l")-join'+'|iex)),(($b-join'*'|iex))){$l++}$i+=$l};$i[$n] . Those two numbers are encapsulated in parens and treated as the array argument for the int f(char n){int q[19],i=19,r=n%9,j=9,*p=q,c=n/9;while(i)q[--i]=0;if(c){if(!r){r=9;c--;}q[9]=c;if(!(n%r)){n/=r;while((j-1)*(n-1)*c){if(n%j)j--;else{c--;q[9+j]++;n/=j;}}q[10]=c;if(1==n)p+=9;}while(++i<10){while(p[i]--)r=r*10+i;}}return(r);} оператор против текущего номера a of the outer loop (i.e., the a@0=0;a@b_:=NestWhile[#+1&,a[b-1]+1,+##!=b&&1##!=b&@*IntegerDigits] цикл выполняется до тех пор, пока <pre id=O></pre> and f=n=>eval("for(v=n&&f(n-1),p=s=n+1;s&&p-1;)[...++v+''].map(d=>(p/=d,s-=d),p=s=n);v") out=x=>O.textContent=x+'\n'+O.textContent i=0 step=_=>out(i+' '+f(i),++i,setTimeout(step,i*10)) step() отличаются от f=n=>eval("for(v=n&&f(n-1),p=s=n+1;s&&p-1;)[...++v+''].map(d=>(p/=d,s-=d),p=s=n);v") ). The body of the f=n=>n&&eval(`for(i=f(n-1);++i,${x="[...i+''].reduce((r,v)=>"}+r+ +v)-n&&${x}r*v)-n;);i`) console.log(f.toString().length + 2); console.log(f(25)); console.log(f(13)); console.log(f(8)); цикл просто увеличивается f=function(N){y=x=`if`(N-1,f(N-1),0);while(N!=prod(y)&N!=sum(y)){x=x+1;y=as.double(el(strsplit(c(as.integer(x),""),"")))};x} .

Как только мы выйдем из этого внутреннего as.integer() loop, we add our as.numeric() как новый элемент f=function(N){y=x=`if`(N-1,f(N-1),0);while(N!=prod(y)&N!=sum(y)){x=x+1;y=as.double(el(strsplit(c(x,""),"")))};x} . Once we've fully completed the range loop, we just place uf}HsM*FBjT;hGSQZ на конвейере, и вывод неявный.

NB — выполняется довольно медленно, как указано выше. N<=50 , simply because of the loop structure. For example, N>=14 на моей машине это занимает около двух минут, и я даже не удосужился протестировать a=n=>{if(n<1)return 0;int i=n,s=0,p=1,N=a(n-1);for(;;){s=0;p=1;foreach(var c in++i+""){s+=c-48;p*=c-48;}if(i>N&(s==n|p==n))return i;}}; .

Пайк, 17 байт

Попробуйте здесь!

Или 13 байт неконкурентно

n now puts the amount of items already found plus one in 20 если используется.

Попробуйте здесь!

Питон 2, 77 байт

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

Удивляться, 49 байт

Сопоставление с образцом ftw! Использование:

Более читабельно:

По сути, это просто дословная реализация спецификаций.

БАШ, 107 байт

со сгибом + вставка + BC

Бефунге, 101 байт

Попробуйте онлайн! Но учтите, что, как только вы доберетесь до сорока пяти, процесс станет очень медленным. Если вы хотите протестировать весь диапазон, вам действительно нужно использовать компилятор Befunge.

Объяснение

PHP, 110 байт

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