Siteyi ne kadar iyi tanıyorsunuz? Hadi bulalım.

Bu bir polis ve soyguncular mücadelesidir. Soyguncunun ipliği.

Bir polis olarak yapmanız gerekenler:

1. Cevaplamak için bu sitede silinmemiş ve kapatılmayan bir sorun bulun. Mücadelede şu etiketler bulunamıyor: polisler ve soyguncular , popülerlik yarışması , kod trolling , underhanded , meşgul kunduz , tepenin kralı , ipuçları , cevap zincirleme . Mücadelenin geçerli çıktı üzerindeki kısıtlamaları olmalı.
2. Meydan okuma için geçerli bir yazı yazınız , Wikipedia ya da esolangs.org veya tryitonline'da bulunan ücretsiz bir dilde . Gönderim rekabetçi olmak zorunda değildir, sadece geçerlidir. EDIT: Gönderiminizde karmaşa izin verilmez
3. Gönderiyi gizli tutup gönderiminizi buraya gönderin. Başvurunun tamamını ve ayrıca dili (ve varsa sürümü) göndermelisiniz.

Bir hafta sonra, yanıtladığınız mücadeleyi kimse bulamadıysa, başvurunuzun yanıtladığı soruyu gönderebilirsiniz, bu noktada gönderiminiz güvenlidir . N puan değerinde, N meydan okumadaki artı değerlerin sayısıdır (2016-11-17 itibariyle ) (Daha yüksek)

Mücadelenizi kırmak için, bir soygunun , başvurunun geçerli bir gönderi olduğu herhangi bir zorluğu bulması gerekir .

Notlar:

• Bir meydan okuma bir çıkış gerektiriyorsa Xve size hem çıkış XYveya YXnerede Yboşluk yanında bir şey, teslim olduğu meydan okuma için geçerli değil.
• 2016-11-17'den daha yeni bir yarışmaya izin verilmemektedir.
• Gizli meydan okumadan daha yeni dillere izin verilir.
• Yaygın olarak uygulanabilirlerse bazı zorlukları yasaklama hakkını saklı tutarım (tüm başvuruların çoğuna uygulanabilir).
• İlk fikir için Daniel'e teşekkürler !

Uncracked Gönderiler:

<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 bayt ( güvenli , 15 puan)

(q`\w+`1)

Ne o anlamaya kolay olmalıdır, ama soru neden ... ( TIO )

Buradaki zorluk Dil Nedir? Hedef: programlama dilinin adını bir PPCG cevap başlığından ayrıştırmak. Örneğin:

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

Bunun “meydan okuma geçerli çıktıya getirilmiş kısıtlamalara sahip olmalı” diye düşüp düşmediğinden emin değilim, çünkü “doğru yaptığınız testlerin yüzdesi” ile atılan bir test bataryası mücadelesidir ve bu nedenle çıktının doğru olmasını gerektirmez tüm girişler için. Ancak, yukarıdaki kodun% 60 oranında doğru bir oran alacağını söyleyeceğim, bu da çok basit bir şey için kötü değil.

Perl - DLosc tarafından çatlak

Esolang-olmayan insanlar için kolay bir tane verelim

İle koş -nl

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

Zor Görev: Uygun Palindrome Denetleyicisi

Gerçeği yazdırdıktan sonra kod çöküyor, ancak bu meta gönderiye göre, çökmeden önce doğru çıktıyı ürettiği ve herhangi bir hata STDERR'ye çıktığı sürece , geçerli bir çözümdür.

Altıgen , 548 bayt, Kırık

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

Çevrimiçi deneyin!

Perl, güvenli , 18 puan

Düzenleme : Bir kenar vakasını ele almak için kodun sonunu değiştirdim (düzenleme geçmişine bakın) (zorluk bu konuda bir şey söylemez ve yazar sorulduğunda cevap vermedi, ama en azından bu kod işliyor) . Fakat kodun algoritması ve mantığı aynı kalır.

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

Bu kod karışık değildir (sadece golf). (Bu -n0Eisteğe bağlı olmayan anlamına gelir ).

Bunun zor olup olmadığının farkında değilim, ama sanırım birileri çatlattığında tamir edeceğim.

Sorun labirent çözülebilir miydi? .

