Це виклик копів та грабіжників . За розбійницькою ниткою йдіть сюди .

Цей виклик передбачає дві послідовності OEIS, обрані поліцейськими - S ₁ , S ₂ - і те, наскільки добре ці послідовності можна пограти в гольф і заблукати.

Виклик копів

Вашим завданням як поліцейського є вибір вільно доступної мови та двох послідовностей OEIS. Потім напишіть код A на тій мові, який приймає введення n і виробляє S ₁ (n). Коли цей код буде змінено на відстані Левенштейна з символів X (з X не більше 0.5 * (length A)) і перетвориться на код B тією ж мовою, він повинен створити S ₂ (n). Ви дійсно повинні написати цей код B , але не розкривати його, поки ваше завдання не надійне (див. Нижче).

Представлення копів повинно містити назву мови, повний код A , кількість байтів A , значення X, скільки змін, щоб дістатися до їх секретного коду B , та вибрані номери послідовностей S ₁ і S ₂ . Ви можете вибрати, чи буде кожна послідовність 0-індексованою або 1-індексованою, але, будь ласка, вкажіть її у своєму поданні.

Щоб зламати певне уявлення, грабіжники повинні придумати програму C на тій же мові (та версії), яка виробляє S ₂ (n) і Y- символ змінюється на A (з Y <= X). Розбійникам не обов’язково потрібно знайти той самий код B, який видав поліцейський (таємно).

Перемога та зарахування

Якщо відповідь вашого поліцейського не було зламано протягом 7 днів (168 годин), ви можете розкрити власне рішення B , і тоді ваша відповідь вважається безпечною. Поки ви не розкриєте своє рішення, воно все одно може бути зламане грабіжниками, навіть якщо вже минуло 7 днів. Якщо ваша відповідь зламається, вкажіть це у заголовку своєї відповіді разом із посиланням на відповідну відповідь грабіжника.

Менти виграти, маючи уявлення з без тріщин найкоротших А . Якщо зв'язати, то найменший Х буде використовуватися як краватка. Якщо все-таки зв'язали, рання подача виграє.

Подальші правила

• Ви не повинні використовувати будь-які вбудовані модулі для хешування, шифрування чи генерації випадкових чисел (навіть якщо ви поставите генератор випадкових чисел у фіксовану величину).
• Будь-які програми або функції дозволені, але код не повинен бути фрагментом, і ви не повинні приймати середовище REPL.
• Ви можете взяти введення та дати вихід у будь-якому зручному форматі . Методи введення / виведення повинні бути однаковими для обох послідовностей.
• Остаточним калькулятором відстані Левенштейна для цього завдання є цей на Planet Calc.
• Окрім CnR, це код-гольф, тому застосовуються всі звичайні правила гольфу.

Brain-Flak , 28 байт, Відстань від 4, A002817 , A090809 Cracked

У цій відповіді використовується 1-індексація

(({({}[()])}{}){({}[()])}{})

Спробуйте в Інтернеті

Для всіх, хто цікавиться, є 27475 дійсних програм Brain-Flak з відстані Левенштайн 4 від цієї програми та 27707 з відстані 4 або менше. Таким чином, грубе рішення може бути здійсненим на комп'ютері споживчих класів.

7 , 33 символи, 13 байт, X = 10, A000124 → A000142 , Safe

171720514057071616777023671335133

Спробуйте в Інтернеті!

Відстань Левенштейна вимірюється у вигляді символів, тому я написав програму на основі символів, які вона містить вище (і спробуйте її в Інтернеті!, Включаючи саму мову, із задоволенням запускає програми, закодовані в ASCII). Однак програма зберігається на диску, використовуючи підбайтове кодування 7, тобто, сама програма є насправді наступним шістнадцятковим записом (таким чином, 13 байтів):

00000000: 3cf4 2982 f1ce 3bfe 13dc b74b 7f         <.)...;....K.

(Оскільки відстань Левенштейна вимірюється символами, вам не обов’язково додавати / видаляти / змінювати 10 байт , тому, мабуть, найкраще працювати з оригінальним ASCII.)

Програма як письмова реалізація A000124 (трикутні числа + 1); будь-яка тріщина повинна реалізовувати A000142 (фабрики). Обидві програми приймають вхід з stdin (у вигляді десяткових цілих чисел), записують свій вихід у stdout і трактують вхід 1 як значення першого елемента послідовності (а вхід 2 - як другий елемент тощо).

Сподіваємось, дуже високе значення X на цей раз зупинить людей, які змушують насильницьку програму (що завжди є ризиком при реєстрації поліцейських та грабіжників у 7).

Рішення

177172051772664057074056167770236713351353

Спробуйте в Інтернеті!

Відмінності від оригіналу:

17 172051 405707 1 61677702367133513 3
17 7 172051 77266 405707 405 61677702367133513 5 3

У мене немає підготовлених пояснень того, як вони працюють, тому мені знадобиться певний час, щоб отримати пояснення, оскільки мені доведеться це зрозуміти майже з нуля. Сподіваємось, з часом з’явиться пояснення.

Пайк, Левенштейн відстань 1, A036487 , A135628 .

Тріснув!

X*e

Спробуйте тут!

Тріснув!

*[0]o 1***

• S ₁ = A000012 = 1,1,1,1,1,...= Послідовність усіх 1. (0-індексовано)

• S ₂ = A001477 = 0,1,2,3,4,...= Невід’ємні цілі числа. (0-індексовано)

Спробуйте в Інтернеті!

