Làm thế nào để bạn biết trang web? Hãy cùng tìm hiểu.

Đây là một thử thách cảnh sát và tên cướp . Cướp của chủ đề.

Là một cảnh sát, bạn cần phải:

1. Tìm một thách thức không xóa, không đóng trên trang web này để trả lời. Thách thức không thể có các thẻ sau đây: cảnh sát-and-cướp , phổ biến cuộc thi , mã trolling , dối trá , bận rộn-hải ly , vua-of-the-đồi , lời khuyên , câu trả lời xâu chuỗi . Thách thức phải có những hạn chế về đầu ra hợp lệ.
2. Viết một bài nộp hợp lệ cho thử thách, bằng ngôn ngữ miễn phí được tìm thấy trên Wikipedia hoặc esolangs.org hoặc tryitonline . Việc nộp không phải cạnh tranh, chỉ có giá trị. EDIT: Không được phép băm trong trình của bạn
3. Gửi bài nộp tại đây, giữ bí mật thách thức . Bạn phải đăng toàn bộ nội dung, cũng như ngôn ngữ (và phiên bản, nếu có).

Sau một tuần, nếu không ai tìm thấy thử thách mà bạn đang trả lời, bạn có thể đăng thử thách mà bài nộp của bạn đang trả lời, tại thời điểm đó, bài nộp của bạn an toàn . Nó đáng giá N điểm, trong đó N là số lần nâng cấp cho thử thách (tính đến năm 2016-11-17 ) (Cao hơn là tốt hơn)

Để phá vỡ thử thách của bạn, một tên cướp cần tìm bất kỳ thử thách nào mà bài nộp là bài nộp hợp lệ.

Ghi chú:

• Nếu một thách thức đòi hỏi công suất X, và bạn ra XYhoặc YXnơi Ylà bất cứ điều gì ngoài khoảng trắng, nộp là không hợp lệ cho thách thức đó.
• Một thách thức mới hơn 2016-11-17 không được phép.
• Ngôn ngữ mới hơn thách thức ẩn được cho phép.
• Tôi bảo lưu quyền cấm một số thách thức nhất định nếu chúng được áp dụng rộng rãi (có thể được áp dụng cho phần lớn tất cả các bài nộp).
• Cảm ơn Daniel vì ý tưởng ban đầu!

Đệ trình chưa được giải quyết:

<script>site = 'meta.codegolf'; postID = 5686; isAnswer = false; QUESTION_ID = 100357;</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>

Pip , 9 byte ( an toàn , 15 điểm)

(q`\w+`1)

Những gì nó cần phải dễ dàng để tìm ra, nhưng câu hỏi là tại sao ... ( TIO )

Thách thức là Ngôn ngữ là gì? Mục tiêu: phân tích tên của ngôn ngữ lập trình ra khỏi tiêu đề câu trả lời PPCG. Ví dụ:

Input: <h1>JavaScript, 13 chars / 32 bytes</h1>
Desired Output: JavaScript

Tôi không chắc liệu điều này có xảy ra hay không "Thử thách phải có hạn chế về đầu ra hợp lệ", vì đó là thử thách pin thử nghiệm được ghi bởi "phần trăm các thử nghiệm bạn nhận được chính xác" và do đó không yêu cầu đầu ra phải chính xác cho tất cả đầu vào. Tuy nhiên, tôi sẽ nói rằng đoạn mã trên có tỷ lệ chính xác khoảng 60%, điều này không tệ cho một thứ quá đơn giản.

Perl - Cracked bởi DLosc

Chúng ta hãy cung cấp một cách dễ dàng cho những người không esolang

Chạy với -nl

say $_ ~~ reverse y-"({[]})"-")}][{("-r;;r-")}][{("-"({[]})"-y esrever ~~ _$ yas

Thử thách: Công cụ kiểm tra Palindrom tiện lợi

Mã gặp sự cố sau khi in tính trung thực, nhưng theo bài đăng meta này , miễn là nó tạo ra đầu ra chính xác trước khi nó gặp sự cố và bất kỳ lỗi nào được đưa ra cho STDERR, đó là một giải pháp hợp lệ.

Hexagony , 548 byte, Cracked

