Esto es parte de un desafío de policías y ladrones . Vaya aquí para la parte de los ladrones.

El desafío de los policías

Debe escribir un programa o función en el idioma que elija, que genera la cadena Haystack. Sin embargo, debe ser posible eliminar algunos subconjuntos de caracteres de su programa (sin reordenar el resto), de modo que la cadena resultante también sea un programa válido en el mismo idioma, que se imprime en su Needlelugar. Ambos programas / funciones pueden imprimir opcionalmente una nueva línea final (independientemente la una de la otra), pero nada más. La salida distingue entre mayúsculas y minúsculas y debe seguir la carcasa exacta proporcionada.

Su objetivo, por supuesto, es ocultar muy bien la "aguja". Pero tenga en cuenta que su envío se puede descifrar con cualquier solución válida, no solo la que pretendía.

Por favor incluya en su respuesta:

• El idioma (y la versión, si corresponde) de su envío.
• El tamaño del programa Haystack en bytes.
• El programa Haystack en sí.
• El método de salida si no es STDOUT.
• Si es posible, un enlace a un intérprete / compilador en línea para el idioma elegido.

Su envío puede ser un programa o una función, pero no un fragmento y no debe asumir un entorno REPL. No debe tomar ninguna entrada, y puede salir a través de STDOUT, valor de retorno de función o parámetro de función (out).

Ambos programas / funciones deben completarse en 5 segundos en una máquina de escritorio razonable y deben ser deterministas. No debe utilizar las funciones integradas para el hash, el cifrado o la generación de números aleatorios (incluso si coloca el generador de números aleatorios en un valor fijo).

En aras de la equidad, debe haber un intérprete o compilador disponible gratuitamente para el idioma elegido.

Una respuesta se descifra si se encuentra el programa Needle. Si su respuesta no ha sido descifrada durante 7 días, puede revelar el programa Needle previsto en su respuesta, lo que hace que su envío sea seguro. Siempre y cuando no reveles tu solución, los ladrones aún pueden descifrarla, incluso si ya han pasado los 7 días. El programa más seguro de Haystack seguro (medido en bytes) gana.

Ejemplos

Aquí hay un par de ejemplos simples en diferentes idiomas:

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]

Tenga en cuenta que el subconjunto de caracteres eliminados no tiene que ser contiguo.

Envíos sin descifrar

<script>site = 'meta.codegolf'; postID = 5686; isAnswer = false; QUESTION_ID = 144600;</script><script src='https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js'></script><script>jQuery(function(){var u='https://api.stackexchange.com/2.2/';if(isAnswer)u+='answers/'+postID+'?order=asc&sort=creation&site='+site+'&filter=!GeEyUcJFJeRCD';else u+='questions/'+postID+'?order=asc&sort=creation&site='+site+'&filter=!GeEyUcJFJO6t)';jQuery.get(u,function(b){function d(s){return jQuery('<textarea>').html(s).text()};function r(l){return new RegExp('<pre class="snippet-code-'+l+'\\b[^>]*><code>([\\s\\S]*?)</code></pre>')};b=b.items[0].body;var j=r('js').exec(b),c=r('css').exec(b),h=r('html').exec(b);if(c!==null)jQuery('head').append(jQuery('<style>').text(d(c[1])));if (h!==null)jQuery('body').append(d(h[1]));if(j!==null)jQuery('body').append(jQuery('<script>').text(d(j[1])))})})</script>

Pajar , 84 bytes, agrietado

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

Pruébalo en línea!

Esto parece (para mí) bastante complicado pero si encuentras el subconjunto correcto es un poco demasiado fácil ... bueno, solo para comenzar: P

Hexagonía , 37 bytes.

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

Pruébalo en línea!

Solo mi entrada obligatoria a Hexagony ...

