Ini adalah bagian dari tantangan polisi dan perampok . Buka di sini untuk bagian polisi.

Tantangan Perampok

Jawaban polisi dapat di-crack dengan menghapus subset karakter apa pun dari program Haystack, sehingga hasilnya dikeluarkan Needlealih-alih Haystack(sementara masih menjadi pengiriman yang valid dalam bahasa yang sama). Anda tidak harus menemukan solusi yang sama persis seperti yang dimaksudkan oleh polisi, asalkan milik Anda valid oleh kendala di atas.

Jika Anda mengelola ini, posting jawaban dengan solusi, tautkan ke jawaban polisi, dan tinggalkan komentar pada jawaban polisi yang menghubungkan kembali ke jawaban Anda.

Perampok yang memecahkan sebagian besar jawaban polisi menang. Ikatan rusak oleh jumlah ukuran jawaban polisi yang retak (mendukung perampok yang retak pengiriman lagi).

Setiap jawaban polisi hanya dapat di-crack satu kali, dan tentu saja, Anda tidak diizinkan untuk memecahkan jawaban Anda sendiri. Jika jawaban polisi ternyata tidak valid sebelum atau setelah retak, itu tidak dihitung terhadap skor perampok.

Contohnya

Berikut adalah beberapa contoh sederhana dalam berbagai bahasa:

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]

Perhatikan bahwa subset karakter yang dihapus tidak harus bersebelahan.

JavaScript, 85 byte (ES6)

Retak jawaban Arnauld

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

Demo "Needle"

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

console.log(f())

Penjelasan

Fungsi aslinya adalah:

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

yang lebih mudah dibaca sebagai:

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

Perhatikan bahwa ketika n=21625674, maka n.toString(35)adalah 'eedle'.

35 dalam input mungkin tidak dapat diubah menjadi subset (karena kami ingin basis yang cukup besar untuk memuat semua huruf 'del', jadi kami membutuhkan basis yang setidaknya 22). Jadi angka-angka untuk mengubah adalah 74837258394056219, 268435455, dan 124038877. Kami ingin menggantinya dengan angka a, b, c, masing-masing dibentuk dengan subset digit angka asli, sehingga fungsinya g(k) = (k * a & b), dimulai dengan k=35dan diulang 35 kali, dan kemudian XOR dengan c, memberi 21625674.

Untuk yang satu ini, setelah berpikir sedikit, karena panjang kecil (maksimal yang amemiliki panjang 17, bdan cmemiliki panjang 9), saya hanya menggunakan brute-force :-) Menulis C ++ Program untuk menghasilkan semua nomor mungkin a, b, cdibentuk sebagai subset nomor asli, beralih melalui semua adan b, dan periksa apakah yang diperlukan cada di set. Berjalan di sekitar 15 detik, dan satu-satunya output a=4853461, b=268435455, c=12408877(bergantian keluar nomor btidak perlu diubah). Saya tidak yakin apakah ada cara yang lebih pintar untuk membalikkan fungsi ini.

Tumpukan jerami , 82 byte

Retak HyperNeutrino ini Jawaban

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

Cobalah online!

Brain-Flak , 96 byte

Retak jawaban Funky Computer Man .

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

Cobalah online!

Ini adalah tantangan yang menyenangkan.

The -24 pada awal yang bertobat yke adalam bahasa aslinya sekarang digunakan untuk mengkonversi eke M, yang kemudian diubah ke Ndalam tempat dengan mengubah seluruh akhir loop untuk ()). Huruf push pertama kdiubah menjadi ehanya dengan menghapus push-pop yang menambahkan 6 ke dalamnya. Sisanya sebagian besar hanya jatuh pada tempatnya, dengan beberapa langkah keliru lucu di sepanjang jalan (termasuk satu program yang outputnya Meddle).

Perbandingan kedua program:

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

Haskell

Retak @ jawaban Laikoni ini .

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

Cobalah online!

Kode asli:

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"

mengganti karakter yang dihapus dengan garis bawah:

___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____"

Bagaimana Needledikonstruksi: string di akhir kode dipecah menjadi kata-kata. Karakter pertama dari setiap kata bertambah beberapa kali karena ada karakter dalam kata tersebut, misalnya Haysta-> Hditambah 6 karakter -> N.

Hexagony , 17 byte, H.PWiz

]; N @ cl; e ;; (\. S.; _

Cobalah online!

Perbandingan dengan yang asli:

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

Visualisasi:

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

Penjelasan

Tanda bonus - menggunakan semua 6 IP dan semua kecuali satu dari sel!

IP # 0 dimulai dengan menuju ke kanan di sepanjang jalur hitam ke ].
Kami kemudian beralih ke IP # 1, yang mengarah di sepanjang jalur merah, mencetak Ndengan N;kemudian membungkus kembali ke jalur ]lagi.
Kami kemudian transisi ke IP # 2, yang kepala sepanjang jalur biru, menyimpan edalam sel memori saat ini, maka sepanjang jalan hijau, mengeksekusi (dengan refleksi di \) ;;(;yang cetakan ee, decrements sel memori dari eke dcetakan kemudian d.
IP melanjutkan sepanjang jalur oranye, mengeksekusi Nl;seyang mencetak l, dan menyimpan edalam sel memori saat ini. Terus sepanjang jalur coklat, mencetak edengan;. Pada titik ini kita sudah mencetak Needle, jadi sisanya baru selesai. IP menyimpan c, lalu klik ]. Kami kemudian beralih ke IP # 3, yang mengarah di sepanjang jalur biru, memukul , memantul ke mana memantul ke dalam . Kami kemudian beralih ke IP # 4, yang mengarah di sepanjang jalur hijau, memantul , lalu bercabang ke (karena positif). Akhirnya, kami beralih ke IP # 5, yang kemudian disimpan dengan toko .