69;{108;\_1$;;;/0;108\56;19|1^\6/15\;72_$23371<};;!;6;33|;;015><;;7;@3?;43+1586;2_3219><11;;'_8;;;2_|3;81|2<|8517;327}1_23;1;4$%;_4{5.1;1332_3;029&;'_};;1..527;2'..35;5212_>97;$;2/0;-;3_2;/233;08.._\901;0/13'}92...>/>/57\53;633;4'22;/|~>;441;45;;$161;371;3/;3.7026;`208;1<}>27;140;217;11.0;/2;692;<01/2;301;18;31/;10;/3;44<1914/111;{98;38;;;13/4;<;3;1;;/;112;<.$13032;..27;1;222/1;0<6..1;0;'..933721389/9<6;.;3;37..;;875;*;;0[1;287]59..902;;2;12;1;59;;3#..4;;1=249$345249;...;012}021#>/;44>114/4201;;;3>0;>;24;3/;;116._4>337;237/$5_>1{32;102;255;'_

Hãy thử trực tuyến!

Perl, an toàn , 18 điểm

Chỉnh sửa : Tôi đã sửa đổi phần cuối của mã (xem lịch sử chỉnh sửa) để xử lý trường hợp cạnh (thách thức không nói gì về nó và tác giả không trả lời khi được hỏi về nó, nhưng ít nhất mã này xử lý nó) . Nhưng thuật toán và logic của mã vẫn giống nhau.

perl -n0E '/.*/;s/(^0|A)(.{@{+}})?0/A$2A/s||s/0(.{@{+}})?A/A$1A/s?redo:say/A$/+0'

Mã này không bị xáo trộn (chỉ cần đánh gôn). (Điều này ngụ ý rằng -n0Ekhông phải là tùy chọn).

Tôi không nhận ra liệu điều này có khó hay không, nhưng tôi đoán tôi sẽ được sửa chữa khi ai đó phá vỡ nó.

Thử thách là mê cung có thể được giải quyết? .

Mã này sẽ tìm thấy mọi ô có thể tiếp cận của mê cung (và đánh dấu chúng bằng a A): nếu một ô chạm vào một ô được đánh dấu bằng a A, thì nó có thể truy cập được và chúng ta cũng đánh dấu nó A; và chúng tôi làm điều đó một lần nữa ( redo). Điều đó được thực hiện nhờ hai regex: s/(^0|A)(.{@{+}})?0/A$2A/skiểm tra xem một khoảng trắng ở bên phải hay dưới cùng của a A, trong khi s/0(.{@{+}})?A/A$1A/skiểm tra xem một khoảng trắng ở bên trái hay trên đỉnh của a A. Cuối cùng, nếu ô cuối cùng chứa một ô có Athể truy cập được, nếu không thì không (đó là say/A$/+0kiểm tra; +0đây là để đảm bảo kết quả sẽ 0hoặc 1thay vì chuỗi rỗng và 1).
Lưu ý rằng /.*/sẽ khớp với toàn bộ một dòng, do đó cài đặt@+đến chỉ mục ở cuối dòng đầu tiên, có kích thước của một dòng, cho phép sử dụng để sử dụng .{@{+}}để khớp chính xác nhiều ký tự như trên một dòng. ( @{+}tương đương với @+, nhưng chỉ cái trước có thể được sử dụng trong regex)

Để chạy nó:

$ perl -n0E '/.*/;s/(^0|A)(.{@{+}})?0/A$2A/s||s/0(.{@{+}})?A/A$1A/s?redo:say 1-/0$/' <<< "0000001
0000010
1111011
0000000"
1

(và nếu bạn thay thế 1111011dòng bằng 1111111, nó không thể giải quyết được nữa và đầu ra sẽ 0thay thế 1)

Perl, 56 byte, An toàn (14 điểm)

undef$/;print+(<>^<>)=~y/\x81-\xff\x00-\x80/\x01-\xff/dr

Thách thức là điều này , đòi hỏi bạn phải tạo ra một thuật toán khác; bạn cần có thể nhập hai tệp và xuất một tệp khác, hoặc nhập một tệp và một tệp khác và xuất tệp khác. Điểm của thử thách đó là thử thách mã , làm cho người khác biệt nhỏ nhất là người chiến thắng; Tuy nhiên, đây thách thức không đòi hỏi câu trả lời cho khả năng cạnh tranh, chỉ cần phù hợp với spec, vì vậy tôi đã viết một chương trình diffing một cách golfed thay vào đó, mà chỉ đơn giản sử dụng XOR để kết hợp các yếu tố đầu (nghĩa là cùng một chương trình làm việc cho diffing và không khác biệt).

