นี่เป็นส่วนหนึ่งของการท้าทายของตำรวจและโจร ไปที่นี่เพื่อเป็นส่วนหนึ่งของพวกโจร

The Cops 'Challenge

Haystackคุณควรจะเขียนโปรแกรมหรือฟังก์ชั่นในภาษาที่คุณเลือกซึ่งเอาท์พุทสตริง แต่ก็ต้องเป็นไปได้ที่จะเอาชุดย่อยบางส่วนของตัวละครจากโปรแกรมของคุณ (โดยไม่ต้องเรียงลำดับส่วนที่เหลือ) เช่นว่าสตริงส่งผลเป็นยังเป็นโปรแกรมที่ถูกต้องในภาษาเดียวกันซึ่งจะพิมพ์Needleแทน ทั้งสองโปรแกรม / ฟังก์ชั่นอาจเลือกพิมพ์บรรทัดใหม่ขึ้นบรรทัดเดียว (แยกจากกัน) แต่ไม่มีอะไรอื่น เอาต์พุตต้องคำนึงถึงขนาดตัวพิมพ์และต้องเป็นไปตามปลอกที่ให้มา

แน่นอนว่าเป้าหมายของคุณคือซ่อน "เข็ม" ไว้อย่างดี แต่ทราบว่าส่งของคุณสามารถแตกกับใด ๆวิธีการแก้ปัญหาที่ถูกต้องไม่ได้เป็นเพียงคนที่คุณตั้งใจ

โปรดระบุในคำตอบของคุณ:

• ภาษา (และเวอร์ชันหากเกี่ยวข้อง) ของการส่งของคุณ
• ขนาดของโปรแกรม Haystack ในหน่วยไบต์
• โปรแกรม Haystack นั้นเอง
• วิธีการส่งออกถ้ามันไม่ได้เป็น STDOUT
• หากเป็นไปได้ให้ลิงก์ไปยังล่าม / ผู้แปลออนไลน์สำหรับภาษาที่คุณเลือก

การส่งของคุณอาจเป็นโปรแกรมหรือฟังก์ชั่น แต่ไม่ใช่ตัวอย่างและคุณต้องไม่ถือว่าสภาพแวดล้อม REPL คุณต้องไม่รับอินพุตใด ๆ และคุณสามารถส่งออกผ่านทาง STDOUT, ค่าส่งคืนของฟังก์ชันหรือพารามิเตอร์ function (out)

ทั้งสองโปรแกรม / ฟังก์ชั่นจะต้องเสร็จสิ้นภายใน 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>

กองหญ้า , 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

Hexagony , 37 ไบต์

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

ลองออนไลน์!

เพียงแค่รายการ Hexagony บังคับของฉัน ...

เพื่อความสะดวกนี่คือรหัสที่กางออก:

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

มันทำงานอย่างไร:

โปรแกรมเริ่มต้นด้วยHจากนั้นเราย้ายไปที่ IP # 5 IP นี้เริ่มต้นที่มุมตะวันตกกระดอนและพันไปรอบ ๆ ขณะดำเนินการ (มีผล) ;a;y;s;(ดังนั้นเราจึงพิมพ์ออกมาHays) จากนั้นsได้รับเพิ่มขึ้นไปtโดย)และพิมพ์แล้วเราผ่านNe...(cก่อนที่จะเดินทางไปยังa;c;(ยังคงกำยำรอบ ๆ ส่วนเล็ก ๆ ของหกเหลี่ยม) โปรแกรมฮิต_สะท้อนให้เห็นถึงผ่าน\ไปlที่ได้รับการ decremented ไปkโดย(ที่ผ่านอีกก่อนที่จะถูกพิมพ์และสิ้นสุดโปรแกรมบน\@

เวอร์ชัน verbose

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

ลองออนไลน์!

การล่าสัตว์ที่มีความสุข!

Hexagony , 32 ไบต์ Cracked

ฉันแก้ปัญหาของมาร์ตินไม่ได้ดังนั้นฉันจะโพสต์เอง

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

ลองออนไลน์!

นี่มันเป็นรูปแบบ:

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

จุดมุ่งหมายของฉันกับเรื่องนี้เป็นสำหรับการแก้ปัญหาทั้งสองเพื่อใช้เป็น IP ที่มากที่สุดเท่าที่เป็นไปได้ผมมี 6 เข็มและมีเพียง 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ดี การทดสอบเกี่ยวกับงูหลามซอ

Btw นี่เป็นความพยายามครั้งแรก

ไม่แน่ใจว่าเวอร์ชันของโปรแกรมนั้นถูกนับเป็นข้อมูลโค้ดหรือไม่ดังนั้นฉันจึงวางทั้งสองเวอร์ชันไว้ที่นี่

Python 2.7.10 พร้อม Numpy 1.12.1, 208 209 bytes ( แตก )

ปรากฏว่ามีเข็มและกองหญ้าใน Numpy! นี่คือกองหญ้า; ดูว่าคุณสามารถหาเข็มได้หรือไม่ ฉันหวังว่าคุณจะสนุกกับการค้นหาเข็มมากพอ ๆ กับที่ฉันซ่อนมันไว้

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 โดยทั่วไปค่อนข้างยาวเริ่มต้นด้วยดังนั้นการซ่อน 'เข็ม' อย่างถูกต้องแน่นอนเพิ่มจำนวนไบต์นับไม่ถ้วน ..
ถ้าไม่มีใครแตกมันฉัน ' จะเพิ่มเคล็ดลับสปอยเลอร์ในภายหลัง

ทับทิมขนาด 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

ซอ Fiddle

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

โกหก 40 ไบต์แตก

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

ลองออนไลน์!

โอ้หนุ่มอีกคนส่ง CNR Ly สิ่งเหล่านี้ไม่ได้ทำงานได้ดีในอดีต (อาจเป็นเพราะฉันและไม่ใช่ภาษา) แต่เราจะดูว่าค่าโดยสารนี้และวันนี้ไม่มีข้อยกเว้น

วิธีการแก้:

(78)"e"sl(100)"l"l&o;ลบXXXXXX XXXXX XXXXXX X Xด้วยเจ็ดช่องว่างนำ

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 pPicpp1.2sJJicp90I'picpp7.2JDJPJPJIJPJIJPJIJPJPX7 J'JDJIJPX7 1 \ 1 \ \ xd80J0JJJJXPJIJPJIJPJIJPJIJPJIJPJIJPJIJPJIJPJIJPICI \ 'xNIJPJIJPJIJPICI \' * * * * * * * sjpicp907   

ลองออนไลน์!

'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