Ваша задача как грабителей состоит в том, чтобы найти решения полицейских и написать программу на языке, который вычисляет n-й член последовательности, используя только байты из предоставленного набора.
Целью будет взломать как можно больше ответов полицейских. С каждой трещиной присуждается одно очко.
Трещины не должны быть предполагаемым решением полицейского, пока они работают.
sequence
restricted-source
cops-and-robbers
Пост Рок Гарф Хантер
источник
источник
Ответы:
Haskell, xnor
Попробуйте онлайн!
Первая строка определяет
s
как фиксированную точкуshow
функции, которая является бесконечной строкойУ него
"
s с индексами 0, 2, 6, 14, 30… Степени два, минус два.Вторая строка определяется
ss
как строкаОн имеет non-
\
s при индексах 0, 1, 2, 4, 8, 16, 32 ... полномочия двух, игнорируя 0.Мы повезло: в ASCII,
"
<[
<\
, так что мы можем написать функцию индикатора для обратной косой черты менее чем в этой строке, и мы сделали!w h
это наш ответ: он проверяет, меньше лиh
элементss
с обратной косой чертой. Ну, мы не можем создать строку, содержащую только обратную косую черту, поэтому мы создаем другую строку, которая всегда больше"["
, а именноshow[h]
.источник
Октава , Стьюи Гриффин
Анонимная функция.
объяснение
Попробуйте онлайн!
источник
JavaScript (ES6), Арнаулд
Выходы
0, 1, 4, 9, 16, 25, ...
.Наименование ввода
$
делает его более сложным, чем должно быть.atob('ICo=')
оценивается*
с лидирующим пробелом (найдено вручную). Это делает${$}${atob(`ICo=`)}${$}
бытьn *n
там, гдеn
вход.eval
Инг дает квадрат.Показать фрагмент кода
источник
a=>eval(`a${atob`ICo`}a`)
. Конечно, любая другая буква может быть использована в качестве входной переменной. (Даже если вы хотите использовать$
, вам не нужно делать${$}
.)${$}
действительно довольно глупо.Питон 2, Род
Очень неоптимальный, хотя. Код:
Попробуйте онлайн!
источник
and
иnot
с ,()
чтобы сделать1
и0
. :(import
был доступен, а такжеfrom
d
, но нужно ли использовать все байты хотя бы один раз?sum
Хаскелл, Кристиан Сиверс
Попробуйте онлайн!
Примечание:
product(map(pred)mempty)
строка 5 отличается от строки 1, поскольку первая имеет тип,Int
а вторая - типInteger
.источник
mempty
! В следующий раз я скажуHaskell 98
... Можете ли вы обойтись безy
? Но использованиеproduct
является основной идеей, поэтому я думаю, что я не начинаю новую версию этой задачи. И я хотел, чтобы был (или я мог установить) срок. Кстати,ao
выглядит ненужным сложным.ao
это лишнее, потому чтоaddone(x)=head(drop(product(map(pred)mempty))(enumFrom(x)))
. Иone(x)=product(enumFromTo(x)(pred(x)))
гдеx
номер ввода, но это не работает для1
используемых сdrop
.Хаскелл, Кристиан Сиверс
Попробуйте онлайн!
источник
Хаскелл, Кристиан Сиверс
Попробуйте онлайн!
источник
head
в нужном месте. Как и все ваши другие проблемы, это было довольно весело.Питон 2, Брюс Форте
Попробуйте онлайн!
Вау. Это было весело.
источник
Р, Ярко
Я вообще не знаю R, так что это всего лишь предположение.
Попробуйте онлайн!
источник
Р , Ярко
Попробуйте онлайн!
Определенно у меня ушло минут пять , чтобы попытаться выяснить , как получить
1
из букв, но потом я вспомнил , что**
это^
так , что сработала! (и0^0=1
в R)источник
**=^
. Не знал этого.n==n
кстати.f=function(n,c=n==n)'if'(n,f(n-(n==n),c*n),c*(n==n))
f=function(n)'if'(n-n==n,n**n,n*f(n-(n**(n-n))))
cQuents, Step Hen
Это, кажется, делает трюк:
Попробуйте онлайн!
источник
C (gcc) , dj0wns
Попробуйте онлайн! Орграфы, орграфы везде!
источник
Ruby, Value Ink
С флагом -n,
p$./$$
Это мое предположение о предполагаемом решении. Игнорирует ввод и просто выводит этаж 1 / идентификатор процесса. Поскольку идентификатор процесса обычно не может быть 0 или 1, это всегда должно быть 0.
источник
Хаскелл , Кристиан Сиверс
Попробуйте онлайн!
источник
Хаскелл, Лайкони
Если возвращение
Int
достаточно хорошо, это делает это:источник
Javascript, Iovoid
Попробуйте онлайн!
источник
Хаскелл, Кристиан Сиверс
Попробуйте онлайн!
Наконец исправлено это для целых, а не целых. Очень медленно.
источник
maxBound::Int
, поэтому я думаю, что это не так верный.g
? - Кстати, вы могли бы использоватьu(n)=negate(pred(negate(n)))
u
, я хотел бы подумать об этом. Я не знаю, как это сделатьg
, мне было очень сложно определить сложение для Integer с вашим байтом.Befunge , Джордан
Попробуйте онлайн!
источник
R , Ярко, снова
Это отличается от предполагаемого решения Ярко Дуббельдама, но общая идея та же: для генерации
1:n
повторяющихся1:n
времен используютсяdiag
два разных способа:diag(matrix)
возвращает диагональ матрицы.diag(vector, nrow)
генерирует матрицуnrow
xnrow
сvector
диагональю по мере необходимости.%x%
это матричное произведение Кронекера, которое при применении к двум числам возвращает их обычное произведение.В заключение,
cat
печатает диагональ с помощьюsep
arator''
что приводит к последовательности.Попробуйте онлайн!
источник
С, Иминь Ронг
t
умножение,r
возведение в степень,g
реальная функция. Добавлены новые строки для удобства чтения, они не нужны.источник
Хаскелл , Кристиан Сиверс
Попробуйте онлайн!
источник
__ ___=[-___-___-___,___..]!!___
R от Jarko Dubbeldam
Это заняло у меня некоторое время, так как я не знаю R, и мне не удалось использовать
t
дважды:Попробуйте онлайн!
объяснение
Он использует тот факт, что
cos(t*pi/2)
имеет период4
in,t
и последовательность начинается с: [1, 6.123234e-17, -1, -1.83697e-16]. Как вы можете видеть знаки являются правильными, поэтому нам просто необходимо нормализовать значения , но сохраняя знак - вот чтоx/abs(x)
делает дляx != 0
.Проверьте источник!
источник
cos(t=scan())
не будет работать, потому что R не может различить=
для присваивания или для спецификации аргумента. В брекетах, однако, это не проблема:cos((t=scan()))
но это длиннееcos(t<-scan())
, поэтому не используется при игре в гольф.*
была красная сельдь и наcospi
самом деле правильно рассчитываетcos(pi/2)=0
... и это будет 1-индексированоsin
вместоcos
CPython 3.6, от wizzwizz4 (A000002)
Я вручную писал строки до
ll=list(dd)
, но остальная часть кода была сгенерирована этой программой на python:Сгенерированный код почти наверняка может быть лучше, но это усложнит генератор кода.
источник
Питон 3 , мистер Xcoder
Попробуйте онлайн!
источник
Питон , полностью человек
Попробуйте онлайн!
Мы действительно должны прекратить публиковать наши ответы от предыдущего вызова OEIS :)
источник
Питон 2 , Род
Попробуйте онлайн!
источник
Python 2 , Bobawob
Попробуйте онлайн!
источник
Python 2, полностью человеческий
Попробуйте онлайн!
источник
int(...)
Python 2 , полностью человеческий
Попробуйте онлайн!
источник
Желе, огненное пламя241
Попробуйте онлайн!
источник