Seberapa baik Anda mengetahui situs ini? Ayo cari tahu.

Ini adalah tantangan polisi dan perampok . Utas perampok.

Sebagai seorang polisi, Anda perlu:

1. Temukan tantangan yang tidak terhapus, tidak tertutup di situs ini untuk menjawab. Tantangannya tidak boleh memiliki tanda-tanda berikut: polisi-dan-perampok , kontes-popularitas , kode-troll , licik , berang-berang sibuk , raja bukit , kiat-kiat , rangkaian jawaban . Tantangan harus memiliki batasan pada output yang valid.
2. Tuliskan kiriman yang valid untuk tantangan, dalam bahasa gratis yang ditemukan di Wikipedia atau esolangs.org atau tryitonline . Pengajuan tidak harus kompetitif, hanya valid. EDIT: Hashing dalam kiriman Anda tidak diperbolehkan
3. Posting pengajuan di sini, menjaga rahasia tantangan . Anda harus memposting seluruh kiriman, serta bahasa (dan versi, jika berlaku).

Setelah seminggu, jika tidak ada yang menemukan tantangan yang Anda jawab, Anda dapat memposting tantangan yang diajukan oleh kiriman Anda, pada titik mana, kiriman Anda aman . Nilainya bernilai N poin, di mana N adalah jumlah upvote pada tantangan (per 2016-11-17 ) (Lebih tinggi lebih baik)

Untuk memecahkan tantangan Anda, seorang perampok perlu menemukan tantangan apa pun yang diajukan untuk pengiriman.

Catatan:

• Jika sebuah tantangan membutuhkan output X, dan Anda menampilkan XYatau di YXmana Yselain spasi, pengajuan tidak valid untuk tantangan itu.
• Tantangan yang lebih baru dari 2016-11-17 tidak diperbolehkan.
• Bahasa yang lebih baru dari tantangan tersembunyi diizinkan.
• Saya berhak untuk melarang tantangan tertentu jika mereka dapat diterapkan secara luas (dapat diterapkan ke sebagian besar semua pengajuan).
• Terima kasih kepada Daniel untuk ide awalnya!

Pengajuan Tidak Rusak:

<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 ( aman , 15 poin)

(q`\w+`1)

Apa yang dilakukannya harus mudah diketahui, tetapi pertanyaannya adalah mengapa ... ( TIO )

Tantangannya adalah Apa Bahasanya? Tujuannya: parsing nama bahasa pemrograman dari header jawaban PPCG. Misalnya:

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

Saya tidak yakin apakah ini bertentangan dengan "Tantangan harus memiliki batasan pada output yang valid," karena ini merupakan tantangan tes-baterai yang dinilai oleh "persen dari tes yang Anda lakukan dengan benar," dan dengan demikian tidak mengharuskan output menjadi benar. untuk semua input. Namun, saya akan mengatakan bahwa kode di atas mendapat sekitar tingkat yang benar 60%, yang tidak buruk untuk sesuatu yang sangat sederhana.

Perl - Retak oleh DLosc

Mari kita berikan yang mudah untuk orang-orang non-esolang

Jalankan dengan -nl

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

Tantangan: Pemeriksa Palindrome Nyaman

Kode crash setelah mencetak truthiness, tapi menurut ini meta posting, asalkan menghasilkan output yang benar sebelum crash, dan kesalahan adalah output ke stderr, itu solusi yang valid.

Hexagony , 548 bytes, Retak

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

Cobalah online!

Perl, aman , 18 poin

Sunting : Saya memodifikasi akhir kode (lihat histori edit) untuk menangani kasus tepi (tantangannya tidak mengatakan apa-apa tentang itu, dan penulis tidak menjawab ketika ditanya tentang hal itu, tetapi setidaknya kode ini menanganinya) . Tetapi algoritma dan logika kode tetap sama.

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

Kode ini tidak dikaburkan (hanya golf). (Ini menyiratkan bahwa -n0Eitu bukan opsional).

Saya tidak menyadari apakah ini sulit atau tidak, tapi saya kira saya akan diperbaiki ketika seseorang memecahkannya.

Tantangannya adalah Dapatkah labirin dipecahkan? .

Kode ini akan menemukan setiap sel yang dapat dijangkau dari labirin (dan menandainya dengan a A): jika sel menyentuh sel yang ditandai dengan A, maka itu dapat dijangkau dan kami menandainya dengan Ajuga; dan kami melakukannya lagi ( redo). Itu dilakukan berkat dua regex: s/(^0|A)(.{@{+}})?0/A$2A/smemeriksa apakah ada ruang di kanan atau di bawah A, sementara s/0(.{@{+}})?A/A$1A/smemeriksa apakah ada ruang di kiri atau di atas a A. Pada akhirnya, jika sel terakhir berisi Aitu dapat dijangkau, jika tidak maka (itu yang say/A$/+0memeriksa; +0ada di sini untuk memastikan hasilnya akan 0atau 1bukan string kosong dan 1).
Perhatikan bahwa /.*/akan cocok dengan seluruh baris, dengan demikian pengaturan@+ke indeks akhir baris pertama, yang merupakan ukuran garis, yang memungkinkan penggunaan .{@{+}}untuk mencocokkan dengan karakter yang persis sama dengan jumlah yang ada pada sebuah garis. ( @{+}setara dengan @+, tetapi hanya yang pertama yang dapat digunakan dalam regex)