Підтверджено, що працює з Perl 6 випуску 2017.01 та з версією Perl6, що працює на TIO.

( А можна було б додатково пограти в гольф 1***- я сподіваюся, що це також дозволено як є.)

Сейф!

{[+] [,] ^$_}

• S ₁ = A161680 = 0 0 1 3 6 10 15 21...= Нуль, за яким трикутні числа.
• S ₂ = A000217 = 0 1 3 6 10 15 21 28 ...= Трикутні числа.
• Нульова індексація.

Спробуйте в Інтернеті!

(Підтверджено для роботи з версією Perl 6, що працює на TIO.)

Рішення

{[+] [\,] ^$_}

Як працює оригінал:

{           }  # A lambda.
          $_   # Lambda argument.                     e.g. 4
         ^     # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [,]       # Reduce with comma operator.          e.g. 0, 1, 2, 3
 [+]           # Reduce with addition operator.       e.g. 6

Як працює рішення:

{            } # A lambda.
           $_  # Lambda argument.                     e.g. 4
          ^    # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [\,]      # Triangle reduce with comma operator. e.g. (0), (0,1), (0,1,2), (0,1,2,3)
 [+]           # Reduce with addition operator.       e.g. 10

Експлуатує той факт, що числові оператори, як додавання, трактують список як його кількість елементів, тому в прикладі сума є 1 + 2 + 3 + 4 = 10.

І так, но-оп "Скорочення за допомогою оператора комами" в оригіналі ніби перекручує правила коду-гольфу, але я вважаю за краще дурний алгоритм, який максимально гольфується (пробіл тощо) для що це... :)

Желе , 11 байт, X = 5, A005185 → A116881

ịḣ2S;
1Ç¡ḊḢ

Це повна програма, яка приймає ціле число як аргумент командного рядка і друкує ціле число.

Обидві послідовності індексуються як на OEIS, тобто A005185 є 1-індексованим, а A116881 - індексованим 0.

Спробуйте в Інтернеті!

Javascript, 41 байт, Відстань від 3, A061313 , A004526 , Cracked

f=x=>{return x>1?x%2?f(x+1)+1:f(x/2)+1:0}

Спробуйте в Інтернеті

Використовує індексацію на основі 1, рішення використовує індексацію на основі 0.

Ще раз, інше рішення ...

f=x=>{return x>1?x<2?f(x-1)+1:f(x-2)+1:0}

Тріснув!

{(0,1,*+*...*)[$_]}

• S ₁ = A000045 = 0 1 1 2 3 5 8 13 21 34...= "Числа Фібоначчі". ( 0-індексовано )
• S ₂ = A000035 = 0 1 0 1 0 1 0 1 0 1...= "Період 2". ( 0-індексовано )

Спробуйте в Інтернеті!

(Підтверджено для роботи з версією Perl 6, що працює на TIO.)

Вольфрам Альфа, 18 байт, X = 1

Зламаний math_junkie!

(sum1to#of n^1)*2&

Іноді WolframAlpha насправді зможе відображати таку функцію, як ця у функціональній формі (в іншому випадку вона плутається); але це може бути весело викликано заданим вкладом (наприклад, (sum1to#of n^1)*2&@5врожайність) 30.

S1 = A002378 (пронікові числа)

S2 = A000537 (сума перших nкубів)

Обидві послідовності є 0-індексованими.

Пайк, Левенштейн відстань 2, A008788 , A007526

Тріснув!

'th^

Спробуйте тут!

Давайте трохи складніше, чи не так?

Перша відповідь - 1, а тріщина - 0.

Javascript, 15704 байт, відстань 2, A059841 і A000004 - тріщинами

Це рішення надзвичайно довге, тому повний код ви можете знайти в цій суті github.

Оригінальна відповідь (ця) - 1 індексовано. (Я знаю, що це занадто довго, це просто для задоволення.)

Мозг-Флак , 16 байт, відстань Левенштейна 4, A000217 та A002378 - Зламаний Мартін Ендер!

({({}[()])()}{})

Спробуйте в Інтернеті!

Це повинно бути досить легко зламати.

Javascript, 30 байт, відстань 4, A000290 , A000079 , - тріснути!

f=x=>{return x?2*x-1+f(x-1):0}

Індексація на основі 0

@Kritixi Рішення Літоса насправді відрізнялось від мого

f=x=>{return x?f(x-1)+f(x-1):1}

Спробуйте в Інтернеті

Javascript (ES6), відстань - 1, A000079 та A000004 - тріщинами

as=function(){ return 2*2**((11)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

Оригінальна відповідь (ця) заснована на 0. Тепер, коли він зламався, ось початкова функція B:

as=function(){ return 2*2**((1^1)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

Тріснув!

+(*%%2)

• S ₁ = A059841 = 1 0 1 0 1 0 1 0...= "* Період 2: Повторити (1,0)". (0-індексовано)
• S ₂ = A001477 = 0 1 2 3 4 5 6 7...= " Невід’ємні цілі числа". (0-індексовано)

Спробуйте в Інтернеті!

(Підтверджено для роботи з версією Perl 6, що працює на TIO.)

Java 7, Левенштейна 4, A094683 , A000290 , Cracked

int x{double r=1;for(int i=0;i<42;i++)r=r/2+n/r/2;int k=(int)((int)n*(float)n/Math.pow(n,(Math.sin(n)*Math.sin(n)+Math.cos(n)*Math.cos(n))/2));return n%4%2==(int)Math.log10(Math.E)/Math.log((double)'H'-'@')?(int)r:k;}

0-індексований.
Спробуйте тут!