PPCG Jeopardy: Polisi

45

Seberapa baik Anda mengetahui situs ini? Ayo cari tahu.

Ini adalah tantangan . 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: , , , , , , , . 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>

Nathan Merrill
sumber
1
Hitungan byte tidak diperlukan.
Nathan Merrill
1
Ada banyak tantangan di mana solusi akan memakan waktu lebih lama dari satu jam untuk menghitung input yang valid. Batas waktu bukan ide yang baik.
Mego
2
@NathanMerrill Ungkapan saat ini menunjukkan bahwa jika ada input yang akan memakan waktu satu jam untuk menghitung hasilnya, jawabannya tidak valid. Ini pada dasarnya berarti setiap tantangan non-sepele.
spaghetto
4
@NathanMerrill Tidak feersum di sini, tetapi karena saya sudah mengomentari pengajuan Mego, tidak ada jaminan Anda tidak akan menabrak tabrakan hash lain sebelum yang dimaksud. Saya percaya polisi harus memastikan bahwa program mereka memang yang pertama yang cocok, dalam hal ini jika polisi dapat memverifikasinya maka perampok juga bisa.
Sp3000

Jawaban:

11

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

DLosc
sumber
Sepertinya itu membelah string pada koma dan mengembalikan string ke-2 dalam hasil split O_O Saya tidak tahu pip, tapi hanya itu yang saya dapatkan sejauh ini.
Yodle
2
@Yodle membaginya menjadi kata-kata regex, tidak hanya menjadi koma
Maltysen
Diterjemahkan ke dalam pyth Saya percaya ini adalah sesuatu seperti ht:w"\w+"1/ @:w"\w+"1 1, yang mengecilkan ke htcw/ htczjika hanya spasi putih, tetapi tidak ada yang muncul hasil apa pun. Ini juga akan dapat menarik menit dari format HH: mm: dd, atau mengekstrak nama variabel dari deklarasi gaya-C, atau angka setelah titik desimal. Tapi saya tidak dapat menemukan pertanyaan yang menanyakan hal-hal itu ...: /
Dave
3

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.

Gabriel Benamy
sumber
5
Seolah-olah Perl lebih mudah dibaca daripada esolang: P
ETHproduk
1
Ya saya tidak tahu esolang, tapi saya juga tidak tahu Perl :(
Yodle
Cracked
DLosc
Dangit, saya akan memposting hal yang tepat sampai posting itu dihapus sebelumnya (saya juga tidak tahu bagaimana cara menjalankannya di ideone)
ETHproductions
Untuk entri yang akan datang, saya akan mengirimkan tautan ideone dengan penjelasan tentang cara menjalankannya.
Gabriel Benamy
3

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!

Martin Ender
sumber
Tantangan ini mungkin bukan yang Anda maksudkan, karena output di sini berubah tergantung pada nomor input. Tetapi tanpa input, ia mencetak string dalam tantangan itu, dan "perampok perlu menemukan tantangan apa pun bahwa pengajuan adalah pengajuan yang valid untuk". Jadi, sudah retak?
Luis Mendo
@LuisMendo itu tidak cukup mencetak string itu.
Martin Ender
(Untuk lebih jelasnya, jawaban saya tidak mencetak jejak yang .diperlukan oleh tantangan itu.)
Martin Ender
Ya, saya melihat :-) Pengetahuan saya tentang Hexagony tidak memungkinkan saya untuk banyak maju ...
Luis Mendo
Retak .
Stewie Griffin
3

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.


Penjelasan:

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)

Dada
sumber
3

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 , 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 adalah bahwa tidak ada orang lain yang memiliki informasi yang cukup untuk menunjukkan kekurangan jawaban Anda dengan mudah!)

Komunitas
sumber
Aman, metinks.
msh210
3

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.

Stewie Griffin
sumber
2

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.

Luis Mendo
sumber
Cracked :-)
ETHproductions
@ ETHproductions Oh, bagaimana Anda menemukan tantangan itu? Saya mengambilnya secara acak .-)
Luis Mendo
2

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

Yodle
sumber
Lambda adalah Func<string, int, string>. Sepertinya itu beberapa keyboard cipher. Param angka adalah berapa banyak karakter untuk bergeser ke kanan pada keyboard (yaitu- ("t",1)= y).
susu
Retak
susu
Bagus, tidak menyangka bahwa itu akan berlangsung terlalu lama: P
Yodle
2

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!

Adnan
sumber
Anda memposting ke pastebin ?: pastebin.com/QyvpUb9b
tuskiomi
@tuskiomi Hmm, bukan itu bukan aku.
Adnan
itu aneh. Saya mencari di Google hasil Anda (Anda harus memastikan) dan itu adalah 1 dari 3 hasil. Saya ingin tahu ada bot yang menarik jawaban ?? hmm ..
tuskiomi
Mencetak input kedua
Oliver Ni
1
retak ?
Maltysen
2

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

