これは警官と強盗の挑戦の一部です。強盗の部分はここに行きます。

警官の挑戦

文字列を出力する、選択した言語でプログラムまたは関数を作成する必要がありますHaystack。しかし、結果の文字列があるように、あなたのプログラムから（残りの順序を変更せずに）文字のサブセットを除去することが可能でなければならないも印刷し、同じ言語で有効なプログラムNeedleの代わりに。両方のプログラム/関数は、オプションで単一の末尾の改行を（互いに独立して）出力できますが、それ以外は何も出力しません。出力では大文字と小文字が区別され、指定された正確な大文字小文字に従う必要があります。

もちろん、あなたの目標は「針」を非常によく隠すことです。しかし、あなたの提出物は、あなたが意図したものだけでなく、どんな有効な解決策でもクラックされる可能性があることに注意してください。

あなたの答えに含めてください：

• 提出の言語（および関連する場合はバージョン）。
• Haystackプログラムのサイズ（バイト単位）。
• Haystackプログラム自体。
• STDOUTでない場合の出力メソッド。
• 可能であれば、選択した言語のオンラインインタプリタ/コンパイラへのリンク。

提出物はプログラムまたは関数のいずれかですが、スニペットではなく、REPL環境を想定してはなりません。入力を受け付けてはならず、STDOUT、関数の戻り値、または関数（出力）パラメーターを介して出力できます。

両方のプログラム/機能は、合理的なデスクトップマシンで5秒以内に完了する必要があり、確定的である必要があります。ハッシュ、暗号化、または乱数生成に組み込み関数を使用しないでください（乱数ジェネレーターを固定値にシードした場合でも）。

公平を期すために、選択した言語用の無料のインタープリターまたはコンパイラーが必要です。

ニードルプログラムが見つかった場合、答えは破られます。回答が7日間クラックされていない場合は、回答で目的のニードルプログラムを公開できます。これにより、提出が安全になります。解決策を公開しない限り、7日が経過していても、強盗によってまだ解読されている可能性があります。最短の安全な 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]

削除された文字のサブセットは連続している必要はありません。

クラックされていない提出

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

Haystack、84バイト、クラック

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

オンラインでお試しください！

これは（私には）かなり複雑に見えますが、適切なサブセットを見つけた場合、それは少し簡単すぎます...まあ、ちょうど私たちを始めるために：P

六角形、37バイト

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

オンラインでお試しください！

私の義務的な六角形のエントリ...

便宜上、展開されたコードは次のとおりです。

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

仕組み：

プログラムはから始まりH、IP＃5に移行します。このIPは西隅から始まり、実行中にバウンスして折り返されます;a;y;s;（実際には）（印刷しましたHays）。次にs、tbyにインクリメントして)印刷し、通過するNe...(c前に通過しますa;c;（六角形の小さなセクションでバウンドします）。プログラムはヒットし_、通って上に反映\するlまでデクリメントますこれkにより(、他の通過する、\印刷される前と上のプログラムを終了します@。

詳細バージョン

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バイト（ひび割れ）

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

オンラインでお試しください！

意図したソリューション、80バイト

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

JavaScript、95バイト（ES6）、クラック

文字列を返す関数。

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

「Haystack」デモ

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

console.log(f())

Haskell、168バイト（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"

オンラインでお試しください！識別子を評価するh文字列を返す"Haystack"一部の欠失の後、h利回り"Needle"。

ゼリー、41 バイト（割れた）

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

オンラインでお試しください！

ハッピーハンティング！

六角形、32バイト。割れた

私はマーティンのを解決できなかったので、私は自分の投稿しています。

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

オンラインでお試しください！

ここでフォーマットされています：

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

これでの私の目的は、両方のソリューションでできるだけ多くのIPを使用することでした。ニードルには6 個、Haystackには5個しかありませんでした。

Pyth、44バイト（クラック）

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

ここで試してみてください。

Java（OpenJDK 8）、226 217バイト（ひび割れ）

おそらく初めてのコードゴルフ、おそらく非常に簡単ですが、それは楽しい挑戦でした！

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

オンラインでお試しください！

dc、148バイト（クラック）

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

オンラインでお試しください！

それはかなり簡単ですが、解決するのに少なくとも少し楽になることを願っています：з

JavaScript、119バイト（ES6）、クラック

文字列を返す関数。かなり長くてそれほど難しくはないが、うまくいけば楽しい。

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

「Haystack」デモ

let f =

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

console.log(f())

Python 2.7.2、103 / 117バイト、クラック

機能バージョン（117バイト）：

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

プログラムバージョン（103バイト）：

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

これはHaystackうまく印刷されるはずです。Python Fiddleでテスト済み。

ところでこれが最初の試みです。

プログラムのバージョンがスニペットとしてカウントされるかどうかわからないので、ここに両方の​​バージョンを入れます。

numpyの1.12.1とパイソン2.7.10、208 209バイト（割れ）

Numpy には針と干し草の山があるようです！これがHaystackです。針を見つけることができるかどうかを確認してください。私がそれを隠していたのと同じくらいあなたが針を探すのと同じくらい楽しいことを願っています。

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

指定どおりに出力します。

Haystack

repl.itできます。

Java 8、321バイト、クラック

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

わからない、それはあまりにも長い間/難しい場合...その後、再び、一般的に、Javaは「ニードル」は、正しくはもちろん、バイトカウントかなり増加隠し..だから、かなり長いから始めることである
誰割れている場合、I」後でネタバレを追加します。

Ruby、185バイト、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

オンラインでお試しください！

卑劣なものを考え出そうとしますが、今のところは「シンプルだが不快」なものを試してみましょう。

Brain-Flak、188バイト（ひび割れ）

これを投稿したとき、私はちょうどFunky Computer Manの答えを見ました。

多少難読化されています。

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

オンラインでお試しください！

意図したソリューション、96バイト：

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

オンラインでお試しください！

T-SQL、757文字のクラック

以前の回答を削除してしまったことをお-びします。難読化するのに何度も編集したため、何も提供したくありませんでした。:)

いずれにせよ、このようなクレイジーなことをしたいのでなければ、SQLの難読化は少し難しいです。私はそれを投資しませんでした。

また、Dotaにちなんで変数に名前を付けたことをunしみません。

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)

これがこのスレッドで最も簡単な答えであれば、おそらく正しいでしょう。：P SQLをだますのは難しい。

Ly、40バイト、クラック

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

オンラインでお試しください！

ああ、別のLy CNR提出。これらは歴史的にはあまりうまく機能していませんでしたが（おそらく言語ではなく私が原因です）、この運賃と今日が例外ではないことを理解するでしょう。

溶液：

(78)"e"sl(100)"l"l&o;、XXXXXX XXXXX XXXXXX X X先頭の7つのスペースで削除

Java、345バイト、クラック

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

オンラインでお試しください！

本当に長く、おそらく簡単にクラックできますが、少なくともそれはStack<Hay>！

TI-BASIC、119バイト（安全）

出力はに保存され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

溶液

文字を削除Str1して長さを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バイト、クラック

かなり簡単にクラックできます。しかし私はそれが好きです。

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

で実行する-nrか、オンラインで試してください。

Aceto、154バイト（安全）

              27 \ 'dNU QJi9MLJ€{{x（}] J {'！o∑€xiDQxsJ（] sicpicp1.2sJJicp90I.2 + D / edxi-'> xd80J0IJicx'NIx5sJsJidcpIcpL7sssJicpei7 + UUdJicpLI7sJp \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \ pJ \   

オンラインでお試しください！

'N'ed'd80J0IJic'eUpppppp オンラインでお 試しください！

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