\_]
_\]c
e@

Python 2 , 123 byte

Jawaban Agtoever retak

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

Perbandingan:

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

Saya memiliki banyak kesenangan menemukan solusi yang dicetak Meedledan Needlfdengan memasang polinomial ke median indeks simbol-simbol numpy yang dimulai dengan masing-masing huruf dalam Needle. Saya kemudian mencoba untuk menemukan koefisien yang sama dengan himpunan bagian dari program asli dengan tangan, tetapi saya akhirnya harus terpaksa memaksa memaksa satu untuk menemukan solusi yang valid.

Javascript, 91 byte

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

Pecahkan ini . Sebenarnya menyenangkan.

let f =

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

console.log(f())

Jelly , 14 byte

Jawaban Crack Jonathan Allan

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

Cobalah online!

Perbandingan:

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

Saya dulu œcberalih melalui berbagai himpunan bagian dari string literal, digunakan tr -duntuk setiap filter yang mungkin, dan greped untuk Needle. Menggunakan asumsi bahwa tidak ada karakter yang digunakan dalam string pertama yang digunakan dalam jawaban, biarkan ia menemukan jawaban dalam waktu kurang dari 15 detik.

Python 2 , 73 byte

Retak Jawaban user71546 .

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

Cobalah online!

Dipecahkan dengan program ini .

Java (OpenJDK 8), 191 byte

Retak jawaban Luke Steven

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

Cobalah online!

Karakter yang dihapus:

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

Ini membuat devaluasi ke 078101101100108101, yang mengeja Needle.

Ruby , 149 byte

Retak ini: /codegolf//a/144790/74216

Modulnya cukup kecil, jadi saya menulis ulang tahun multi-threaded dan berharap yang terbaik.

Sunting: Dan setelah itu menemukan jawaban yang bahkan lebih pendek.

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

Cobalah online!

Perubahan:

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'

dc , 34 byte

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

Pecahkan ini . TIO .

Saya mulai dengan mendapatkan representasi numerik dari Haystack (5215583380252484459) dan Needle (86197399743589). Selanjutnya, saya melakukan factorisation yang terakhir, yaitu 47 * 432323 * 4242169. Dari sini, cukup mudah untuk merekonstruksi angka-angka itu.

Menandai karakter yang digunakan:

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

Hexagony , 19 byte, Martin Ender

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

Cobalah online!

Perbandingan dengan aslinya

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

Kode dibuka

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

Jadi, saya tidak pernah menulis apa pun di Hexagony, tapi saya pikir hanya dengan 37 byte yang bisa saya dapatkan dengan crack. Martin, kuharap kau tahu, aku meluangkan banyak waktu untuk mencari tahu ini. :)

Saya mungkin salah, tetapi saya akan menjelaskan apa yang saya pikir kode ini lakukan:

Program dimulai dengan [, yang secara otomatis beralih ke IP # 5. IP ini dimulai di sudut barat, menuju [sekali lagi, yang memindahkannya ke IP # 4. Dari sini, ia mengeksekusi N;ekemudian menuju ke sudut tenggara dan mengeksekusi ;, memantul ke kanan untuk yang lain ;kemudian membungkus (yang mengurangi arus eke a d. Kemudian berlanjut (dengan bungkus) untuk ...;.kemudian memantul ke ldan sampai ke yang [terakhir kalinya, pindah ke IP # 3. Ini dijalankan ;, >dialihkan ke barat laut untuk .kemudian <dialihkan ke barat, memukul e, membungkus ;, dan berakhir di @.

Versi verbal

[   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

Saya sangat senang bahwa Anda menggunakan ukuran segi enam normal untuk program Needle; Saya sedang memeriksa program ukuran 19 (untuk segi enam sisi panjang-3) ketika saya menyadari Anda dapat menghapus sejumlah karakter dan itu akan secara otomatis mengisi segi enam dengan .s pada akhirnya, yang akan membuatnya secara dramatis lebih sulit untuk dipecahkan. Karena itu, Hexagony adalah bahasa jahat untuk tantangan ini karena (sebagian besar) karakter apa pun yang dihapus mengubah keseluruhan jalur eksekusi program. Yang sedang berkata, saya menikmati mencoba untuk datang dengan ini, bahkan jika saya akhirnya benar-benar memaksanya pada akhirnya. :)

Java (OpenJDK 8) , 151 byte

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

Cobalah online!

Perbandingan:

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

Saya merasa bagian terakhir tidak dimaksudkan.

Brain-Flak , 102 byte

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

Retak jawaban H.PWiz ini .

Cobalah online!

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

Ly , 21 byte

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

Cobalah online!

Retak jawaban LyricLy .

Java oleh Johnathan S.

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

Cukup lepaskan loop yang menambahkan Hay dan tidak ada yang tersisa di tumpukan kecuali jarum.

Pyth , 21 byte

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

retak ini .

Cobalah online!

T-SQL oleh phroureo , 757 byte

seleCT 'Needle'

Entah bagaimana saya tidak berpikir itu adalah solusi yang dimaksudkan. Menggunakan karakter yang dikelilingi oleh {}:

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

Retak Titus menjawab

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

Cobalah online