Это задача полицейских и грабителей , поток грабителей можно найти здесь .

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

Вот пример в Haskell, который работает для A000217 и A000290 .

f x|last"A000217"=='0'=x^2|1>0=sum[1..x]

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

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

Ввод, вывод

^{Взято отсюда}

Ваш код может быть функцией или полной программой, которая принимает n с помощью стандартного метода ввода и выводит n- й член последовательности, как указано в указанном индексе на странице OEIS.

Вы должны поддерживать все значения, указанные в файлах OEIS b для этой последовательности, любое число, отсутствующее в файлах b, не должно поддерживаться.

счет

Ваша оценка будет равна количеству байтов в вашем коде, а меньшее количество байтов будет лучше.

Python 3, 59 байт, A162626 , взломан Wheat Wizard

lambda n:n*(n+1)*(n+2)/3if 0<=n<=3else n*(n**2+5)/3#A162626

Это как должно было бы невозможно, не так ли?

Python 3 , 62 байт, A017016 ( Cracked )

n=int(input())
print(sum(1for i in"A017016"if i>"0")*-~n//-~n)

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

Japt , 13 байт ( треснувший )

Существует (по крайней мере) еще одно решение, если кто-то еще хочет нанести удар.

p#A000012uCnG

Попробуй онлайн
A000012

объяснение

#затем символ в Japt дает нам код этого символа, к #A=65которому затем добавляется остальная часть числа, давая нам 65000012или 65000290.

uэто метод по модулю (он отличается от %того, что всегда будет возвращать положительное число). Метод вычитает число он применяется, из числа переданного ему. и являются константами Джапта для 11 и 15 соответственно. Итак, дает нам . У нас сейчас есть и . Метод повышает число он применяется к (в данном случае , то есть, неявно, входное целое число ) в степень числа переданного ему, что дает нам 2 окончательных формул и .

nCGCnG4

65000012%4=065000290%4=2pUU**0U**2

MATL , 30 29 байт ( треснувший )

A077430I\2-|Gw^1Mwx*10&Ylk1+&

A077430

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

-1 байт благодаря @Sanchises

C #, 28 байт ( треснувший )

n=>n*n*("A000290"[6]<49?1:n)

Работает с A000290 .

Легко начать.

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

Python 2, 43 байт, A000079 ( Cracked )

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

lambda n:((sum(map(ord,'A000079'))*2)%8)**n

C #, 75 байтов, ( треснувший )

n=>{int r=1,e=3-0xA000244%2;for(;n>0;e*=e){r*=(n%2>0?e:1);n>>=1;}return r;}

A000244

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

Python 2 , 53 байта, A000012 [взломан]

lambda x:len(`x**(sum(map(int,'A000012'[1:]))==22)`) 

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

Следующая последовательность - A055642 (длина цифр в десятичном числе). Для которого число оценивается само по себе, так как сумма цифр в OEIS равна 22; Таким образом, len (...) вычисляет фактическую длину введенного числа для «A055642». Для последовательностей A000012 (или любой другой, кроме A055642. Значение len всегда будет равно единице, поскольку оцененное число будет равно 1).

Python 3, 65 байт, A000027, взломан

a=lambda a,n=((int("A000027",11)-0x103519a)%100%30+1)/2:a//(14-n)

Уу сумасшедшая арифметика!

Smalltalk, 148 байт, безопасно!

|x o|x:=(16rA018253*0.00861-1445345)floor. o:=OrderedCollection new. 1 to:x/2 do:[:i|x\\i=0 ifTrue:[o add:i]].o add:x.^o at:stdin nextLine asInteger

A018253

Принимает целое число в качестве входных данных, последовательность основана на 1.

Предполагаемая вторая последовательность A133020 . В рецензии для A018253 есть ссылка на список записей для последовательностей, связанных с делителями чисел . В этом списке A133020 находится под делителями квадратов: 100² . Если вы хотите увидеть всю последовательность, вставьте Transcript show: o printString; cr.перед ^оператором return в коде.

Haskell, 226 байт, безопасно!

Не уверен, умный или уродливый, может быть, оба ...

o n=read.pure.(!!n)$"A001906"
m::Integral a=>[a->a->a]
m=[const,(+),(-),(*),div,(^)]++(flip<$>m)
l=o 1:o 3-o 1:zipWith(m!!(o 6+o 3-o 2))(tail l)l
f=(l!!).((m!!(o 4+o 5+o 6-2*o 1-o 2))$sum[1|n<-[1..6],odd(o n)]).((m!!o 6)$o 3)

Итак, теперь он вычисляет A001906 , но он должен быть в состоянии генерировать много последовательностей.

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

Решение: A131078

Хотите знать, было ли это слишком сложно или никто не пытался?

o 1чтобы o 6те цифры номера серии, mсписок операций. lявляется рекурсивно определенным бесконечным списком с первыми двумя значениями, полученными из номера серии, а остальные вычисляются из предыдущих двух с использованием фиксированной операции from m. В случае A001906 определение можно упростить до

l=0:1:zipWith(flip(+))(tail l)l

(flip(+))является (обычно) тем же самым (+), и мы получаем хорошо известное (но не самое короткое) определение чисел Фибоначчи. Эта схема рекурсии может напрямую вычислять A001906, но для этого требуется более сложная операция, чем в m. Другой пример: используя начальные значения 1и, 2и операция (*)дает серию A000301 . Он вычисляется нашим кодом, когда номер серии заменяется на ?103206.

Наконец, функция fиндексируется в списке l, но только после некоторого преобразования ввода. Для A001906 средняя часть уменьшается до (*)2, так что мы получаем только числа Фибоначчи на четных позициях. Правая часть становится flip const 1, которая является функцией идентичности и больше не мешает.

Для решения A131078, исходные значения lявляются 1и 0, и операция flip const, которая позволяет lбыть 1,0,1,0,.... Средняя часть fстановится (flip div 4), в результате 1,1,1,1,0,0,0,0,1,1,1,1,0,0,0,0,.... Это выглядело как хороший ответ, но затем я увидел, что начинается с A131078 n=1, поэтому я добавил правую часть f, которая здесь flip(-)1вычитает одну.

Моя идея состояла в том, чтобы сделать его немного запутанным, используя mи индексируя в нем цифры из номеров серии, затем он стал более запутанным (сложные термины), чтобы заставить его работать (возможно, я не долго искал альтернативы); и затем это стало еще более запутанным (правильная часть f), чтобы заставить это действительно работать. Тем не менее, я думаю, что некоторые догадки и попытки могли бы сломать это.

постоянный ток , 52 байта, трещины

Этот работает с A000217 :

?SaA000217d8d1+Sb%1r-dScla*r10 7^-Lb%+la*1+Lc+La*2/p

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

Python 3.6, 114 байт, взломан

from random import*
g=lambda n:eval(''.join(Random("A005843").choices('n8-9+17n#8*+26%n1 32-3+4-545*-#6*7',k=34)))

A005843

g(n) возвращает n-ое значение последовательности для n> = 0.

random.choices(s,k)является новым в Python 3.6, он возвращает kэлементы, выбранные из sс заменой.

Чип , 67 байт, взломанный Иминь Ронг

2D5B#{*Cm49!}E-7
(A000012d#,zkmsh
b-\6/e2)[1Zv^~^S
33a#kcf3g88taz1@

A000012 . Немного дерзкий, да.

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

Использует байты для ввода / вывода, поэтому я был хорош и создал оболочку bashy / pythony.

Альтернативная последовательность A060843 . Попробуйте онлайн для входов 1..4.

Иминь Ронг сгорбился, такая короткая чип-программа может рассчитывать только очень простые вещи. Первоначальная последовательность является единственной, а альтернативная последовательность представляет собой номера занятых бобров, из которых известны только 4.

Эти числа 1, 6, 21, 107просто жестко запрограммированы для входов 1..4.

Интересной особенностью использования Chip для этой задачи является то, что цифры 0- 9это не числа, а логические элементы. В частности, 0- 7это восемь битов, адресованных головке стека, и 8и потенциальная раздача в том, что только -9 - переключатели чтения и записи. Это сделало это немного более интересным и запутанным.

ADпоявляются, означая, что у нас есть только 4 бита для индексации последовательности. Это означало, что может быть не более 16 различных значений. Фактически, только A- Cфактически используются для альтернативной последовательности, давая не более 8 различных значений.

Для тех, кто может быть заинтересован, вот тот же код без лишних элементов и неиспользуемых элементов:

,

   B  *C 49!
 A000012d ,z  s
b-\6/e   1Zv-~^S
`3a`-cf3g`8taz1