Phần khó nhất là tái tạo độ dài của các tệp gốc. Đầu vào được chỉ định là ASCII, là một bộ ký tự bảy bit, do đó cho phép tôi sử dụng bit thứ tám để theo dõi độ dài của tệp. Khi khác nhau, chúng tôi đặt bit cao của mỗi byte bằng cách sử dụng một y///lệnh (bị che khuất hơn một chút so với số học bitwise). Khi un-diffing (được nhận biết qua lưu ý rằng đầu vào đã có tập bit cao), chúng tôi sẽ loại bỏ NUL khỏi đầu ra. (Tôi vừa nhận ra rằng điều này sẽ thất bại nếu đầu vào chứa các byte NUL; tuy nhiên, thử thách được xác định theo thuật ngữ của pin thử nghiệm và may mắn là tôi không nghĩ rằng có NUL byte trong pin. Nếu có, thì chương trình này sẽ không chính xác và cần phải bị loại, một vấn đề với cảnh sát và kẻ cướp là không ai khác có đủ thông tin để chỉ ra những sai sót dễ dàng sửa chữa trong câu trả lời của bạn!)

Octave, 15 điểm! AN TOÀN

@(x,y)find((v=((z=cumsum(x.^2))(y:end)-[0,z(1:end-y)]))==max(v),1)-1

Hãy thử trực tuyến tại đây .

Giải trình:

Mã này lấy một chuỗi đầu vào xchứa các số và số 0 10010110110101và một số nguyên y.

Để tìm trung bình di chuyển của một chuỗi trong MATLAB / Octave, bạn có thể làm:

z = cumsum(x);
movmean = z(y:end) - [0 z(1:end-y)];

Vì chúng tôi chỉ quan tâm đến vị trí tối đa, không phải giá trị thực tế, chúng tôi không cần quan tâm đến việc chuyển đổi chuỗi thành số. (x.^2)bình phương tất cả các giá trị ASCII 48,49cho 0,1. Điều này là cần thiết vì Octave không thể sử dụng cumsumtrực tiếp trên các ký tự. cumsum(+x)sẽ ngắn hơn hai byte nhưng sẽ tiết lộ đó xlà một chuỗi.

Điều này thực sự là chơi golf khá tốt (ngoại trừ .^2thay vì +). Tất nhiên, tích chập sẽ đơn giản hơn.

TOÁN . Nứt

&:"@FYAYm7>vs

Hãy thử trực tuyến!

Tôi chỉ ra đầu vào và đầu ra ngay cả khi không cần thiết. Vì dù sao nó cũng nằm trong lịch sử chỉnh sửa: chương trình nhập hai số và xuất một số.

C #, 590 byte, đã bẻ khóa

(I,N)=>{string R="",p="`1234567890-=",P="~!@#$%^&*()_+",q="qwertyuiop[]\\",Q="QWERTYUIOP{}|",a="asdfghjkl;\'",A="ASDFGHJKL:\"",z="zxcvbnm,./",Z="ZXCVBNM<>?";foreach(var c in I){var f=c+"";if(p.Contains(f))R+=p[(p.IndexOf(c)+N)%13];else if(P.Contains(f))R+=P[(P.IndexOf(c)+N)%13];else if(q.Contains(f))R+=q[(q.IndexOf(c)+N)%13];else if(Q.Contains(f))R+=Q[(Q.IndexOf(c)+N)%13];else if(a.Contains(f))R+=a[(a.IndexOf(c)+N)%11];else if(A.Contains(f))R+=A[(A.IndexOf(c)+N)%11];else if(z.Contains(f))R+=z[(z.IndexOf(c)+N)%10];else if(Z.Contains(f))R+=Z[(Z.IndexOf(c)+N)%10];else R+=c;}return R;};

Có lẽ khá dễ dàng, cũng là một chương trình khá dài, _,

05AB1E , 27 byte, bị bẻ khóa!

Đối với đệ trình này, đầu vào cũng được yêu cầu cho nó hoạt động. Không nên quá khó để bẻ khóa.