Por conveniencia, aquí está el código desplegado:

   H [ @ ;
  ( . . . e
 < l . a ; . 
/ $ . > ; \ s
 N ; \ a c .
  > ) . ; ;
   ; . _ y

Cómo funciona esto:

El programa comienza con H, luego pasamos a IP # 5. Esta IP comienza en la esquina oeste, rebotando y envolviéndose mientras se ejecuta (en efecto) ;a;y;s;(así que hemos impreso Hays). Luego sse incrementa a un tby )e se imprime, luego lo pasamos Ne...(cantes de llegar a;c;(aún rebotando en una pequeña sección del hexágono). El programa golpea el _, refleja a través \de lla cual obtiene disminuido a una kpor( , que pasa a través de otro \antes de ser impreso y los termina en el programa @.

Versión detallada

H   H is entered into the current memory cell
[   We move to the previous instruction pointer (starting at the / and moving NE)
/   No-op
<   Mirrors the IP back to south-west
/   No-op (IP now wraps to the NE corner)
;   Outputs H
.   No-op
a   a is entered into the current memory cell
>   Mirrors the IP back to north-east
a   a is entered into the current memory cell
.   No-op
;   Outputs a (IP now wraps SE corner)
y   y is entered into the current memory cell
;   Outputs y
.   No-op
s   s is entered into the current memory cell (IP now wraps SW corner)
;   Outputs s
)   Increments the memory cell to t
\   Mirrors the IP west
;   Outputs t
N   N is entered into the current memory cell (IP now wraps to e)
e   e is entered into the current memory cell
... No-ops
(   Decrements the memory cell to d (IP now wraps to . on SE edge)
.   No-op
c   c is entered into the current memory cell
a   a is entered into the current memory cell
\   Mirrors the IP north-east
>   Redirects the IP east
;   Outputs a
\   Mirrors the IP south-west
c   c is entered into the current memory cell
;   Outputs c
_   Mirrors the IP north-west
.\. No-ops
l   l is entered into the current memory cell
(   Decrements the memory cell to k (IP now wraps to . on SE edge)
.\  No-ops
;   Outputs k
.   No-op
@   Terminates the program

Brain-Flak , 146 bytes ( agrietado )

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

Pruébalo en línea!

Solución prevista, 80 bytes

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

JavaScript, 95 bytes (ES6), Agrietado

Una función que devuelve una cadena.

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

Demo "Haystack"

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

console.log(f())

Haskell , 168 bytes ( Agrietado por nimi )

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"

Pruébalo en línea! La evaluación del identificador hdevuelve la cadena "Haystack", después de que se hproduzcan algunas eliminaciones "Needle".

Gelatina , 41 bytes ( agrietada )

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

Pruébalo en línea!

¡Feliz cacería!

Hexagonía , 32 bytes. Agrietado

No pude resolver el de Martin , así que estoy publicando el mío.

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

Pruébalo en línea!

Aquí está formateado:

   ] ; N .
  @ c l ; e
 @ ; ; ( \ H
/ ; y a ; _ .
 > s . ; t /
  / < . _ .
   . . . .

Mi objetivo con esto era que ambas soluciones usaran la mayor cantidad posible de IP, obtuve 6 para Needle y solo 5 para Haystack .

Pyth , 44 bytes ( agrietado )

Kr."Dn2û"2sf!/+rrK2 2r."EL8"2Tr."AhÐP­®Z"2

Pruébalo aquí

Java (OpenJDK 8) , 226 217 bytes ( Agrietado )

Primer código de golf, probablemente muy fácil, ¡pero fue un desafío divertido!

String d(){int h=3609000-5055+911,m=557558,s=15441301-157*10000;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;}

Pruébalo en línea!

cc , 148 bytes ( agrietado )

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

Pruébalo en línea!

Es bastante simple, pero espero que sea al menos un poco divertido de resolver: з

JavaScript, 119 bytes (ES6), Agrietado

Una función que devuelve una cadena. Bastante largo y no tan difícil, pero con suerte divertido.

_=>(+{}+['H'])[+[3]]+(+[][[]]+[])[+!!3]+(+[][[]]+['y'])[3]+(+[][[]]+['s'])[-~2]+(~![]+['t'])[2]+(+[][[]]+[])[+!!3]+'ck'

Demo "Haystack"

let f =

_=>(+{}+['H'])[+[3]]+(+[][[]]+[])[+!!3]+(+[][[]]+['y'])[3]+(+[][[]]+['s'])[-~2]+(~![]+['t'])[2]+(+[][[]]+[])[+!!3]+'ck'

console.log(f())

Python 2.7.2, 103/117 bytes, Agrietado

Versión de función (117 bytes):

def e():
 a,b,s=20070763850923833476353301471991752,0b1010100010010011,""
 while a>0:
  s=chr(a%b)+s
  a//=b
 print s

Versión del programa (103 bytes):

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

Esto debería imprimir Haystackbien. Probado en Python Fiddle .

Por cierto, este es el primer intento.

No estoy seguro si la versión del programa se cuenta como un fragmento, así que puse ambas versiones aquí.

Python 2.7.10 con Numpy 1.12.1, 208 209 bytes ( agrietado )

Parece que hay una aguja y un Pajar en Numpy! Aquí está el pajar; mira si puedes encontrar la aguja. Espero que te diviertas tanto buscando la Aguja como yo la escondí.

import numpy
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))])

Sale como se especifica:

Haystack

Puedes responder .

Java 8, 321 bytes, agrietado

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());}

