Це нитка копів. Сюди йде нитка розбійників .

Останній потік поліцейських та грабіжників був уже 4 місяці тому .

Завдання поліцейського

• Завдання поліцейського - написати програму / функцію, яка приймає додатне (або негативне) ціле число та виводить / повертає інше ціле число.
• Поліцейський повинен констатувати це, якщо програма непереносима до нуля.
• Коп забезпечить принаймні 2 вибіркові входи / виходи.
• Наприклад, якщо я вирішив написати послідовність Фібоначчі , я б написав це у своїй відповіді:

a (0) повертає 0
a (3) повертає 2

• Кількість прикладів залежить від розсуду поліцейських.
• Однак послідовність дійсно повинна існувати в он-лайн енциклопедії цілих послідовностей® , тому не існує для вас генератора псевдовипадкових чисел.:(
• Коп може приховати стільки символів, скільки забажає.
• Наприклад, якщо моя програма:

function a(n)
    if n>2 then
        return n
    else
        return a(n-1) + a(n-2)
    end
end

• Тоді я ховав би цих персонажів так, як мені хочеться:

function a(n)
    if ### then
        ########
    else
        ######################
    end
end

Завдання грабіжника

• очевидно, щоб знайти оригінальний вихідний код.
• Однак будь-який запропонований вихідний код, який створює той самий набір вихідних даних, також вважається дійсним, якщо він також знаходиться в OEIS.

Поради для поліцейських

• Функція пошуку в OEIS працює лише протягом послідовних термінів, тому, якщо ви хочете приховати свою послідовність, просто залиште дірку в будь-якому місці.
• Мабуть, немає способу приховати послідовність. Майте це на увазі, коли ви вибираєте послідовність.

Ваш бал - кількість байтів у вашому коді.

Переможцем стане подання з найнижчою оцінкою, яка не зламалася за 7 днів.

Тільки подані матеріали, розміщені у квітні 2016 року, мають право на виграш. Повідомлення, опубліковані пізніше цього, вітаються, але не можуть перемогти.

Для того, щоб вимагати виграш, вам потрібно розкрити повний код та послідовність OEIS (через 7 днів).

Ваше повідомлення має бути відформатоване так (NN - кількість символів):

Луа, 98 байт

Вихід:

a(0) returns 0
a(3) returns 2

Код ( #позначає нерозкриті символи):

function a(n)
    if ### then
        ########
    else
        ######################
    end
end

Якщо код зламався, вставте його [Cracked](link to cracker)в заголовок. Якщо подання надійне, вставте "Безпечний" у заголовку та розкрийте повний код у своїй відповіді. Тільки відповіді, які виявили повний код, будуть допустимі до виграшу.

Vim, 36 натискань клавіш - Безпечно!

i****<esc>:let @q="^*i****$**@***"<cr><n>@qbD

(Примітка: <n>це місце, де ви вводите дані)

Ось код, не пов'язаний з генерацією чисел:

          :let @q="              "<cr><n>@qbD

Значить, я розкриваю 5 з 19 символів.

<n>є вхід. Ось кілька зразкових результатів:

1@q:    1
2@q:    3
6@q:    18

Відповідь

Цей код друкує номери Лукаса ( A000032 ), які подібно до послідовності Fibonnaci, за винятком того, що він починається 2, 1замість 1, 1. Ось перші 15 номерів:

2, 1, 3, 4, 7, 11, 18, 29, 47, 76, 123, 199, 322, 521, 843

Ось виявлений код:

i2 1 <esc>:let @q="^diwwyw$pb@-<c-v><c-a>"<cr><n>@qbD

Пояснення:

i2 1 <esc>                          "Insert the starting numbers
          :let @q="....."<cr>       "Define the macro 'Q'

Пояснення макросу:

^                      "Move to the first non-whitespace character on the line.
 diw                   "(d)elete (i)nner (w)ord. This is different then 'dw' because it doesn't grab the space. 
                      "It also throws people off since 'i' is usually used for inserting text.
    wyw$               "Move to the next number, yank it then move to the end of the line 
        pb             "(p)aste the yanked text and move (b)ack
          @-     <c-a> "@- is the register holding the word we deleted. Increment the current number that many times.
            <c-v>      "Since we're adding <c-a> this from the command line, we need to type it as a literal.

Тепер нам просто потрібно видалити друге число, оскільки перше число - це число Лукаса, яке ми хочемо. Так ми і робимо

b   "move (b)ack
 D  "(D)elete to the end of the line.

Також, якщо я не помиляюся, це перша безпечна подача! Це якось круто.

05AB1E , 5 байт, сейф

Останнє на сьогодні: с. Вихід:

a(0) = 9
a(5) = 4
a(10) = 89

Код:

___m_

Замучені символи позначаються за допомогою _. Спробуйте в Інтернеті! -посилання. Використовує кодування CP-1252 .

Рішення:

žhžm‡

Пояснення:

žh       # Short for [0-9].
  žm     # Short for [9-0].
    ‡    # Translate.

Спробуйте в Інтернеті! або Спробуйте для всіх тестових випадків! .

Елемент , 7 байт, потрісканий

Вихід:

a(3) = 111
a(7) = 1111111

Це #приховані символи, і всі вони друкуються ASCII. Я вважаю, що це насправді досить важко (лише з 5 відсутніми символами).

###,##}

Для зручності ось вікі- сторінки " Спробуйте в Інтернеті" та " Esolang" .

Моя оригінальна програма була:

_'[,$ ` }

Хитрість полягає в тому

]і }є функціонально однаковими (обидва перекладаються на }Perl). Крім того , я використовував , ,$щоб зробити в 1якості додаткового шару плутанини, хоча можна ігнорувати ,повністю, виконавши ,1замість цього.

