Это часть задачи полицейских и грабителей . Иди сюда для части полицейских.

Вызов грабителей

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

Если вам это удастся, опубликуйте ответ с решением, со ссылкой на ответ полицейского, и оставьте комментарий к ответу полицейского со ссылкой на ваш.

Грабитель, который взламывает больше всего ответов, побеждает. Связи разбиваются по сумме размеров ответов взломанного полицейского (в пользу грабителя, который взламывает более длинные представления).

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

Примеры

Вот несколько простых примеров на разных языках:

Ruby

Haystack: puts 1>0?"Haystack":"Needle"
Delete:        XXXXXXXXXXXXXXX
Needle:   puts "Needle"

Python 2

Haystack: print "kcatsyaHeldeeN"[-7::-1]
Delete:          XXXXXXXX        XX
Needle:   print "eldeeN"[::-1]

Обратите внимание, что подмножество удаленных символов не обязательно должно быть смежным.

JavaScript, 85 байт (ES6)

Трещины ответ Arnauld в

f=(k=b=x=35)=>x--?f(k*4853461&268435455):k&2?'N'+(k^12408877).toString(b):'Haystack'

"Needle" демо

f=(k=b=x=35)=>x--?f(k*4853461&268435455):k&2?'N'+(k^12408877).toString(b):'Haystack'

console.log(f())

объяснение

Первоначальная функция была:

f=(k=b=x=35)=>x--?f(k*74837258394056219&268435455):k&2?'N'+(k^124038877).toString(b):'Haystack'

который более читабелен как:

f = (k=b=x=35) => {
    if (x--) {
        return f(k*74837258394056219&268435455);
    } else {
        if (k&2) {
            return 'N'+(k^124038877).toString(b);
        } else {
            return 'Haystack';
        }
    }
}

Обратите внимание, что когда n=21625674, то n.toString(35)есть 'eedle'.

35 во входных данных, вероятно, нельзя изменить на подмножество (потому что мы хотим, чтобы база была достаточно большой, чтобы содержать все буквы «del», поэтому нам нужна база, которая по крайней мере 22). Таким образом , число , чтобы изменить это 74837258394056219, 268435455и 124038877. Мы хотим заменить их числами a, b, c, каждое из которых образовано подмножеством цифр исходных чисел, так что функция g(k) = (k * a & b), начиная с k=35итераций 35 раз, а затем XORed с c, дает 21625674.

Для этого, после того, как думать немного, так как длина мала (максимальные aимеют длину 17, bи cимеет длину 9), я использовал только грубую силу :-) Написал на C ++ программы , чтобы генерировать все возможные номера a, b, cвыполнен в виде подмножеств из исходных чисел, переберите все aи b, и проверьте, был ли требуемый cв наборе. Запускается в около 15 секунд, и только выход a=4853461, b=268435455, c=12408877(оказывается числом bне нужно менять). Я не уверен, есть ли более умный способ инвертировать эту функцию.

Стог сена , 82 байта

Трещины Ответ HyperNeutrino в

0\1-c\
/    
?10F17+c8F+4+cd8F+3+c6-c1+c,c2+c8+c|
 0   \1++c,c|
F/c++2F8
c\8F+2+cd

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

Brain-Flak , 96 байт

Cracks Funky Computer Мужской ответ .

([((((()()())){}){}){}](()[()]({}([(((()()()){}))[]])[]({}({}()(((()(({}){}){}){}){}())))[]))())

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

Это было забавное испытание.

-24 в начале которого обращенные yк aв оригинале теперь используется для преобразования , eчтобы M, который затем преобразуется в Nместе, изменяя всю конечную петлю к ()). Первое нажатие буквы kбыло заменено eпростым удалением push-pop, который добавляет 6 к нему. Остальные в основном просто встали на свои места, с некоторыми юмористическими ошибками на этом пути (включая одну программу, выход которой был Meddle).

Сравнение двух программ:

Haystack: ([((((()()())){}){}){}](()([()](()({}([((((()()()){})))[]])[]({}({})[{}]()({}((()(({}){}){}){}){}())))[][][][][][]))[]))(((()[]){}){({}[()()])}{})
Needle:   ([((((()()())){}){}){}](() [()]   ({}([ (((()()()){})) []])[]({}({}     ()(  ((()(({}){}){}){}){}())))[]              ))   ()  )

Haskell

Трещины @ Лайкони ответ .

s=map;hay=zipWith;a=head;h=s a.(hay(scanr id).s a<*>s(succ<$))$words"Haysta ayst ackH ays k ayst"

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

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