Pruébalo aquí

Más legible:

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());
}

No estoy seguro de si es demasiado largo / difícil ... Por otra parte, Java en general es bastante largo para empezar, por lo que ocultar la 'Aguja' correctamente, por supuesto, aumenta un poco el recuento de bytes ...
Si nadie lo descifra, yo ' Agregaré algunos spoiler-tips más adelante.

Ruby , 185 bytes, agrietado por cab404

x='yGwztsPXhxDkBKlCYdFjQnpUROfoHvqmTgbaJSLcEiZrIAuMVNW'
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

Pruébalo en línea!

Trataré de llegar a algo astuto, pero por ahora he aquí un intento de "simple pero desagradable".

Brain-Flak , 188 bytes ( agrietado )

Acabo de ver la respuesta de Funky Computer Man cuando publiqué esto.

Está algo ofuscado.

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

Pruébalo en línea!

Solución prevista, 96 bytes:

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

Pruébalo en línea!

T-SQL, 757 caracteres CRACKED

Disculpas por eliminar mi respuesta anterior: la edité demasiadas veces porque me ofusqué, y no quería regalar nada. :)

En cualquier caso, ofuscarse en SQL es un poco difícil, a menos que quieras hacer cosas locas como esta , y yo no estaba tan invertido.

Además, descaradamente no me disculpo por nombrar mis variables después de Dota.

Violín de SQL

create table a(l int,c int)
insert into a values (1,10),(2,1),(3,8),(4,0)
go
;CREATE FUNCTION b(@ varchar(max)) returns varchar(max) as
begin return 'char('+@+'),'''','end 
go
;CREATE FUNCTION 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))
returns varchar(max) as 
begin
return replace(replace(replace(replace(@,@a,@b),@c,@d),@e,@f),@g,@h)
end
declare @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)

Si esta es la respuesta más fácil en este hilo, probablemente tengas razón. : P Es difícil engañar a SQL.

Ly , 40 bytes, agrietado

(78)"e"&p"Ha"s"yst"l"ck"&o(100)"l"l'&'o;

Pruébalo en línea!

Oh chico, otra presentación de Ly CNR. Estos no han funcionado muy bien históricamente (posiblemente debido a mí y no al idioma), pero veremos cómo funciona y hoy no es la excepción.

Solución:

(78)"e"sl(100)"l"l&o;, eliminar XXXXXX XXXXX XXXXXX X Xcon siete espacios iniciales

Java , 345 bytes, agrietado

import java.util.*;interface Main{static void main(String[]args){Stack<Hay>s=new Stack();s.add(new Needle());for(int i=0;i<1000;i++)s.add(new Hay());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());}}

Pruébalo en línea!

Realmente largo y probablemente fácil de descifrar, ¡pero al menos tiene un Stack<Hay>!

TI-BASIC, 119 bytes (Seguro)

Salida almacenada en Ans.

"TIBASIC→Str1
length(Ans→X
Str1
For(I,X,2(7-4not(X-1
Ans+sub("ACDEHKLNSTY",inString("ABCDEFGHIJK",sub("KCBADAEDJDHIGF",1+remainder(11I-1,14),1)),1
End
sub(Ans,1+X,length(Ans)-X

Solución

Eliminar caracteres de Str1para darle una longitud de 1.

"C→Str1
length(Ans→X
Str1
For(I,X,2(7-4not(X-1
Ans+sub("ACDEHKLNSTY",inString("ABCDEFGHIJK",sub("KCBADAEDJDHIGF",1+remainder(11I-1,14),1)),1
End
sub(Ans,1+X,length(Ans)-X

PHP, 44 bytes, agrietado

bastante fácil de romper; pero me gusta.

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

Ejecutar -nro probarlo en línea .

Aceto , 154 bytes (Seguro)

              27 \ 'dNU QJi9MLJ € {{x (}] J {'! O∑ € xiDQxsJ (] sicpicp1.2sJJicp90I.2 + D / edxi - '> xd80J0IJicx'NIx5sJsJidcpIcpL7sssJicpei7 + UUdJppppppppppppppppppp   

Pruébalo en línea!

'N'ed'd80J0IJic'eUpppppp ¡ Pruébelo en línea!

Explanation:
<space>*2 - Two spaces for the hilbert curve to work right
'N pushes 'N' onto the stack
'e pushes 'e'
d duplicates it
'd pushes d
80 pushes 8, 0
J concats top two values
0I pushes 0, pops, increments, pushes back on, net effect: pushes 1
J concats to '108'
i converts to integer
c pops and pushes ascii equiv on stack
'e pushes 'e' (again)
U reverses the stack
and the p's print out the stack