Untuk menjalankannya:

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

(dan jika Anda mengganti 1111011baris dengan 1111111, itu tidak bisa dipecahkan lagi, dan hasilnya akan menjadi 0bukan 1)

Perl, 56 byte, Aman (14 poin)

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

Tantangannya adalah yang satu ini , mengharuskan Anda untuk membuat algoritma yang berbeda; Anda harus dapat memasukkan dua file dan mengeluarkan diff, atau memasukkan file dan diff serta menampilkan file lainnya. Skor tantangan itu adalah tantangan kode , menjadikan perbedaan terkecil sebagai pemenang; Namun, ini tantangan tidak memerlukan jawaban untuk menjadi kompetitif, hanya sesuai dengan spec, jadi saya menulis sebuah program diffing dengan cara golfed sebagai gantinya, yang hanya menggunakan XOR untuk menggabungkan input (yang berarti bahwa program yang sama bekerja untuk diffing dan un-diffing).

Bagian tersulit adalah mereproduksi panjang file asli. Input ditentukan sebagai ASCII, yang merupakan set karakter tujuh-bit, sehingga memungkinkan saya untuk menggunakan bit kedelapan untuk melacak panjang file. Saat melakukan diffing, kami mengatur bit tinggi setiap byte menggunakan y///instruksi (yang sedikit lebih dikaburkan daripada aritmatika bitwise). Ketika un-diffing (dikenali melalui pemberitahuan bahwa input sudah memiliki set bit tinggi), kami menghapus NUL dari output. (Saya baru sadar bahwa ini akan gagal jika inputnya berisi byte NUL; namun, tantangannya didefinisikan dalam hal baterai tes, dan untungnya saya tidak berpikir ada byte NUL dalam baterai. Jika ada, maka program ini akan salah dan perlu didiskualifikasi, masalah dengan polisi dan perampok adalah bahwa tidak ada orang lain yang memiliki informasi yang cukup untuk menunjukkan kekurangan jawaban Anda dengan mudah!)

Oktaf, 15 poin! AMAN

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

Cobalah online di sini .

Penjelasan:

Kode mengambil string input yang xberisi satu dan nol, 10010110110101dan integer y.

Untuk menemukan rata-rata bergerak dari suatu urutan dalam MATLAB / Oktaf Anda dapat lakukan:

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

Karena kami hanya tertarik pada lokasi maksimum, bukan nilai aktual, kami tidak perlu peduli untuk mengubah string menjadi angka. (x.^2)kuadratkan semua nilai ASCII 48,49untuk 0,1. Ini diperlukan karena Oktaf tidak dapat digunakan cumsumsecara langsung pada karakter. cumsum(+x)akan dua byte lebih pendek tetapi akan mengungkapkan itu xadalah string.

Ini sebenarnya golf yang cukup baik (kecuali untuk .^2bukan +). Tentu saja, belokan akan lebih sederhana.

MATL . Retak

&:"@FYAYm7>vs

Cobalah online!

Saya menunjukkan input dan output bahkan jika itu tidak perlu. Karena ini masih dalam riwayat sunting: program memasukkan dua angka dan menghasilkan satu angka.

C #, 590 byte, Retak

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

Mungkin cukup mudah, juga program yang cukup panjang, _,

05AB1E , 27 byte, sudah retak!

Untuk pengiriman ini, input juga diperlukan agar bisa berfungsi. Seharusnya tidak terlalu sulit untuk retak.

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

Penjelasan (untuk tantangan):

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

Menggunakan pengkodean CP-1252 . Cobalah online!

아희 (Aheui) , 0 byte, Retak

Coba di sini! (Program ini sudah diketikkan untuk Anda: p)

Python, 935 Bytes

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

Maaf saya menggunakan obfuscator, tetapi tidak dilarang dan lebih mudah. (Dan aku tidak punya waktu untuk melakukannya sendiri ...)

Ruby ( dipecahkan oleh DLosc )

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

MATL . Aman , 93 poin

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

Cobalah online!

Penjelasan

Tantangannya adalah kode sumber jejak ekologis .

Kode menghitung berat Hamming (jumlah yang) dalam representasi biner dari kode ASCII dari string input; kecuali bahwa string testmenghasilkan 0(bukan beratnya Hamming, yaitu 17).