hays=map;hay=zipWith;stack=head;h=stack{-
 hay.(hays.(stackany hay$or id).stack hay
<*>hays(sum$stack haystack<$>hay))-}$words
 "Haystack Hayst ackH aysta ckH aystac k"

замена удаленных символов подчеркиванием:

___s=map;hay=zipWith;__a__=head;h=s______
 _a_.(hay__(s__c_an_______r id).s____ _a_
<*>___s(su_____c________c_<$____))__$words
 "Haysta__ _ayst ackH ays__ _k_ ayst____"

Как Needleпостроено: строка в конце кода разбита на слова. Первый символ каждого слова увеличивается столько раз, сколько в нем есть символов, например Haysta-> Hплюс 6 символов -> N.

Гексагония , 17 байт, H.PWiz

]; N @ сл; е ;; (\ s;.. _

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

Сравнение с оригиналом:

];N.@cl;e@;;(\H/;ya;_.>s.;t//<._  original
];N @cl;e ;;(\       . s.;     _  modified

Визуализация:

  ] ; N
 @ c l ;
e ; ; ( \
 . s . ;
  _ . .

объяснение

Бонусные метки - использует все 6 IP-адресов и все, кроме одной ячейки!

IP # 0 начинается с того, что идет по черному пути в ].
Затем мы переходим к IP # 1, который идет по красной дорожке, печатая, Nа N;затем снова оборачивая ].
Затем мы переходим к IP # 2, который идет по синему пути, сохраняя eв текущей ячейке памяти, затем по зеленому пути, выполняя (с отражением в \), ;;(;которое печатает ee, уменьшает ячейку памяти с того, eчтобы dзатем печатать d.
IP продолжается по оранжевому пути, выполняя Nl;seкоторый печатает lи сохраняетe в текущей ячейке памяти. Это продолжается по коричневому пути, печатая eс;, К этому моменту мы уже напечатали Needle, так что остальное только заканчивается. IP хранит c, потом хиты ].

Затем мы переходим к IP # 3, который движется по синему пути, ударяясь \, прыгая, в _который врезается ].
Затем мы переходим к IP # 4, который идет по зеленому пути, подпрыгивая _, затем \и переходя к ](так cкак он положительный).
Наконец, мы переходим к IP # 5, который eзатем сохраняет данные с выхода @.

Python 2 , 123 байта

Трещины agtoever Ответит

import numpy
print "".join([dir(numpy)[int(i)][0] for i in numpy.poly1d([-143/2e1,-31,14,131,61,184])(numpy.arange(-3,3))])

repl.it

Сравнение:

print "".join([dir(numpy)[int(i)][1-0] for i in numpy.poly1d([-1*1433/252e1,-3232/1920.,4026./72/2/3.,613/(6*4.)*1,-4723./1.8e2,-9763/120.,-2689/(-1+5*17.),1+138*.4*2])(numpy.arange(-12/3,13%9))])
print "".join([dir(numpy)[int(i)][  0] for i in numpy.poly1d([-1  43 /2  e1,-3    1    ,               1     4    ,       1         3 1   ,  6     1       ,1   8  4  ])(numpy.arange(-   3, 3  ))])

Мне было очень весело находить решения, которые печатали Meedleи Needlfподбирали многочлен к медиане индексов числовых символов, начинающихся с каждой буквы Needle. Затем я попытался вручную найти похожие коэффициенты с подмножествами исходной программы, но в итоге мне пришлось прибегнуть к грубому принуждению, чтобы найти верное решение.

Javascript, 91 байт

_=>(+{}+[])[+[]]+([][[]]+[])[3]+([][[]]+[])[3]+([][[]]+[])[2]+(![]+['t'])[2]+([][[]]+[])[3]

Трещины это . На самом деле это было весело.

let f =

_=>(+{}+[])[+[]]+([][[]]+[])[3]+([][[]]+[])[3]+([][[]]+[])[2]+(![]+['t'])[2]+([][[]]+[])[3]

console.log(f())

Желе , 14 байт

Взламывает ответ Джонатана Аллана

“¡#ɦṢÞɠ»ḟ“¡pṄ»

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

Сравнение:

“¿ọ⁽ṅ*FỊ⁼g£¡#!ʋzoɦṪ£ṢÞḲÐɠ`”m3⁾“»jVḟ“¡!pṄ»
“          ¡#    ɦ  ṢÞ  ɠ      »  ḟ“¡ pṄ»

Я использовал œcдля перебора различных подмножеств буквенных строк, используемых tr -dдля каждого возможного фильтра, и grepредактировал для Needle. Использование предположения о том, что ни один из использованных символов в первой строке не использовался в ответе, позволяет найти ответ менее чем за 15 секунд.

Python 2 , 73 байта

Трещины user71546 Ответим .