Джольф , 5 байт, тріснув

Вихід:

a(2) = 8
a(10) = 4738245926336

Все це має вирішальне значення, і я показав 1 з 5.

####x

Оригінальний код:

mPm$x
mP     cube
  m$   catalan number
    x  input

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

JavaScript (ES7), 10 байт, Зламаний

Вихідні дані

f(0) -> 1
f(1) -> -1

Код

t=>~t##**#

Тестуйте його в Firefox щоночі. Код - анонімна функція. Це, мабуть, буде легко, оскільки там приховано лише три символи, але принаймні це коротко! : P

Мій оригінальний код:

t=>~top**t

але після грубого форсування власного коду рішення, я незабаром зрозумів

t=>~t.x**t(де xможе бути будь-який символ змінної імені)

також може бути використаний. Це працює, тому що

в оригінальній специфікації оператора експоненції ES7 оператор мав нижчий пріоритет, ніж унарний оператор (на відміну від звичайної математики та більшості інших мов). ~виконує побіт НЕ на t.x( undefined) або top( Object), що передає їх на 32-бітове ціле число, підписане (такі, що не підлягають відліку 0), перш ніж робити NOT (так 0стає -1). Я детальніше розглядав це питання, і зовсім недавно специфікація змінилася, щоб заборонити неоднозначні посилання на кшталт цього (не добре для майбутнього гольфу D:), однак більшість двигунів ES7 ще не оновлено до останньої версії специфікації.

05AB1E, 4 байти ( тріщини )

Вибірка зразка:

a(5) = 51
a(8) = 257

А для коду:

###^