Casing khusus dari string itu agak dikaburkan. Program pertama menghitung array perbedaan berturut-turut dari kode ASCII dari input dan membalikkannya. Untuk testini memberi [1 14 -15].

Kemudian, array yang dibentuk oleh nkekuatan pertama 14dihitung ( [1 14 196 ...]), di mana npanjang input; dan nilai pertama floor(n/2)disimpan. Jadi untuk input testini memberi [1 14]. Jumlah yang dinegasikan ditambahkan ke array ini, yang memberikan [1 14 -15]input test. Ini diuji untuk kesetaraan dengan array terbalik dari perbedaan berurutan yang sebelumnya diperoleh.

Di sisi lain, jumlah kode ASCII dari karakter input dihitung dan dibandingkan dengan 448, dihasilkan sebagai (berturut-turut) perbedaan elemen dalam array [2^6 2^9](di mana ^menunjukkan daya).

Input testadalah satu-satunya string dengan perbedaan berturut-turut dari bentuk [1 14 -15]dan jumlah 448. Perbedaan []atau [1](untuk string inoyt pendek) tidak kompatibel dengan jumlah total 448. Perbedaan [1 14 196]atau lebih besar tidak dapat dicapai dengan karakter ASCII.

Kode memeriksa apakah hasil pengujian untuk kondisi pertama (perbedaan berurutan) tidak lebih kecil dari hasil yang dinegasikan dari kondisi kedua (jumlah total). Ini memberi 0jika dan hanya jika kedua kondisi terpenuhi. Akhirnya, ini dikalikan dengan jumlah yang dalam representasi biner dari kode ASCII input.

CJam ( aman , 21 poin)

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

Ini adalah blok anonim (fungsi).

Python 3, ~ 2000 byte, (aman: 23 poin)

Program Asli

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

Tantangan

Ini sebenarnya jawaban untuk tantangan saya sendiri, Primenary Strings . Saya memilih ini karena hampir semuanya akan keluar 0, terlepas dari beberapa input yang tidak mungkin dimasuki perampok. Kode tersebut adalah algoritma sederhana, tetapi sangat dikaburkan (dengan tangan).

Pip , 13 byte

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

Cobalah online (berikan input sebagai Argumen, bukan Input).

JavaScript, 533 bytes, Retak! oleh 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)"));

Bukan kebingungan favorit saya, tapi agak rapi. Sebut sebagai RESULT(inputs).

Saya mungkin memberikan hadiah poin +50 jika Anda menjelaskan secara rinci apa yang dilakukan kode saya bersama dengan celah Anda. (Mereka tidak harus bersama, jadi silakan FGITW jika itu sesuai dengan keinginan Anda.)

Pyke, 3458 bytes, SAFE , skor 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%)

Coba di sini!

Ada beberapa (30) 0x1bbyte yang tampaknya telah dimakan oleh SE.

Oktaf, 40 poin. AMAN

Jawaban sedikit membingungkan untuk tantangan yang cukup populer.

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

Saya merekomendasikan pengujian ini pada oktaf-online . Ideone tidak begitu bagus dalam hal STDIN.

Ini adalah tantangan simulator tuas 2015. Masukan pada formulir '123^32. Output akan -1 0 1untuk Kiri-berat, Seimbang dan Kanan-berat dalam urutan itu.

Ini terlihat seperti ini ketika golf sepenuhnya :

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

Ini menghasilkan -Inf, NaN, Infuntuk L, B, R masing-masing.

Haskell, AMAN

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

Cobalah di Ideone . "Pemakaian":

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

Dalam tantangan Shenanigans satu diberikan string dan dua karakter dan kemudian harus mengganti setiap kemunculan char pertama dengan yang kedua. Namun, input adalah satu string yang hanya berisi string aktual dalam tanda kutip dan dua karakter yang dipisahkan spasi:

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

TeX, 240 byte, AMAN , skor 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

Simpan sebagai jeopardy.tex, lalu jalankan pdftex jeopardy.texdan buka jeopardy.pdf.

Hasil: PDF dengan teks N(dan nomor halaman 1).

Python 3, Retak!

Menulis ini lucu, meskipun pada akhirnya mudah dipecahkan :)

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

Jika itu membantu, Pyth bukanlah jawaban untuk tantangan tersembunyi.

u=.+G.*A

Cobalah!

C #, 91 byte

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

Mathematica, 161 byte

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

BrainFuck - 140 Bytes, Retak oleh daHugLenny

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

Coba Di Sini!

C ++ 14, Retak

#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...);
}

Mengambil sejumlah parameter dan mengembalikan a vector<int>.

Pemakaian:

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

Mathematica, 34 byte, Retak

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

Bernama fungsi ( ±).

Ruby, 50 byte

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

keluaran: 400

Python 2.7, 45 byte

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

Petunjuk (atau mungkin tidak): "ikan menggunakan numpy."

2016.11.23 - petunjuk kedua: "Jangan biarkan apa pun melayang!"