a,b,s=2707385038437,0b10000000,""
while a>0:
 s=chr(a%b)+s
 a//=b
print s

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

Решено с помощью этой программы.

Java (OpenJDK 8), 191 байт

Взламывает ответ Люка Стивена

String d(){int h=3905055,m=55,s=15443;String d="0"+h*2+""+m*20+""+s*7,x="",y;for(int g=0;g<d.length();g+=3){y="";for(int e=0;e<3;e++)y+=d.charAt(e+g);x+=(char)Integer.parseInt(y);}return x;}

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

Удаленные символы:

int h=3609000-5055+911,m=557558,s=15441301-157*10000
       xx  xxx    xxxx     xxxx       x xxxxxxxxxxxx

Это заставляет dоценивать 078101101100108101, какие заклинания Needle.

Рубин , 149 байт

Взламывает это: /codegolf//a/144790/74216

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

Редактировать: И после этого нашел еще более короткий ответ.

x='hxDKFQOoqJLuVNW'
s="n=x.to_i 36;x.bytjs.jach_cons(3){|a,b,c|n+=n*b%c;n*=a^b};puts n%8675309==1388649 ?'Njjdlj':'Haystack'"
eval s.tr ?j,s.size.chr

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

Изменения:

x='yGwztsPXhxDkBKlCYdFjQnpUROfoHvqmTgbaJSLcEiZrIAuMVNW'
x='        hxD  K    F Q    O o  q     J L       u VNW'

# and here's some more variants for extra pwnage:
x=' G  tsPx     KlCYd  Qn U   o v mT  a SLc    I u  NW'
x='  w  s    D BKl  dF QnpU O        ba SLcEiZrI  MV  '
x='yGwz s Xh Dk K C  F  npU O  Hvq   b   L    rIAu V W'

постоянный ток , 34 байта

93 9 2*+432212+ 47*4242160 7 2++*P

Трещины это . TIO .

Я начал с получения числового представления Хейстек (5215583380252484459) и Игла (86197399743589). Далее я произвел факторизацию последнего, которая составляет 47 * 432323 * 4242169. Исходя из этого, было довольно легко восстановить эти цифры.

Маркировка используемых символов:

6 93 3 9 2 2**+*+483622 1 2 3 3*+3*+89 47*+*+3 5 2* 269 158 9**107 97*2 4*++2 3 3*+42 14 2**+*+5*+5 2148 1 6 2*+*+68262 5 280 7 2 3 3*+5 2**+*+*+*+P
  XXX  XXX   XX  X X XX X X     X     XXXX                              X   X      XX X                    X                XXXXX     X     XX     X

Гексагония , 19 байтов, Мартин Эндер