ávyl•B;£¡´•54B•2ît•‡y.li(}O

Giải thích (cho thử thách):

á                             # Keep all the letters of the input string
 vy                           # For each letter...
   l                          #   Convert to lowercase
    •B;£¡´•54B                #   String that turns into 'pnbrqk'
              •2ît•           #   Compressed int: 133591
                   ‡          #   Transliterates the following:
                                    p -> 1
                                    n -> 3
                                    b -> 3
                                    r -> 5
                                    q -> 9
                                    k -> 1
                    y.li }    #   If the current letter is lowercase...
                        (     #     Negate that number
                          O   # Sum up the result

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến!

(Aheui) , 0 byte, Cracked

Hãy thử nó ở đây! (Chương trình đã được nhập cho bạn: p)

Python, 935 byte

def oo000 ( num ) :
 return - ~ num
def ii ( num ) :
 return - ( oo000 ( oo000 ( ~ num ) ) )
def oOOo ( num1 , num2 ) :
 while num2 > 0 :
  num1 = oo000 ( num1 )
  num2 = ii ( num2 )
 return num1
 if 59 - 59: Oo0Ooo . OO0OO0O0O0 * iiiIIii1IIi . iII111iiiii11 % I1IiiI
def IIi1IiiiI1Ii ( num1 , num2 ) :
 I11i11Ii = num2
 oO00oOo = 0
 while I11i11Ii > 0 :
  oO00oOo = oOOo ( oO00oOo , num1 )
  I11i11Ii = ii ( I11i11Ii )
  if 92 - 92: O0O / oo000i1iIi11iIIi1 % Iii1IIIiiI + iI - Oo / o0O
 return oO00oOo
def hgj ( num1 , num2 ) :
 I11i11Ii = num2
 oO00oOo = 1
 while I11i11Ii > 0 :
  oO00oOo = IIi1IiiiI1Ii ( oO00oOo , num1 )
  I11i11Ii = ii ( I11i11Ii )
  if 48 - 48: iII111i % IiII + I1Ii111 / ooOoO0o * o00O0oo
 return oO00oOo
def O0oOO0o0 ( num1 , num2 ) :
 return oOOo ( num1 , - num2 )
 if 9 - 9: o0o - OOO0o0o
 if 40 - 40: II / oo00 * Iii1IIIiiI * o0o . ooOoO0o
print(hgj ( 9 , 9999 ))
# dd678faae9ac167bc83abf78e5cb2f3f0688d3a3

Xin lỗi tôi đã sử dụng một obfuscator, nhưng nó không bị cấm và dễ dàng hơn. (Và tôi không có đủ thời gian để tự làm điều đó ...)

Ruby ( bị bẻ khóa bởi DLosc )

p n = gets.to_i
p n = n*(3*n-1)/2 until n % 7 == 0

TOÁN . An toàn , 93 điểm

dP7EGn:q^1J2/h)ts_hX=Gs[BE]Wd=~>~GBz*

Hãy thử trực tuyến!

Giải trình

Thách thức là mã nguồn sinh thái dấu chân .

Mã này tính toán trọng số Hamming (số lượng) trong biểu diễn nhị phân của mã ASCII của chuỗi đầu vào; ngoại trừ chuỗi testđầu ra 0(thay vì trọng lượng Hamming của nó 17).

Vỏ bọc đặc biệt của chuỗi đó hơi bị xáo trộn. Chương trình trước tiên tính toán các mảng khác nhau liên tiếp của mã ASCII của đầu vào và đảo ngược nó. Đối với testđiều này cho [1 14 -15].

Sau đó, mảng được hình thành bởi các nlũy thừa đầu tiên 14được tính ( [1 14 196 ...]), trong đó nđộ dài đầu vào; và các floor(n/2)giá trị đầu tiên được giữ. Vì vậy, cho đầu vào testnày cho [1 14]. Tổng phủ định được gắn vào mảng này, cung cấp [1 14 -15]cho đầu vào test. Điều này được kiểm tra cho sự bằng nhau với các mảng đảo ngược của sự khác biệt liên tiếp đã thu được trước đó.

Mặt khác, tổng các mã ASCII của các ký tự đầu vào được tính toán và so sánh với 448, được tạo ra như là sự khác biệt (liên tiếp) của các phần tử trong mảng [2^6 2^9](trong đó ^biểu thị sức mạnh).

