Dies ist Teil einer Herausforderung für Polizisten und Räuber . Gehen Sie hier für die Räuber.

Die Herausforderung der Bullen

Sie sollten ein Programm oder eine Funktion in einer Sprache Ihrer Wahl schreiben, die den String ausgibt Haystack. Es muss jedoch möglich sein, eine Teilmenge von Zeichen aus Ihrem Programm zu entfernen (ohne den Rest neu anzuordnen), sodass die resultierende Zeichenfolge auch ein gültiges Programm in derselben Sprache ist, das Needlestattdessen gedruckt wird. Beide Programme / Funktionen können optional (unabhängig voneinander) eine einzelne abschließende Zeile ausgeben, sonst nichts. Bei der Ausgabe wird zwischen Groß- und Kleinschreibung unterschieden. Die Ausgabe muss genau der angegebenen Schreibweise entsprechen.

Ihr Ziel ist es natürlich, die "Nadel" sehr gut zu verstecken. Beachten Sie jedoch, dass Ihr Beitrag mit jeder gültigen Lösung geknackt werden kann , nicht nur mit der von Ihnen beabsichtigten.

Bitte geben Sie in Ihrer Antwort an:

• Die Sprache (und ggf. die Version) Ihres Beitrags.
• Die Größe des Haystack-Programms in Byte.
• Das Haystack-Programm selbst.
• Die Ausgabemethode, wenn es nicht STDOUT ist.
• Wenn möglich, einen Link zu einem Online-Dolmetscher / Compiler für die von Ihnen gewählte Sprache.

Ihr Beitrag kann entweder ein Programm oder eine Funktion sein, aber kein Ausschnitt, und Sie dürfen keine REPL-Umgebung annehmen. Sie dürfen keine Eingabe vornehmen und können über STDOUT, Funktionsrückgabewert oder Funktionsparameter (out) ausgeben.

Beide Programme / Funktionen müssen auf einem vernünftigen Desktop-Computer innerhalb von 5 Sekunden abgeschlossen und deterministisch sein. Sie dürfen keine integrierten Funktionen zum Hashing, zur Verschlüsselung oder zur Generierung von Zufallszahlen verwenden (auch wenn Sie den Zufallszahlengenerator auf einen festen Wert setzen).

Im Interesse der Fairness muss es einen frei verfügbaren Dolmetscher oder Compiler für die von Ihnen gewählte Sprache geben.

Eine Antwort ist geknackt, wenn das Nadelprogramm gefunden wird. Wenn Ihre Antwort 7 Tage lang nicht geknackt wurde, können Sie das vorgesehene Nadelprogramm in Ihrer Antwort angeben, wodurch Ihre Übermittlung sicher ist. Solange Sie Ihre Lösung nicht preisgeben, kann sie auch dann von Räubern geknackt werden, wenn die sieben Tage bereits verstrichen sind. Das kürzeste sichere Heuhaufen-Programm (gemessen in Bytes) gewinnt.

Beispiele

Hier einige einfache Beispiele in verschiedenen Sprachen:

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]

Beachten Sie, dass die Teilmenge der entfernten Zeichen nicht zusammenhängend sein muss.

Uncracked Submissions

<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>

Heuhaufen , 84 Bytes, Gebrochen

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

Probieren Sie es online!

Das sieht (für mich) etwas verworren aus, aber wenn Sie die richtige Untergruppe finden, ist es ein bisschen zu einfach ... na ja, nur um uns zum Einstieg zu bringen: P

Hexagony , 37 Bytes

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

Probieren Sie es online!

Nur mein obligatorischer Hexagony-Eintrag ...

Der Einfachheit halber ist hier der aufgeklappte Code:

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

Wie das funktioniert:

Das Programm startet mit H, dann gehen wir zu IP # 5 über. Diese IP beginnt in der Westecke und springt und wickelt sich während der Ausführung ab (in Kraft) ;a;y;s;(wir haben also gedruckt Hays). Dann swird auf einem erhöht tdurch )und gedruckt, wir durchlaufen dann Ne...(cvor zu bekommen a;c;(noch einen kleinen Teil des Sechsecks um Prellen). Das Programm schlägt auf _, reflektiert bis \zu ldem , was zu einem kvon dekrementiert wird (, das durch ein anderes geht, \bevor es gedruckt wird, und das Programm endet auf dem @.

Ausführliche Version

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 ( geknackt )

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

Probieren Sie es online!

Geplante Lösung, 80 Bytes

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

JavaScript, 95 Bytes (ES6), Gebrochen

Eine Funktion, die eine Zeichenfolge zurückgibt.

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

"Haystack" -Demo

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

console.log(f())