[@;(...e<l.a;./;N>;

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

Сравнение с оригиналом

H[@;(...e<l.a;./$.>;\sN;\ac.>).;;;._y
 [@;(...e<l.a;./   ;  N     >  ;

Развернутый код

  [ @ ;
 ( . . .
e < l . a
 ; . / ;
  N > ;

Итак, я никогда ничего не писал в гексагонии, но я рассчитывал только с 37 байтами, которые я мог бы придумать. Мартин, я надеюсь, ты знаешь, что я потратил много времени, чтобы понять это. :)

Я могу ошибаться, но я объясню, что, по- моему , делает этот код:

Программа начинается с [, который автоматически переходит на IP # 5. Этот IP-адрес начинается в западном углу, [снова направляясь к IP-адресу 4. Отсюда он выполняет, N;eзатем направляется в юго-восточный угол и выполняет ;, подпрыгивает вправо для другого, ;затем оборачивается, (что уменьшает ток eдо a d. Затем он продолжает (с переносом) ...;.затем отскакивает к lи попадает в [последний раз, переходя на IP # 3. Он выполняет ;, >перенаправляет на северо-запад, а .затем <перенаправляет на запад, нажимая e, оборачивая ;и заканчивая на @.

Подробная версия

[   We move to the previous instruction pointer (starting at the e and moving NE)
e   e is entered into the current memory cell
(   Decrements the memory cell to d
[   We move to the previous instruction pointer (starting at the N and moving NW)
N   N is entered into the current memory cell
;   Outputs N
e   e is entered into the current memory cell (IP now wraps to the SE corner)
;   Outputs e
/   Mirrors IP to the east
;   Outputs e (IP now wraps to ( on NW edge)
(   Decrements the memory cell to d
... No-ops (IP now wraps to ; on SW edge)
;   Outputs d
.   No-op
/   Mirrors IP to the NW
l   l is entered into the current memory cell
.   No-op
[   We move to the previous instruction pointer (starting at the ; and moving west)
;   Outputs l
>   Redirects the IP NW
.   No-op
<   Redirects the IP west
e   e is entered into the current memory cell (IP now wraps to ; on the NE corner)
;   Outputs e
@   Terminates the program

Я так рад, что вы использовали нормальный размер шестиугольника для программы Needle; Я проверял программы размера 19 (для шестигранника с длиной стороны 3), когда понял, что вы можете удалить любое количество символов, и он автоматически заполнит шестигранник .s в конце, что значительно усложнит его взлом. Как таковой, Hexagony - злой язык для этой задачи, потому что (в основном) любой удаляемый символ меняет весь путь выполнения программы. Тем не менее, мне нравилось пытаться придумать это, даже если я в конце концов и сделал грубое принуждение. :)

Java (OpenJDK 8) , 151 байт

Трещины Ответ Кевин Cruijssen в

v->{String h="H";int x=7;return new String(new byte[]{(byte)((-~-~-~-~-~-~1^x++*x)+15),new Byte("10"+h.length())})+new StringBuffer("elde").reverse();}

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

Сравнение:

v->{String h="Haystack";int x=-7;return x<0?h:new String(new java.math.BigInteger(new byte[]{(byte)((~-~-~-~-~-~-~-~-~-~1^-x++*x)+151),new Byte("2"+"1+\"0+\"".length()+(x=h.length()*4/x)+"-x-7")}).toByteArray())+(new StringBuffer("hidden".substring(++x%3^4,--x-x--).replaceFirst("dd","e"+(char)(x*211%+93))).reverse());}
v->{String h="H       ";int x= 7;return       new String(                         new byte[]{(byte)(( -~-~-~-~-~-~      1^ x++*x)+15 ),new Byte("    1   0  "          +   h.length()    )        })               + new StringBuffer("    e                                 l          d    e"      )             .reverse() ;}

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

Brain-Flak , 102 байта

(((((((((()()()){}){}){}){}()){}()))()()<>)(()()()){}())<>((()((){}<>)))(({})[(((()()){}())(){}){}()])

Трещины ответ H.PWiz в .

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

((((((((((()()()){}){}()){}){}()){}()))<({}[(()()()()){}])(([[]]({})<>)<>)>((()()())){}{})[()]))<[[]()]>((()){}){}((){}[][(<>){}<>])(<>){}(({}<>()[()])[(((()()()){}<[()]>)<(()){}>{}){}()])
 (((((((((()()()){}){}  ){}){}()){}()))      ()()                   <>)     (()()()) {}    () ) <      >((()      ((){}    <>)     )   )  (({}        )[(((()()  ){}  ()  )  () {}   ){}()])

Ly , 21 байт

(78)"e"sl(100)"l"l&o;

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

Трещины ответ LyricLy в .

Java от Джонатана С.

import java.util.*;interface Main{static void main(String[]args){Stack<Hay>s=new Stack();s.add(new Needle());System.out.println(s.get(s.indexOf(new Hay())+1).a);}}class Needle extends Hay{{a="Needle";}}class Hay{String a="Haystack";public boolean equals(Object o){return getClass().equals(o.getClass());}}

TiO

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

Pyth , 21 байт

Kr."Dn2û"2+Kr."EL8"Z

взламывает это .

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

T-SQL по phroureo , 757 байт

seleCT 'Needle'

Почему-то я не думаю, что это было намеченное решение. Использует символы в окружении {}:

create table a(l int,c int)
in{se}rt into a va{l}u{e}s (1,10),(2,1),(3,8),(4,0)
go
;CREATE FUN{CT}ION b(@ varchar(max)) returns varchar(max) as
begin return{ '}char('+@+'),'''','end 
go
;CREATE FU{N}CTION h(@ varchar(max),@a varchar(max), @b varchar(max), @c varchar(max), @d varchar(max), @e varchar(max), @f varchar(max), @g varchar(max), @h varchar(max))
r{e}turns varchar(max) as 
b{e}gin
return replace(replace(replace(replace(@,@a,@b),@c,@d),@e,@f),@g,@h)
end
{d}ec{l}ar{e} @x varchar(max),@ int=1,@y varchar(99)={'}'
,@D varchar(4)='Ha',@O varchar(4)='ys'
,@T varchar(3)='ta',@A varchar(4)='ck'
WHILE @<=4
BEGIN
set @y+=(SELECT dbo.b(c+100)from a where l=@)+' '
set @+=1
END
SELECT @x='select
left(dbo.h('''+@D+@O+@T+@A+''','+ left(@y,len(@y)-1) +'),char(56))'
execute(@x)

PHP

Трещины Титус ответ

for($i=1;$c=H_aNyesetdalcek[$i+=2];)echo$c;

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