Đầu vào testlà chuỗi duy nhất có sự khác biệt liên tiếp đảo ngược của hình thức [1 14 -15]và tổng 448. Sự khác biệt []hoặc [1](đối với chuỗi inoyt ngắn hơn) không tương thích với tổng số 448. Sự khác biệt [1 14 196]hoặc lớn hơn không thể đạt được với các ký tự ASCII.

Mã kiểm tra nếu kết quả thử nghiệm cho điều kiện thứ nhất (chênh lệch liên tiếp) không nhỏ hơn kết quả phủ định của điều kiện thứ hai (tổng cộng). Điều này cho 0nếu và chỉ khi cả hai điều kiện được thỏa mãn. Cuối cùng, số này được nhân với số lượng trong số đại diện nhị phân của mã ASCII của đầu vào.

CJam ( an toàn , 21 điểm)

{W+W%~1{1$)}{)a1${\(+W%{1$1$-2=>}{+}w}{\;}?)_@*\+~}w+}

Đây là một khối ẩn danh (chức năng).

Python 3, ~ 2000 byte, (an toàn: 23 điểm)

Chương trình gốc

exec("\n))o0000o000o<)]))]00000o000o[0o0o0o0o0o0o0o0o0o(00000000000000o0o(000000000000000o0o ni oooo0oooo rof)))0o0o0o0o0o0o0o0o0o(00000000000000o0o(000000000000000o0o ni 00oo00oo00oo00oo00oo rof]oooo0oooo[]00oo00oo00oo00oo00oo[0o0o0o0o0o0o0o0o0o(000ooo000ooo000o[ +]0o0o0o0o0o0o0o0o0o ni 00oo00oo00oo00oo00oo rof)00oo00oo00oo00oo00oo(000ooo000ooo000o[ni ooo000ooo000o rof)ooo000ooo000o(o0o0o0o0o-o0000o000o(000ooo000ooo000o(00o00o00o(tnirp\n)00000o000o,00000o000o(tresni.o0o0o0o0o0o0o0o0o0o:))00000000000000o0o=yek,0o0o0o0o0o0o0o0o0o(xam(00000000000000o0o<)o0o0o0o0o0o0o0o0o0o(00000000000000o0o elihw \n:)]00000o000o[]o0oooo,0o0o0o0o0o0o0o0o0o[( ni o0o0o0o0o0o0o0o0o0o rof\n;'=01NgwiNgwSNbBibpBybw8GMwAzbw8GM'b,]0o0o0o0o00oo ni ooooo0o00oo rof]]::0oooooo0oooo[))ooooo0o00oo(0oooooo(o0oooo ni ooo000ooo000o rof)ooo000ooo000o(00o00o00o[[=ooooo00oo,0o0o0o0o0o0o0o0o0o\n)'=kSZsBXd0BCLn5WayR3cgwCdulGK'b(0o0o.)(0o0ooo0o00ooo.o000oo esle o0000o000o fi o0000o000o+o0000o000o=0oooooo0oooo;)000000000000000o0o(o00oo00o=000000000000000o0o;)))(edoced.)o0o(0oo000o(000000o(o000oo,))(]o0000o000o[]edoced.)'==QbhRHa'b(0oo000o,'oo0o0o00o'[(oo0o0oo=o0o0o0o0o,oo0o0o0oo\n;)00000000000000o0o(o00oo00o,))(edoced.)'vJHZ'b(0oo000o(o00oo00o,)'bin'(o00oo00o=00000000000000o0o,0oooooo,o0oooo;))0000o0o0o(000000o(o000oo:0000o0o0o adbmal = o00oo00o ;)))(0o0oo00o(0oooooo(0o0oo0oo=0o0o0o0o00oo\n00000000000001**o0000o000o=o0000o000o;))(edoced.)'=cSbhRHanwCd1BnbpxyXfRncvBXbp91Xs4WavpmLnAyJ'b(0oo000o(o000oo=o0oo0oo00o,0o0oo00o,o0oo0oo,0o0oo0oo;edoced46b.)000oo0o(oo0o0oo=0oo000o\n;'==QYsxGKb92bwADMvVCN8EDIm9mcg8GMvBSauBybw82bwADMvBzbdliKq4SN'b ,))0o0oo00oo(000000o(__tropmi__ :0o0oo00oo adbmal,'base64',]0o0oo00oo[:0o0oo00oo adbmal = oo00oo00oo00oo00oo00oo,oo0o0oo,000oo0o,0oooooo\n;tni,'range','len','==Abh1mYkFGIv9GMwAzb682bwADMvBSYuRGIv9GMvBzbw82buYWYjR3bylWYshybvBDMw8WLxkiKqITJv9GMwAzb'b,lave,0**0000000000000009,0 ,]1-::[0o0ooo0o00o0oo:0o0ooo0o00o0oo adbmal,mus = 00o00o00o,000000000000000o0o,00000000000000o0o,o0o,o000oo,o0000o000o,00000o000o,000000o,000ooo000ooo000o\n"[::-1])

