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

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

Зламаний код не повинен бути ідентичним, якщо він має однакову довжину і будь-які виявлені символи знаходяться в правильних положеннях. Мова також повинна бути однаковою (номери версій можуть бути різними). Зрозуміло, вихід повинен бути однаковим.

У розчині грабіжника не можна застосовувати жодних опцій.

Переможцем розбійного потоку стане той користувач, який зламав більшість матеріалів до 7 травня 2016 року. Якщо буде зв'язано, виграє той, хто зламав подання з найдовшим комбінованим кодом.

Подання має бути відформатоване так:

Мова, nn символів (включаючи посилання на відповідь), ім'я користувача Cop

Код:

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 визначається як A (N): = р _п ² + 2 , де р _п є (п + 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 байт , користувач81655 , 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`}

Примітки. Мене }довгий час ввели в оману для soooooo. Так воно і відповідає [.

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

Як це працює:

_'[,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

Jolf, 3 байта , Easterly Irk , A001477

axx

Складається з простої кішки ( ax), за якою слідує не-оп Не впевнений, для чого тут збирався коп.

Java, 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))

На щастя, я згадав це :)

SILOS , betseg , 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 _

Насправді не так важко. Просто шукав послідовності, які відповідали обмеженням, поки я не знайшов тієї, яку можна було б генерувати у заданому просторі.

Джольф , 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, що є послідовністю Oeis A003215.

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

2_4:/2@^^`

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

Вихідні дані

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

Пайк, 6 байт , каламут , A005563

0QhXts

Так, хакі! The 0Qhі sне є. 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