Я розкрив останній. Це повинно бути досить легко, але мені було досить важко знайти послідовність :(

Усі приховані символи можна друкувати.

MATL , 5 байт, тріщини

Приховані символи позначаються символом %.

%5%*%

Вихід:

a(1) = 3
a(2) = 6
a(4) = 12

Введення 0дійсне.

Оригінальний код:

35B*s

це є,

35    % push number 35
B     % convert to binary: array [1 0 0 0 1 1]
*     % multiply element-wise by implicit input n: gives [n 0 0 0 n n]
s     % sum of array: gives 3*n

SWIFT, 55 байт, тріщини

func M(n:Int)->Int{
return(n*****) ?M(**n****):n***;
}

* позначає прихований символ

Вихід:

M(30) -> 91
M(60) -> 91
M(90) -> 91
M(120)-> 110
M(150)-> 140

Функція приймає 0

Рубін, 46 байт, сейф

Змінити, щоб додати відмову / вибачення: ця послідовність починається з f [0], тоді як запис OEIS починається з f [1]. Значення однакові.

Замучений код ( #будь-який символ):

->####or x##1###(#..##0#);x*=3;end;#.###ect:+}

Телефонуйте як

->####or x##1###(#..##0#);x*=3;end;#.###ect:+}[3] (returns 39)

Вихід:

f[0] = 0
f[1] = 3
f[2] = 12
f[3] = 39
f[4] = 120
f[5] = 363
f[6] = 1092
f[7] = 3279
f[8] = 9840
f[9] = 29523

Рішення:

f=->*x{for x[-1]in(0..x[0]);x*=3;end;x.inject:+}

Послідовність:

http://oeis.org/A029858

Пояснення:

Невелика хитрість тут полягає в тому, що ми оголошуємо параметр як, *xа не x. Це означає, що якщо ви заходите 2, спочатку xвстановлюється значення [2]... Основних трюк використовує дивно, і справедливо неясними, Ruby синтаксис , де ви можете встановити итератор в циклі з будь дійсної лівій стороні вирази присвоювання, замість змінної ітератора , як i. Таким чином, це проходить цикл від 0 до (у цьому прикладі) 2, присвоюючи кожне число до x[-1], тобто він замінює останнє значення x. Потім тіло циклу x*=3, додатково мутує х, приєднуючи його до себе 3 рази. Отже спочатку х стає [0], потім [0,0,0]. На наступній петлі це стає [0,0,1], значить [0,0,1,0,0,1,0,0,1]. Нарешті ми проходимо через 2, і це стає [0,0,1,0,0,1,0,0,2], значить[0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2]. Потім підсумовуємо результат за допомогою injectметоду, який зменшує масив, застосовуючи +(переданий метод) по черзі до кожного елемента. Якщо ми розглядаємо, як кожна ітерація змінює суму, ми бачимо, що ми ефективно додаємо 1 (перезаписавши останній елемент на елемент на один вище), а потім помножимо на 3. Оскільки 3*(n+1) = 3*n + 3це реалізує відношення повторення Олександра Вайнберга для послідовності, як описано в сторінки.

05AB1E , 3 байти, тріщини

Вихід:

a(9) = 165
a(10) = 220

Прихований код:

##O

Спробуйте в Інтернеті, можливо, стане в нагоді.

Шестикутник , 7 байт, потрісканий

Вихід:

a(1) = 2
a(2) = 4

Прихований код:

?#####@

Або в якості альтернативи:

 ? #
# # #
 # @

Спробуйте в Інтернеті, можливо, стане в нагоді.

PHP, 41 байт, зламаний

Так, нарешті черговий виклик копів та грабіжників. Сподіваюся, я не спростив це.

Вихідні дані

a(5)   = 0
a(15)  = 1
a(35)  = 0
a(36)  = 1
a(45)  = 1

Джерело

____________________$argv[1]____________;
####################        ############

Примітки

• Це повноцінна програма, а не функція.
• Читає дані з командного рядка (очевидно).
• Не містить тегу відкриття PHP .

Тріснув

Я, очевидно, зробив це легко і наводив недостатньо прикладів. Послідовність, яку я мав на увазі, була A010054 :

a (n) = 1, якщо n - трикутне число, інше 0.

Ось мій оригінальний вихідний код:

echo(int)($r=sqrt(8*$argv[1]+1))==$r?1:0;

Він перевіряє, чи є вхід трикутним числом, а виходи 1або 0відповідно.

Jolf, 11 байт, Cracked , A011551

c*______x__

c*mf^+91x~P

Оригінальний код:

c*^c"10"x~P

Приклади:

0 -> 1

12 -> 1618033988749

MATL, 9 байт, тріщини

Код:

3#2###*##

Вихід:

a(1)  = 3
a(2)  = 6
a(4)  = 12
a(12) = 37

a(0) є дійсним.

Тріснув

Оригінальна послідовність: A059563

Оригінальний код:

3L2^Ze*sk
3L          % Push [1 -1j] from the clipboard
  2^        % square
    Ze      % exp
      *     % times input
       s    % sum
        k   % floor

Java, 479 байт, тріщинами

Виходи:

a(10) = 81
a(20) = 35890

(Введення надається через аргументи командного рядка)

Код ( #позначає приховані символи):

import java.util.*;
public class A{

    public static int#########
    public boolean###########

    static A a = new A();

    public static void main(String[] args){
        int input = Integer.parseInt(args[0]);

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);
        l.add(0);
        l.add(0);

        for(int ix = 0; ################if(##>##{
            ###########d#
            #######+##p##########+##########(#######
        }

        System.out.println(#########################
            ###(A.#############(#5#####)));
    }
}

Програма починається з індексу 0.

(Зверніть увагу, що SE замінює всі \tвідступи на 4 пробіли, приводячи байт до загальної кількості 569. Клацніть тут, щоб побачити програму з \tвідступами замість пробілів.)

Оригінальний код:

import java.util.*;
public class A{
    public static interface B{
    public boolean C(int i);} 

    static A a = new A();

    public static void main(String[] args){
        int input = Integer.parseInt(args[0]);

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);
        l.add(0);
        l.add(0);

        for(int ix = 0; ix<input; ix++)cif(i->  {
            return l.add(
            l.pop()+l.peekFirst()+l.peekLast());});{    
        }

        System.out.println(l.get(1));}static boolean 
            cif(A.B b5){return (b5.C((0)));
    }
}

(Той самий код, але відформатований нормально):

import java.util.*;

public class A {
    public static interface B { //functional interface for lambda expression
        public boolean C(int i); //void would have given it away
    }

    static A a = new A(); //distraction

    public static void main(String[] args) {
        int input = Integer.parseInt(args[0]);//Input

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);//Set up list
        l.add(0);
        l.add(0);

        for (int ix = 0; ix < input; ix++)
            cif(i -> { //Fake if statement is really a lambda expression
                return l.add(l.pop() + l.peekFirst() + l.peekLast());
            });
        { //Distraction
        }

        System.out.println(l.get(1));//Output
    }

    static boolean cif(A.B b5) { //Used to pass in lambda expression.
                  //The A. and b5 were both distractions
        return (b5.C((0)));
    }
}

Октава, 34 байти, тріщини

@(m)(m###m#####m##)&isprime(#)####

Виходи:

ans(1) = 0
ans(6) = 5
ans(7) = 10
ans(8) = 15

Послідовність починається ans(1)в OEIS.

З, 71 байт тріщини

############
#####
main(){
 scanf("%d",##);
 ###6#;
 printf("%d",##);
}

Вихід:

a(1) = 0   a(2) = 0   a(5) = 1
a(6) = 1   a(7) = 1   a(9) = 2

Це працює з gcc і є повноцінною програмою. Він приймає 0 як вхідний.

Pyth, 70 байт, Cracked

DhbI|qb"#"qb"#"R!1Iqb"#"#####+""s####2###;##lY+Q1Ih+""Z#####)=Z+Z1;@YQ

# є прихованими персонажами

Зламався, тому ось версіяn без прихованих символів:

DhbI|qb"4"qb"0"R!1Iqb"1"R!0Rh+""sm^sd2cb1;W<lY+Q1Ih+""Z=Y+YZ)=Z+Z1;@YQ

Приклади виходів:

a(2) -> 10
a(4) -> 19

Пощастило знайти це на OEIS, я особисто не зміг його знайти з цих прикладів (навіть послідовність цього досить легко помітити.)

Рубін, 38 байт, тріснув

Неясний код ( #може бути будь-якого символу):

->#{(s=#########).sum==#3333&&eval(s)}

Вихід:

Помножує вхід на 10 (A008592). Працює для будь-якого цілого числа, включаючи 0. Напр

->#{(s=#########).sum==#3333&&eval(s)}[3]  => 30
->#{(s=#########).sum==#3333&&eval(s)}[10] => 100

05AB1E , 5 байт, потрісканий

Вихід:

a(0) = 0
a(1) = 0
a(2) = 1
a(3) = 1
a(4) = 1
a(5) = 1
a(6) = 1
a(7) = 1
a(8) = 1
a(9) = 1
a(10) = 0
a(11) = 0

Неясний код:

_____

Спробуйте в Інтернеті! -посилання.

05AB1E , 4 байти, тріщини

Ну, тоді я думаю, що я пристрастився до CnR ... Замучений код ( _вказує на підстановку):

____

Послідовність:

a(1) = 2
a(4) = 6720

Послідовність у OEIS починається з (1) = 2.

Спробуйте в Інтернеті! -посилання

Луа, 45 байт, тріщинами

Невеликий натяк:

a(0) will make the program crash :)

Вихідні дані

a(1)=>0
a(2)=>1

Код

Використовує #для приховування коду :).

a=function(n)#####n###### and #or ########end

Я використовував OEIS A007814 із таким кодом:

a=function(n)return n%2>0 and 0or 1+a(n/2)end

Пайк , 15 байт, БЕЗКОШТОВНО

Вихідні дані

a(2) = 21
a(15) = 17

Виявлений код:

#R#D######+##)#

Рішення:

OEIS A038822
wR}DSR_Q*L+#P)l
Я використав тут кілька червоних оселедців, використовуючи wR}для генерування числа 100 та виявлення символу, Rякий зазвичай використовується для обертання стека. Я також використовував #P)lзамість більш простого mPsдля підрахунку кількості простих ліній у послідовності.

C, 82 байти, безпечно

####=############
main(i){scanf("%d",##);
for(i=1;i++/4<#;)##=2;
printf("%d",##);}

Працює з gcc, і це повна програма, яка зчитує свої дані зі stdin та друкує свій вихід у stdout. Тут послідовність A004526, поверх (n / 2) .

a(0) = 0    a(1) = 0    a(2) = 1
a(3) = 1    a(4) = 2    a(5) = 2
a(6) = 3    a(7) = 3    a(8) = 4

Рішення:

a;*b=(char*)&a+1;
main(i){scanf("%d",&a);
for(i=1;i++/4<2;)a*=2;
printf("%d",*b);}

Це працює лише на маленьких ендіанських машинах, і лише якщо розмір charстановить 1 байт.
І лише якщо байт, що перевищує байт найвищого порядку, aмає значення 0. Я думаю, що це справедливо для gcc, оскільки за замовчуванням неініціалізовані глобальні змінні переходять у bss-сегмент, а ініціалізовані глобальні змінні переходять у сегмент даних (див. Https: // stackoverflow.com/questions/8721475/if-a-global-variable-is-initialized-to-0-will-it-go-to-bss ).
Таким чином, aпереходить тільки в bss (єдина інша глобальна змінна bініціалізується і, таким чином, переходить у сегмент даних). Якщо aнемає в кінці bss, то байт, що перевищує байт найвищого порядку a, також знаходиться в bss і, таким чином, має значення 0.

05AB1E, 1 байт, тріщинами

_

_ позначає прихований код.

f(1) == 1
f(18) == 6

Елемент , 10 байт, потрісканий

Вихід:

a(3) = 6561
a(4) = 4294967296

Напевно, існує лише кілька способів обчислити цю послідовність у Element. Я знайшов 9-char рішення, але я зрозумів, що це 10-char рішення насправді складніше. #Є прихованими символами.

#_####@^#`

Для зручності ось вікі- сторінки " Спробуйте в Інтернеті" та " Esolang" .

Оригінал був

2_3:~2@^^`

Піт , 18 байт

# позначає нерозкриті символи.

L?Jtb##5#m##S#2 #y

Виходи (починається з 1):

1 -> 2
2 -> 3
3 -> 5
4 -> 7

Онлайн-перекладач

05AB1E , 5 байт, потрісканий

Я сподіваюся, що це подання не так просто, як інші мої: с. Виходи:

a(0) = 0
a(1) = 1
a(2) = 6
a(3) = 24
a(4) = 80
a(5) = 240

Неясний код:

####O

Містить деякі символи, що не належать до ASCII, але використовує кодування CP-1252 .

Спробуйте в Інтернеті! може стати в нагоді: с.

Джольф , 11 байт, тріщинами .

Вихід:

a(10) = 4
a(20) = 6
a(30) = 8

І частково прихований код:

####xd###x#

Підказка:

Коли я переглядав послідовності в порядку, я не зайшов дуже далеко, перш ніж знайти цю.

Зламана версія не зовсім збігається з моїм оригінальним кодом. Наразі я не за своїм комп’ютером, тому у мене його немає точно, але це було щось подібне:

l fzxd!m%xH

(Єдиною частиною, про яку я не впевнений, є !m. Це все, що перевіряє, чи змінна дорівнює нулю.)

Пайк , 6 байт, тріщини

###X#s

Вихід:

a(2) = 8
a(8) = 80
a(10) = 120

Це не працює з N <1

Оригінальне рішення:

hSmX$s