Mega Man
sumber
Sekarang, saya bahkan tidak mengerti kode itu untuk saya sendiri ...
Mega Man
1
Sangat mudah untuk melakukan deobfuscate, tetapi pertanyaan-pertanyaan yang mungkin cocok untuk semua tampaknya ditandai berang-berang ...
Peter Taylor
Kebingungan yang bagus!
OldBunny2800
Ini menghitung 9**99tanpa mencetak apa pun (Juga butuh waktu lama untuk melakukannya)
Biru
@PeterTaylor Ini bukan pertanyaan yang sibuk, saya hanya mengambil cara aneh untuk menyelesaikan pertanyaan.
Mega Man
2

Ruby ( dipecahkan oleh DLosc )

p n = gets.to_i
p n = n*(3*n-1)/2 until n % 7 == 0
histokrat
sumber
Aduh, saya melewatkan yang pertama pketika saya menyalin kode. Retak , lalu.
DLosc
2

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.

Luis Mendo
sumber
Silakan Online.
tuskiomi
@tuskiomi Selesai. Tetapi karena Anda harus menebak format input, itu tidak banyak digunakan ...
Luis Mendo
Angka tampaknya bekerja dengan baik.
tuskiomi
Retak !
boboquack
2
Ini mungkin pemenang ... :)
Stewie Griffin
2

CJam ( aman , 21 poin)

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

Ini adalah blok anonim (fungsi).

Peter Taylor
sumber
2

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

FlipTack
sumber
1

Pip , 13 byte

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

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

DLosc
sumber
1

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

Conor O'Brien
sumber
1

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.

Biru
sumber
Anda dapat menandai ini sebagai aman sekarang
FlipTack
1

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.

Stewie Griffin
sumber
1
mengapa Oliver mengedit dalam hitungan byte? ini bukan codegolf, dan jawabannya tidak harus bersaing dengan tantangan, hanya berlaku
FlipTack
1

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!"
Laikoni
sumber
1

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


sumber
0

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)
FlipTack
sumber
pesan disandikan base64:(sum([x%4<1 for x in range(min(D),max(D))]))
Biru
ya, cukup lemparkan itu untuk bersenang-senang @BlueEyedBeast
FlipTack
Untuk beberapa alasan. mengganti string yang diterjemahkan itu memberi saya TypeError>.>
Yodle
@Yodle Apakah kode asli berfungsi? Jika demikian, pastikan Anda mengganti string yang diterjemahkan dengan benar
FlipTack
Ya itu, itulah sebabnya saya sangat bingung haha. Saya cukup yakin saya melakukannya dengan benar, hanya menghapus base64decode (...). Decode () dengan string yang benar?
Yodle
0

Pyth - Cracked oleh Maltysen

Jika itu membantu, Pyth bukanlah jawaban untuk tantangan tersembunyi.

u=.+G.*A

Cobalah!

Steven H.
sumber
retak ?
Maltysen
Retak! Itu cepat.
Steven H.
0

C #, 91 byte

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

Mathematica, 161 byte

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

BrainFuck - 140 Bytes, Retak oleh daHugLenny

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

Coba Di Sini!

Baik
sumber
1
Cracked
acrolith
0

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;
}
Karl Napf
sumber
Judulnya bertuliskan C ++ 14, jadi Anda membutuhkan setidaknya g++dan jika versi Anda tidak setidaknya 6.2atau sesuatu yang Anda butuhkan-std=c++14
Karl Napf
1
Cracked
Peter Taylor
0

Mathematica, 34 byte, Retak

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

Bernama fungsi ( ±).

JungHwan Min
sumber
Saya tidak tahu apakah ini dan Anda mengabaikan aturan "Tidak ada angka 0 hingga 9 untuk muncul dalam kode", atau apakah ini dan Anda memutuskan untuk mengambil input unary untuk kebingungan.
Martin Ender
Aduh, ini yang pertama, tapi aku benar-benar merindukan aturan itu ... Aku akan mengubah kodenya agar sesuai dengan yang lain :)
JungHwan Min
Retak kalau begitu. ;)
Martin Ender
0

Ruby, 50 byte

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

keluaran: 400

dkudriavtsev
sumber
Retak.
Martin Ender
0

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

agtoever
sumber
Apakah ketiga input ini benar-benar diperlukan? Mungkinkah ini masih berfungsi jika Anda membuat kode satu (atau lebih) dari input?
Stewie Griffin
@StewieGriffin Ya. Pertanyaan-pertanyaan secara eksplisit membutuhkan tiga input; serta dalam teks dan juga dalam kasus uji.
agtoever