Bu kod, labirentin ulaşılabilir her hücresini bulacaktır (ve onları a ile işaretleyiniz A): eğer bir hücre a ile işaretlenmiş bir hücreye dokunursa A, erişilebilirdir ve biz de onu işaretleriz A; ve bunu tekrar yaparız ( redo). Bu, iki regex sayesinde yapılır: s/(^0|A)(.{@{+}})?0/A$2A/sbir boşluğun sağında veya altında bir boşluk olup olmadığını kontrol Aederken s/0(.{@{+}})?A/A$1A/s, bir boşluğun solunda veya üstünde bir boşluk olup olmadığını kontrol eder A. Sonunda, eğer son hücre bir Aulaşılabilir içeriyorsa , aksi halde değil ( say/A$/+0kontrol eden +0şey ; sonucun olacağından 0veya boş dize1 yerine emin olmak için burada ve ). Not bütün bir çizgi maç olacak, böylece ayarı1
/.*/@+İlk satırın sonunun dizinine, bu da bir satırın büyüklüğünde olduğu gibi, bir satırın büyüklüğünde olduğu .{@{+}}gibi, karakterin tam olarak aynı karakterle eşleşmesini sağlar. ( @{+}eşittir @+, ancak yalnızca eski regex'te kullanılabilir)

Çalıştırmak için:

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

(ve 1111011çizgiyi değiştirirseniz, 1111111artık çözülemez ve çıktı 0bunun yerine olacaktır 1)

Perl, 56 bayt, Güvenli (14 puan)

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

Meydan okumaydı bu bir bir diffing algoritma oluşturmak zorunda kalmak; iki dosya girebilmeniz ve bir diff çıktısı alabilmeniz veya bir dosya ve bir diff girebilmeniz ve diğer dosyayı verebilmeniz gerekir. Bu mücadelenin puanlaması kod yarışmasıdır , en küçük farkı kazanan yapar; bununla birlikte, bu zorluk cevabın rekabetçi olmasını gerektirmez, sadece teknik özelliklerle uyumludur, bu yüzden girdileri birleştirmek için sadece XOR kullanan (aynı program farklılaştırmak için çalıştığı anlamına gelir), bunun yerine golf tarzında farklı bir program yazdım. ) un diffing.

En zor kısım, orijinal dosyaların uzunluğunu tekrar üretmektir. Girdi, yedi bitlik bir karakter kümesi olan ASCII olarak belirtilir, böylece dosyanın uzunluğunu izlemek için sekizinci biti kullanmamı sağlar. Farklılaşırken, bir y///komut kullanarak her bitin yüksek bitini ayarladık (bitsel aritmetiğin olacağından biraz daha fazla karışıktır). Farklılaştırılmıyorsa (girişin zaten yüksek bit ayarına sahip olduğuna dikkat çekerek tanınır), NUL'ları çıkıştan kaldırırız. (Ben ettik sadece giriş NUL içerdiği bayt ise bu başarısız olacağını fark etti;. Ancak meydan bir test pilin bakımından tanımlanır ve Neyse ki NUL bataryada bayt vardır sanmıyorum varsa, o zaman bu program yanlış olur ve diskalifiye edilmesi gerekir, polis ve soyguncularla ilgili bir problem Başka kimsenin cevabınızdaki kolayca düzeltilemeyen kusurları gösterecek kadar bilgiye sahip olmaması!)

Octave, 15 sayı! KASA

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

Burada çevrimiçi deneyin .

Açıklama:

Kod, xolanlar ve sıfırları içeren bir girdi dizesini 10010110110101ve bir tamsayı alır y.

Bir dizinin hareketli ortalamasını MATLAB / Octave içinde bulmak için şunları yapabilirsiniz:

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

Yalnızca maksimum değerin yeriyle ilgilendiğimiz için, gerçek değerler değil, dizgiyi sayılara dönüştürmeye özen göstermemiz gerekmez. (x.^2)kareler tüm ASCII değerleri 48,49için 0,1. Bu gereklidir, çünkü Octave cumsumdoğrudan karakterleri kullanamaz . cumsum(+x)iki bayt daha kısa olacaktır fakat bunun xbir dize olduğunu ortaya koyacaktır .

Bu aslında oldukça iyi bir golf sahasıdır ( .^2bunun yerine hariç +). Tabii ki, evrişim daha basit olurdu.

MATL . Çatlak

&:"@FYAYm7>vs

Çevrimiçi deneyin!

Gerekmese bile giriş ve çıkış olarak gösterdim. Zaten düzenleme geçmişinde olduğundan: program iki sayı girer ve bir sayı çıkarır.

C #, 590 bayt, Kırık

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

Muhtemelen oldukça kolay, ayrıca oldukça uzun bir program, _,

05AB1E , 27 bayt, kırık!

Bu gönderim için çalışması için de girdi gereklidir. Kırılması zor olmamalı.

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

Açıklama (meydan okuma için):

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

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

아희 (Aheui) , 0 bayt, Kırık

Burada dene! (Program zaten sizin için yazılmıştır: p)

Python, 935 Bayt

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

Üzgünüm bir obfuscator kullandım, ama yasak değil ve çok kolay. (Ve bunu yapmak için o kadar zamanım da yoktu ...)

Yakut ( DLosc tarafından çatlak )

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

MATL . Güvenli , 93 puan

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

Çevrimiçi deneyin!

açıklama

Buradaki zorluk Kaynak kodu ekolojik ayak izi idi .

Kod, Hamming ağırlığını (sayı sayısını) giriş dizesinin ASCII kodlarının ikili sunumunda hesaplar; Bunun dışında, ipin testçıktısı alınır 0(Hamming ağırlığı yerine 17).

Bu ipin özel kılıfı biraz karışıktır. Program önce girişin ASCII kodlarındaki ardışık farklar dizisini hesaplar ve tersine çevirir. Bunun için testverir [1 14 -15].