Thử thách

Đây thực sự là một câu trả lời cho thử thách của riêng tôi, Primenary String . Tôi đã chọn điều này vì hầu hết mọi thứ sẽ xuất ra 0, ngoài một vài yếu tố đầu vào mà một tên cướp sẽ khó có thể vào được. Mã này là một thuật toán đơn giản, nhưng bị che khuất rất nhiều (bằng tay).

Pip , 13 byte

V$.C(A*a-A9)a

Hãy thử trực tuyến (cung cấp đầu vào dưới dạng Đối số, không phải Đầu vào).

JavaScript, 533 byte, đã bị bẻ khóa! bởi Dave

_=this;[490837,358155,390922].map(y=function(M,i){return _[[
U=[y+[]][+[]]][+[]][i]]=_[M.toString(2<<2<<2)]});function g(
s){return Function("a","b","c","return "+s)};e=g(u(["","GQ9\
ZygiYTwyPzE6YSpk","C0tYSki","SkoYSkvZChhLWIpL2QoYikg"].join(
"K")));h=g("A=a,B=b,g('A(a,B(a))')");j=g("a/b");L=g("Z=a,Y=\
b,g('Z(a,Y)')");k=L(j,T=2);F=g(u("KScpKWIsYShFLCliLGEoQyhEJ\
yhnLGM9RSxiPUQsYT1D").split("").reverse().join(""));RESULT=F
(h(e,k),j,g("_[U[10]+[![]+[]][+[]][++[+[]][+[]]]+[!+[]+[]][\
+[]][+[]]+17..toString(2<<2<<2)].pow(T,a)"));

Không phải là sở thích của tôi, nhưng nó khá gọn gàng. Gọi như RESULT(inputs).

Tôi có thể thưởng tiền thưởng +50 điểm nếu bạn giải thích chi tiết mã của tôi đang làm gì cùng với vết nứt của bạn. (Họ không cần phải ở cùng nhau, vì vậy hãy thoải mái với FGITW nếu điều đó phù hợp với ý thích của bạn.)

Pyke, 3458 byte, AN TOÀN , điểm 99

wB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddsQI30>Q%)

Hãy thử nó ở đây!

Có một vài (30) 0x1bbyte dường như đã bị SE ăn.

Octave, 40 điểm. AN TOÀN

Câu trả lời hơi khó hiểu cho một thách thức khá phổ biến.

y=find((x=mod(input('')*2,32))>12);sign(sum(x.*[1-y:nnz(x+8)-y]))

Tôi khuyên bạn nên thử nghiệm điều này trên quãng tám trực tuyến . Ideone không tốt khi nói đến STDIN.

Đây là thử thách mô phỏng đòn bẩy 2015. Nhập vào mẫu '123^32. Đầu ra sẽ -1 0 1dành cho Trái nặng, Cân bằng và Phải nặng theo thứ tự đó.

Nó trông như thế này khi nó được đánh gôn hoàn toàn :

s=mod(input(''),16);i=find(s>9);s*[1-i:numel(s)-i]'*inf

Điều này đầu ra -Inf, NaN, Infcho L, B, R tương ứng.

Haskell, AN TOÀN

m f=map(f<$>)
g=reverse.("":)
f s|(f:c:s)<-m fromEnum.g.words$s,
    (f:c:s)<-init.unwords.g.m(\s->toEnum$if c!!0==s||s==sum(-32:c)then(last$f)else s)$s=init$s

