Это нить грабителей. Нить полицейских идет сюда .

В потоке полицейских задача заключалась в том, чтобы написать программу / функцию, которая принимает положительное (или неотрицательное) целое число и выводит / возвращает другое число (не обязательно целое число). Задача грабителей состоит в том, чтобы расшифровать код, который полицейские использовали для создания этого вывода.

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

Нет-операции могут быть использованы в решении грабителя.

Победителем потока грабителей будет пользователь, который взломал наибольшее количество заявок к 7 мая 2016 года. Если есть связь, победит пользователь, взломавший заявки с самым длинным комбинированным кодом.

Представление должно быть отформатировано следующим образом:

Язык, nn символов (включая ссылку на ответ), имя пользователя полицейского

Код:

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

Выход

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

Необязательное объяснение и комментарии.

MATL, 5 байтов, Луис Мендо

H5-*|

Этот код вычисляет, abs((2-5)*input)что только a(n)=3*nдля положительных чисел, то есть http://oeis.org/A008585

Гексагония , 7 байтов, Аднан , A005843

?{2'*!@

или

 ? {
2 ' *
 ! @

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

Просто удваивает ввод (и предполагает положительный ввод). Код (на этот раз) просто выполняется в порядке чтения. В коде используются три ребра памяти A , B , C, причем указатель памяти начинается, как показано:

?    Read integer from STDIN into edge A.
{    Move memory pointer forwards to edge B.
2    Set edge B to 2.
'    Move memory pointers backwards to edge C.
*    Multiply edges A and B and store result in C.
!    Print result to STDOUT.
@    Terminate program.

J, 7 байт, Cᴏɴᴏʀ O'Bʀɪᴇɴ

Код

2+*:@p:

Выход

   f =: 2+*:@p:
   f 0
6
   f 2
27

Попробуйте его с J.js .

Как это устроено

Последовательность A061725 определяется как (n): = p _n ² + 2 , где p _n - это (n + 1) ^-ое простое число.

2+*:@p:  Monadic verb. Argument: n

    @    Atop; combine the verbs to the right and to the left, applying one after
         the other.
     p:  Compute the (n+1)th prime number.
  *:     Square it.
2+       Add 2 to the result.

05AB1E , 5 байтов , Adnan , A001788

Læ€OO

Попробуйте онлайн! Это использует альтернативное определение, данное на странице. Объяснение:

Læ€OO
L     range;      [1..n]
 æ    powerset;   [[], [1], ..., [1..n]]
  €O  mapped sum; [0, 1, ..., T(n)]
    O sum;        [a(n)]

JavaScript, 10 байт , user81655 , A033999

Я думаю, что понял. Да. Это было действительно сложно. Мне нравится представление, потому что оно сильно зависит от прецедентов.

Это последовательность A033999 :

a (n) = (-1) ^ n.

Источник

t=>~t.z**t

объяснение

Если вы разделите этот код в соответствии с приоритетами оператора JavaScript, вы получите:

1. .(приоритет 18 ) оценивается первым и t.zвозвращается undefined.
2. ~(приоритет 15 ) пытается выполнить приведение undefined, в результате чего 0, и возвращает -1после поразрядной нет.
3. **(приоритет 14 ) будет возвращать -1 ^ t, где tэто нечетное или даже , в результате чего -1или 1.

демонстрация

console.log(
    (t=>~t.z**t)(0),
    (t=>~t.z**t)(1),
);

Попробуй перед покупкой

Я получу награду в 100 повторений за эту классную работу полицейского.

Элемент , 7 байтов , PhiNotPi , A000042

_'[,1`}

Примечания: я был введен в заблуждение }оооочень долго. Так что это тоже соответствует [.

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

Как это устроено:

_'[,1`}
_        main_stack.push(input());
 '       control_stack.push(main_stack.pop());
  [      Object temp = control_stack.pop();
         for(int i=0;i<temp;i++){
   ,         Object a = main_stack.pop(); //is actually zero
             main_stack.push(a.toChars()[0]);
             main_stack.push(a);
    1        main_stack.push(1);
     `       System.out.println(main_stack.pop());
      }  }

PHP, 41 байт , имя_пользователя здесь , A079978

echo/* does n%3=0 */$argv[1]%3<1?1:0    ;

Возвращает 1, если его аргумент кратен 3, и 0 в противном случае. Не намного выше этого.

MATL , 9 байт, мензурка , A022844

Код (с пробелом в конце):

3x2xYP*k 

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

Нашел следующие три совпадения со сценарием, который я написал:

Found match: A022844
info: "name": "Floor(n*Pi).",

Found match: A073934
info: "name": "Sum of terms in n-th row of triangle in A073932.",

Found match: A120068
info: "name": "Numbers n such that n-th prime + 1 is squarefree.",

Я попытался сделать первый, который в основном делается с YP*k:

3x2x       # Push 3, delete it, push 2 and delete that too
    YP     # Push pi
      *    # Multiply by implicit input
       k   # Floor function

Джолф, 3 байта , Истерли Ирк , A001477

axx

Состоит из простого кота ( ax) с последующим запретом. Не уверен, что коп собирался здесь.

Ява, 479 байт , Даниэль М. , A000073

Код:

import java.util.*;
public class A{

    public static int i=0;
    public boolean b;

    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++)if(ix>2){
            l.add(0,l//d
            .get(1)+l.peekFirst()+     l.get(2));
        }

        System.out.println(input<2?0:l.pop()
              +(A.i        +(/*( 5*/ 0 )));
    }
}

Если вы пропустите нераскрытых персонажей, они заменяются пробелами.

Рубин, 38 байт, гистократ , A008592

->o{(s="+o++o"*5).sum==03333&&eval(s)}

Может отличаться от предполагаемого решения, так как я нашел это вручную.

05AB1E , 4 байта, Пол Пикард , A001317

Код:

$Fx^

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

Объяснение:

$      # Pushes 1 and input
 F     # Pops x, creates a for-loop in range(0, x)
  x    # Pops x, pushes x and 2x
   ^   # Bitwise XOR on the last two elements
       # Implicit, ends the for-loop
       # Implicit, nothing has printed so the last element is printed automatically

Последовательность в основном представляет собой двоичный треугольник Серпинского:

f(0)=      1                    =1
f(1)=     1 1                   =3
f(2)=    1 0 1                  =5
f(3)=   1 1 1 1                 =15
f(4)=  1 0 0 0 1                =17

И переводит в формулу a (n) = a (n - 1) XOR (2 × a (n - 1))

К счастью, я вспомнил об этом :)

СИЛОС , бетсег , A001844

readIO
a=i
a+1
i*2
i*a
i+1
printInt i

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

Джольф, 5 персонажей , Cᴏɴᴏʀ O'Bʀɪᴇɴ , A033536

Код:

!K!8x

Выход:

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

Reng v3.3 , 36 байт , Cᴏɴᴏʀ O'Bʀɪᴇɴ , A005449

iv:#+##->>)2%æ~¡#~
#>:3*1+*^##</div>

Выход

a(1) = 2
a(3) = 15

объяснение

Я полностью проигнорировал заранее заданные команды, за исключением того, )что у меня не было достаточно места.

На самом деле полезные команды здесь:

iv      >>)2%æ~
 >:3*1+*^

Растягивается на прямую линию:

i:3*1+*)2%æ~

С объяснением:

i:3*1+*)2%æ~ stack
i            [1]      takes input
 :           [1,1]    duplicates
  3          [1,1,3]  pushes 3
   *         [1,3]    multiplies
    1        [1,3,1]  pushes 1
     +       [1,4]    adds
      *      [4]      multiplies
       )     [4]      shifts (does nothing)
        2    [4,2]    pushes 2
         %   [2]      divides
          æ  []       prints
           ~ []       halts

Формула есть a(n) = n(3n+1)/2.

05AB1E, 3 байта , Adnan , A000292

LLO

Выход

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

Как это устроено

LLO Stack
L   [1,2,3,4,5,6,7,8,9]                         range
 L  [1,1,2,1,2,3,1,2,3,4,...,1,2,3,4,5,6,7,8,9] range of range
  O sum all of them

Математический эквивалент sum(sum(n)), где sumнаходится summation.

Джольф, 11 байт, QPaysTaxes , A000005

aσ0xxdxxxxx

Достаточно просто: aвозьмите σ0(количество делителей) x, затем положите бесполезные вещи в конце.

Попробуйте онлайн! Кнопка набора тестов немного сломалась, но все равно показывает правильные результаты.

(Вы могли бы сделать это до двух байтов! Просто σ0было бы неплохо.)

Python 2, 87 байт , Sp3000 , A083054

n=input()
_=int(3**.5*n)-3*int(n/3**.5)########################################
print _

Не так сложно, на самом деле. Просто искал последовательности, которые соответствовали ограничениям, пока я не нашел ту, которая могла быть сгенерирована в данном пространстве.

Jolf , 11 байт, RikerW , A011551

Код:

c*mf^+91x~P

Объяснение:

     +91     # add(9, 1) = 10
    ^   x    # 10 ** input
  mf         # floor function (no-op)
 *       ~P  # multiply by phi
c            # ¯\_(ツ)_/¯

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

JavaScript (ES6), 119 байт, Cᴏɴᴏʀ O'Bʀɪᴇɴ , A178501

x=>(n="=>[[["|x|"##r(###f#n###;##")|n?Math.pow("#<1##].c####t.##pl##[####nc#"|10,"y([###(###(#]###)"|x-1|``):0|`#h####`

Я уверен, что реальный код генерирует более хитрую последовательность, чем эта, но только с двумя выходами эта последовательность OEIS проста и соответствует им.

Без всех игнорируемых символов алгоритм просто x=>x?Math.pow(10,x-1):0.

05AB1E , 5 байтов, Луис Мендо , A051696

Код:

Ðms!¿

Объяснение:

Ð      # Triplicate input.
 m     # Power function, which calculates input ** input.
  s    # Swap two top elements of the stack.
   !   # Calculate the factorial of input.
    ¿  # Compute the greatest common divisor of the top two elements.

Таким образом, в основном это вычисляет gcd (n !, n ⁿ ) , который является A051696 .

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

PHP, 18 байт, имя_пользователя здесь , A023443

Код:

echo$argv[1]+0+~0;

Выход:

a(0) = -1
a(1) = 0

Октава (34 байта) Стьюи Гриффин

Последовательность A066911 .

@(m)(mod(m,u=1:m  )&isprime(u))*u'

PHP, 137 байт, имя_пользователя здесь , A000959

Код:

for($s=range(1,303);$i<($t=count($s));$s=array_merge($s))for($j=($k=++$i==1?2:$s[$i-1])-1;$j<$t;$j+=$k )unset($s[$j]);echo$s[$argv[1]-1];

Выход:

a(3)  =   7
a(7)  =  21
a(23) =  99

05AB1E, 10 байтов, Джордж Гибсон , A003215

Код:

Ds3*s1+*1+

Объяснение:

Вычисляет 3 * n * (n + 1) +1, который является последовательностью A003215.

Элемент , 10 байт , PhiNotPi , A097547

2_4:/2@^^`

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

Выход

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

Пайк, 6 байт , мутная рыба , A005563

0QhXts

Хе хаки! 0QhИ sнет-OPS. hXtпросто вычисляет (n + 1) ^ 2 - 1.

J, 8 байтов, Кенни Лау , A057427

Код:

(-%- )\.

Выход:

a(0) = 0
a(1..29) = 1

Я не думаю, что это предназначено. И я не знаю, почему у J такое поведение. Но это работает.

Pyth , 70 байтов, FliiFe , A070650

Код (с обфусцированной версией ниже):

DhbI|qb"#"qb"#"R!1Iqb"#";=^Q6+""s ]%Q27  ;.qlY+Q1Ih+""Z##;.q)=Z+Z1;@YQ
DhbI|qb"#"qb"#"R!1Iqb"#"#####+""s####2###;##lY+Q1Ih+""Z#####)=Z+Z1;@YQ (obfuscated)

Это в основном делает:

=^Q6%Q27

Он вычисляет a (n) = n ⁶ % 27 , что составляет A070650 . Объяснение:

=^Q6       # Assign Q to Q ** 6
    %Q27   # Compute Q % 27
           # Implicit output

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

Python, 108, CAD97 , A005132

def a(n):
 if n == 0: return 0
 f=a(n-1)-n
 return f if f>0 and not f in(a(i)for i in range(n))else a(n-1)+n

Запутанный код:

def a(n):
 ###n####0######n#0
 f=a#######
 return f #f#####a###### f ####a(##f###i#i###a####n##else a#######

Выходы:

>>> a(0)
0
>>> a(4)
2
>>> a(16)
8
>>> a(20)
42