Haskell , 168 Bytes ( geknackt von 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"

Probieren Sie es online! Das Auswerten des Bezeichners hgibt die Zeichenfolge zurück "Haystack", nachdem einige Löschungen hergeben "Needle".

Gelee , 41 Bytes ( Gebrochen )

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

Probieren Sie es online!

Fröhliches Jagen!

Hexagony , 32 Bytes. Geknackt

Ich konnte Martins nicht lösen , also poste ich meine eigene.

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

Probieren Sie es online!

Hier ist es formatiert:

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

Mein Ziel dabei war, dass beide Lösungen so viele IPs wie möglich verwenden, ich bekam 6 für Needle und nur 5 für Haystack .

Pyth , 44 Bytes ( geknackt )

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

Probieren Sie es hier aus.

Java (OpenJDK 8) , 226.217 Byte ( geknackt )

Zum ersten Mal Code Golf, wahrscheinlich sehr einfach, aber es war eine lustige Herausforderung!

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

Probieren Sie es online!

Gleichstrom , 148 Bytes ( geknackt )

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

Probieren Sie es online!

Es ist ziemlich einfach, aber ich hoffe, dass es wenigstens ein bisschen Spaß macht, es zu lösen: з

JavaScript, 119 Bytes (ES6), Gebrochen

Eine Funktion, die eine Zeichenfolge zurückgibt. Ziemlich lang und nicht so schwer, aber hoffentlich lustig.

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

"Haystack" -Demo

let f =

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

console.log(f())

Python 2.7.2, 103/117 Bytes, geknackt

Funktionsversion (117 Byte):

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

Programmversion (103 Byte):

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

Dies sollte Haystackgut gedruckt werden . Getestet auf Python Fiddle .

Übrigens ist dies der erste Versuch.

Ich bin mir nicht sicher, ob die Programmversion als Snippet gezählt wird, also füge ich beide Versionen hier ein.

Python 2.7.10 mit Numpy 1.12.1, 208 209 Bytes ( geknackt )

Es scheint, dass es in Numpy eine Nadel und einen Heuhaufen gibt! Hier ist der Heuhaufen; sehen Sie, ob Sie die Nadel finden können. Ich hoffe, Sie haben so viel Spaß beim Suchen nach der Nadel, wie ich sie versteckt hatte.

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

Es gibt wie angegeben aus:

Haystack

Sie können repl.it .

Java 8, 321 Bytes, Gebrochen

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

Probieren Sie es hier aus.

Besser lesbar:

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

Ich bin mir nicht sicher, ob es zu lang / zu schwer ist. Andererseits ist Java im Allgemeinen ziemlich lang.
Wenn Sie also die 'Nadel' richtig verstecken, erhöht sich natürlich die Anzahl der Bytes ein bisschen. Ich werde später ein paar Spoiler-Tipps hinzufügen.

Ruby , 185 Bytes, geknackt von 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

Probieren Sie es online!

Ich werde versuchen, etwas Hinterhältiges zu erfinden, aber hier ist ein Versuch, "einfach, aber widerlich".

Brain-Flak , 188 Bytes ( geknackt )

Ich habe gerade die Antwort von Funky Computer Man gesehen , als ich das gepostet habe.

Es ist etwas verschleiert.

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

Probieren Sie es online!

Beabsichtigte Lösung, 96 Bytes:

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

Probieren Sie es online!

T-SQL, 757 Zeichen CRACKED

Entschuldigung für das Löschen meiner vorherigen Antwort - Ich habe sie zu oft bearbeitet, als ich sie verschleiert habe, und wollte nichts preisgeben. :)

In SQL zu verschleiern ist auf jeden Fall ein bisschen schwierig, es sei denn, Sie möchten verrückte Sachen wie diese machen , und ich war nicht so investiert.

Außerdem entschuldige ich mich nicht, dass ich meine Variablen nach Dota benannt habe.

SQL-Geige

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)

Wenn dies die einfachste Antwort in diesem Thread ist, haben Sie wahrscheinlich Recht. : P Es ist schwer, SQL auszutricksen.

Ly , 40 Bytes, geknackt

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

Probieren Sie es online!

Oh Mann, noch eine Ly CNR Einreichung. Diese haben in der Vergangenheit nicht sehr gut funktioniert (möglicherweise aufgrund von mir und nicht der Sprache), aber wir werden sehen, wie dies abläuft und heute keine Ausnahme ist.

Lösung:

(78)"e"sl(100)"l"l&o;entfernen Sie XXXXXX XXXXX XXXXXX X Xmit sieben führenden Leerzeichen

Java , 345 Bytes, Gebrochen

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

Probieren Sie es online!

Wirklich lang und wahrscheinlich leicht zu knacken, aber zumindest hat es eine Stack<Hay>!

TI-BASIC, 119 Byte (sicher)

Ausgabe gespeichert in 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

Lösung

Entfernen Sie die Zeichen aus Str1, um eine Länge von 1 zu erhalten.

"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, Gebrochen

ziemlich leicht zu knacken; aber Ich mag es.

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

Laufen Sie mit -nroder versuchen Sie es online .

Aceto , 154 Bytes (Sicher)

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

Probieren Sie es online!

'N'ed'd80J0IJic'eUpppppp Probieren Sie es online!

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