Hãy thử nó trên Ideone . "Sử dụng":

Prelude> f "Programming Puzzles & Code Golf"
"rogramming Puzzles "

Trong thử thách String Shenanigans, người ta sẽ đưa ra một chuỗi và hai ký tự và sau đó thay thế mọi lần xuất hiện của char đầu tiên bằng char thứ hai. Tuy nhiên, đầu vào là một chuỗi chỉ chứa chuỗi thực trong dấu ngoặc kép và khoảng trắng hai ký tự được phân tách:

Prelude> f "\"Hello, World!\" l r"
"Herro, Worrd!"

TeX, 240 byte, SAFE , điểm 129

\let\N\newcount\let\I\ifnum\let\A\advance\let\E\else\N\a\N\b\N\c\def\D#1:#2:#3:{\I#1>#2\A#1by-#2\D#1:#2:#3:\E\I#1=#2 #3=1\E#3=0\fi\fi}\def\P#1:#2:{\I#1>#2\a=#1\D\a:#2:\c:\I\c=0\b=#2\A\b by1\P#1:\the\b:\E N\fi\E\I#1=1 N\E Y\fi\fi}\P1:2:\end

Lưu dưới dạng jeopardy.tex, sau đó chạy pdftex jeopardy.texvà mở jeopardy.pdf.

Kết quả: một bản PDF có văn bản N(và trang số 1).

Trăn 3, bẻ khóa!

Viết cái này rất vui nhộn, mặc dù cuối cùng nó cũng dễ bị bẻ khóa :)

Z,O=__import__('time').strftime,401*5;from base64 import*;Q,I=(Z('%Y')),(O/401)*2;_=int(Q);D,P=(O,-~_),int(Q[~1:]);Q,I=(6+(P-eval(b64decode(b'KHN1bShbeCU0PDEgZm9yIHggaW4gcmFuZ2UobWluKEQpLG1heChEKSldKSk=').decode()+'*-1'*(O>_)))/10,'3'+repr(((P-10)*3)+10));print(Q,I)

Pyth - Cracked bởi Maltysen

Nếu nó có ích, Pyth không phải là bất kỳ câu trả lời nào cho thử thách tiềm ẩn.

u=.+G.*A

Hãy thử nó!

C #, 91 byte

_=>{int b=0,w=0;for(;1>w||0<*(_-1);b+=++w**_++<<(9*w));return b%(3<w?903302656:41458688);};

Toán học, 161 byte

Which[LetterQ@#,If[UpperCaseQ@#,ToUpperCase,#&][FromLetterNumber~Array~LetterNumber@#],DigitQ@#,Array[IntegerString,FromDigits@#+1,0],True,#]&/@Characters@#<>""&

BrainFuck - 140 byte, bị bẻ khóa bởi daHugLenny

,>,>,>-[>+<-----]>---[<+>-]<[<<<->>>->+<]>[<<<->>>->+<]>[<<<->>>-]<<<[>+<-]<[>>++++++++++<<-]<[>>>>++++++++++[<++++++++++>-]<<<<-]>>>[>.+<-]

Hãy thử nó ở đây!

C ++ 14, bị nứt

#include<vector>

auto h(auto i){return 0;}
auto h(auto i, auto x, auto...p){
 return x+(i-1?h(i-1,p...):0);
}

auto g(auto v){return v;}
auto g(auto v,auto x, auto...p){
 v.push_back(h(x,x,p...));
 return g(v,p...);
}

auto f(auto...p){
 return g(std::vector<int>{},p...);
}

Có một số lượng tham số dao động và trả về a vector<int>.

Sử dụng:

int main() {
 auto v = f(4,7,3,4,5);
 for (auto i:v) std::cout << i << ", ";
 std::cout << std::endl;
}

Mathicala, 34 byte, Cracked

±1={±0={}};±n_:=Array[±#&,n,0]

Hàm được đặt tên ( ±).

Ruby, 50 byte

count = 0; 400.times do count +=1; end; puts count

đầu ra: 400

Python 2.7, 45 byte

import numpy;lambda a,n,t:numpy.arange(a,t,n)

Gợi ý (hoặc có thể không): "cá đang sử dụng numpy."

2016.11,23 - gợi ý thứ hai: "Đừng để bất cứ thứ gì trôi nổi xung quanh!"