Daha sonra, ilk ngüçlerin oluşturduğu dizi 14hesaplanır ( [1 14 196 ...]), burada ngirdi uzunluğu; ve ilk floor(n/2)değerler korunur. Yani testbu giriş için verir [1 14]. İhmal edilen toplam, [1 14 -15]girdi sağlayan bu diziye eklenir test. Bu, daha önce elde edilmiş olan ardışık farklılıkların tersine çevrilmiş dizisiyle eşitlik için test edilir.

Öte yandan, ASCII giriş karakter kodlarının toplamı hesaplanır ve karşılaştırılır 448, dizideki elementlerin (ardışık) farkı olarak üretilir [2^6 2^9](burada ^gücü belirtir).

Giriş test, form [1 14 -15]ve toplamın ardışık farklarını ters çeviren tek dizedir 448. Farklılıklar []veya [1](daha kısa inoyt dizeleri için) toplamın toplamı ile uyumlu değil 448. [1 14 196]ASCII karakterleriyle farklılıklar veya daha büyükler elde edilemez.

Kod, ilk koşul için test sonucunun (ardışık farklılıklar), ikinci koşulun olumsuz sonuçlarından (toplam toplam) daha küçük olup olmadığını kontrol eder. Bu, 0eğer her iki koşulun da yerine getirilip getirilmediğini verir. Son olarak, bu girişin ASCII kodlarının ikili gösterimindeki sayılarla çarpılır.

CJam ( güvenli , 21 puan)

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

Bu anonim bir bloktur (fonksiyon).

Python 3, ~ 2000 bayt, (güvenli: 23 puan)

Orijinal Program

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

Meydan okuma

Bu aslında benim kendi mücadelem için bir cevap, Primenary Strings . Bunu 0, bir soygunun girme ihtimalinin düşük olduğu birkaç girdi dışında, hemen hemen her şey çıkacağından seçtim . Kod basit bir algoritmadır, ancak yoğun şekilde karıştırılmıştır (elle).

Pip , 13 bayt

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

Çevrimiçi deneyin (Girdi değil Değişkenler olarak girdi verin).

JavaScript, 533 bayt, Kırık! Dave tarafından

_=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)"));

Benim en sevdiğim şaşkınlık değil, ama çok temiz. Olarak arayın RESULT(inputs).

Kodumun senin çatlağınla ne yaptığını detaylı olarak açıklarsan +50 puan ödül alabilirim . (Beraber olmak zorunda değiller, bu yüzden kaprislerine uyuyorsa FGITW'yi özgür hisset.)

Pyke, 3458 bayt, SAFE , puan 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%)

Burada dene!

0x1bSE tarafından yenilmiş gibi görünen birkaç (30) bayt vardır.

Octave, 40 puan. KASA

Oldukça popüler bir mücadeleye biraz şaşkın cevap.

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

Bunu oktav-çevrimiçi olarak test etmenizi öneririm . STDIN söz konusu olduğunda, Ideone o kadar iyi değil.

Bu kaldıraç simülatörü 2015 mücadelesiydi. Formdaki Girdi '123^32. Çıktı bu sırada -1 0 1Sol Ağır, Dengeli ve Sağ Ağır için olacaktır.

Tamamen golf oynadığında böyle görünüyor :

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

Bu -Inf, NaN, Infsırasıyla L, B, R için çıkar.

Haskell, GÜVENLİ

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

Ideone'da dene . "Kullanım":

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

In Dize Shenanigans meydan biri bir dize ve iki karakter verilir ve daha sonra ikinci ile ilk karakter her geçtiği yerini gerekir. Ancak giriş, yalnızca tırnak işaretleri içindeki gerçek dizeyi içeren ve bir boşluk bırakılan iki karakterdir:

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

TeX, 240 bayt, GÜVENLİ , 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

Farklı kaydet jeopardy.tex, çalıştır pdftex jeopardy.texve aç jeopardy.pdf.

Sonuç: metni içeren bir PDF N(ve sayfa numarası 1).

Python 3, Çatlak!

Bunu yazmak çok komikti, sonunda kolayca kırılabilir olsa da :)

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 - Maltysen tarafından Cracked

İşe yararsa Pyth, saklı tutulan cevapların hiçbiri değildi.

u=.+G.*A

Denemek!

C #, 91 bayt

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

Mathematica, 161 bayt

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

BrainFuck - 140 Bytes, daHugLenny tarafından Cracked

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

Burada deneyin!

C ++ 14, Kırık

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

Değişken sayıda parametre alır ve a değerini döndürür vector<int>.

Kullanımı:

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

Mathematica, 34 bayt, Kırık

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

Adlandırılmış işlev ( ±).

Ruby, 50 bayt

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

çıktı: 400

Python 2.7, 45 bayt

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

İpucu (veya belki de değil): "balık neşter kullanıyor."

2016.11.23 - ikinci ipucu: "Etrafında yüzen bir şey bırakma!"