Bu bir polis ve soyguncular mücadelesi. Soyguncular iplik için buraya gidin .

Bu zorluk iki içerir OEIS polisler tarafından seçilen dizileri - S ₁ , S ₂ - ve bu diziler golfed ve Karartılmış ne kadar iyi.

Polislerin Mücadelesi

Bir polis olarak zorluk, özgürce kullanılabilir bir dil ve iki OEIS dizisi seçmektir. Daha sonra, yazma kodu bir girdi alır o dilde , n ve üretir S ₁ (n). Bu kod, X karakterinden Levenshtein mesafesi ile ( X'ten fazla olamaz 0.5 * (length A)) değiştirilir ve aynı dilde B koduna çevrilirse , S ₂ (n) üretmesi gerekir . Aslında bu B kodunu yazmalısınız , ancak zorluğunuz güvende olana kadar açıklamayın (aşağıya bakınız).

Polislerin gönderimleri dil adı, tam kod içermelidir A , bayt-sayımını A , X, onların gizli almak için kaç değişiklik değerini B kodu ve seçilen S ₁ ve S ₂ sıra numaralarını. Her dizinin 0 veya 1 dizinli olup olmadığını seçebilirsiniz, ancak lütfen gönderiminizde belirtin.

Belirli bir gönderimi kırmak için, soyguncular aynı dilde (ve versiyonda) C ₂ (n) üreten ve Y karakterinin A ( dan ) ' dan uzaklaştığı bir program C ile gelmelidir . Soyguncular mutlaka polisin (gizlice) ürettiği aynı B kodunu bulmaya ihtiyaç duymazlar .Y <= X

Kazanma ve Puanlama

Polis yanıtınız 7 gün içinde (168 saat) kırılmadıysa , cevabınızın güvenli olduğu kabul edilen kendi B çözümünüzü açığa çıkarabilirsiniz . Çözümünüzü açığa vurmazsanız, 7 gün geçse bile, yine de hırsızlar tarafından kırılabilir. Cevabınız çatlarsa, lütfen cevabın başlığında ve ilgili hırsızın cevabına bir bağlantı ekleyin.

Polisler, en kısa A ile gönderilmemiş gönderimleri yaparak kazanırlar . Bağlanırsa, en küçük X tie-breaker olarak kullanılacaktır. Hala bağlıysa, önceki sunum kazanacak.

Ek Kurallar

• Karma, sayı veya rasgele sayı üretimi için herhangi bir yerleşik kullanmayın (rastgele sayı üretecini sabit bir değere yerleştirseniz bile).
• Programlara veya işlevlere izin verilir, ancak kod pasajlı olmamalı ve bir REPL ortamı varsaymamalısınız.
• Herhangi bir uygun formatta girdi alabilir ve çıktı verebilirsiniz . Giriş / çıkış yöntemleri her iki sekans için aynı olmalıdır.
• Bu meydan okuma için Levenshtein mesafe için kesin hesap makinesi bu bir gezegen Calc üzerinde.
• Bir CnR mücadelesi olmasının yanı sıra, bu kod golf olup normal golf kuralları geçerlidir.

Brain-Flak , 28 bayt, 4 Mesafe, A002817 , A090809 Kırık

Bu cevap 1 indeksleme kullanıyor

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

Çevrimiçi deneyin

İlgilenen herkes için bu programdan Levenshtein uzaklığı 4 ile 4 ve daha az mesafe ile 27707 geçerli 27475 geçerli Brain-Flak programları vardır. Bu nedenle, bir kaba kuvvet çözümü, tüketici sınıfı bir bilgisayarda mümkün olacaktır.

7 , 33 karakter, 13 bayt, X = 10, A000124 → A000142 , Güvenli

171720514057071616777023671335133

Çevrimiçi deneyin!

Levenshtein mesafesi karakter cinsinden ölçülür, bu yüzden programı yukarıda içerdiği karakter cinsinden yazdım (ve dili çevrimiçi de dahil olmak üzere çevrimiçi deneyin! ASCII'de kodlanmış programları çalıştırmaktan mutludur) Ancak, program 7'nin alt byte şifrelemesi kullanılarak diskte depolanır, yani programın kendisi aslında şu hexdump'tır (yani 13 byte uzunluğunda):

00000000: 3cf4 2982 f1ce 3bfe 13dc b74b 7f         <.)...;....K.

(Levenshtein mesafesi karakter cinsinden ölçüldüğü için, buraya 10 byte eklemeniz / silmeniz / değiştirmeniz gerekmez , bu nedenle orijinal ASCII ile çalışmak muhtemelen en iyisidir.)

Yazılı olarak program A000124'ü uygular (üçgen sayılar + 1); Herhangi bir çatlak A000142'yi (hizipler) uygulamalıdır. Her iki program da stdin'den (ondalık tamsayılar olarak) girdi alır, çıktılarını stdout'a yazar ve dizinin ilk elemanı (ve ikinci öğe olarak 2 girişi vb.) Olarak 1 girişini ele alır.

Umarım çok yüksek X değeri, insanları bu programı kaba kabadayı durduracak, bu sefer (ki bu 7’de polis ve soyguncular girişlerinde her zaman bir risktir).

Çözüm

177172051772664057074056167770236713351353

Çevrimiçi deneyin!

Orijinalden farklılıklar:

17 172051 405707 1 61677702367133513 3
17 7 172051 77266 405707 405 61677702367133513 5 3

Bu çalışmaların nasıl yapıldığına dair açıklamalar hazırlamıyorum, bu yüzden açıklama yapmak biraz zaman alacak, çünkü neredeyse sıfırdan anlamaya çalışacağım. Umarım sonunda bir açıklama olacaktır.

Pyke, Levenshtein mesafesi 1, A036487 , A135628 .

Çatlak!

X*e

Burada dene!

Çatlak!

*[0]o 1***

• S ₁ = A000012 = 1,1,1,1,1,...= Tüm 1 dizileri. (0 endeksli)

• S ₂ = A001477 = = Olumsuz 0,1,2,3,4,...tamsayılar. (0 endeksli)

Çevrimiçi deneyin!

İle işe Onaylandı Perl 6 sürümü 2.017,01 ve Perl6 sürümüyle TIO üzerinde çalışan.

( A daha golf oynayabilirdi 1***- Umarım olduğu gibi de izin verilir.)

Kasa!

{[+] [,] ^$_}

• S ₁ = A161680 = 0 0 1 3 6 10 15 21...= Sıfır ve ardından üçgen sayılar.
• S ₂ = A000217 = 0 1 3 6 10 15 21 28 ...= Üçgen sayılar.
• Sıfır endekslendi.

Çevrimiçi deneyin!

(TIO'da çalışan Perl 6 sürümüyle çalışmak üzere onaylandı.)

Çözüm

{[+] [\,] ^$_}

Orijinal nasıl çalışır:

{           }  # A lambda.
          $_   # Lambda argument.                     e.g. 4
         ^     # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [,]       # Reduce with comma operator.          e.g. 0, 1, 2, 3
 [+]           # Reduce with addition operator.       e.g. 6

Çözüm nasıl çalışıyor:

{            } # A lambda.
           $_  # Lambda argument.                     e.g. 4
          ^    # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [\,]      # Triangle reduce with comma operator. e.g. (0), (0,1), (0,1,2), (0,1,2,3)
 [+]           # Reduce with addition operator.       e.g. 10

Ayrıca, toplama gibi sayısal işleçlerin bir listeye öğe sayısı olarak davrandığını, yani örnekte toplamın olduğu gerçeğini açıklar 1 + 2 + 3 + 4 = 10.

Ve evet, orjinalinde "virgül operatörü ile küçült" no-op, kod-golf kurallarına uymak gibi bir şey değil; ne olduğunu... :)

Jöle , 11 bayt, X = 5, A005185 → A116881

ịḣ2S;
1Ç¡ḊḢ

Bu, tamsayıyı komut satırı argümanı olarak alan ve bir tamsayı yazan tam bir programdır.

Her iki sekans, OEIS'de olduğu gibi endekslenir, yani A005185 , 1 indekslenir ve A116881 , 0 indekslenir.

Çevrimiçi deneyin!

Javascript, 41 bayt, 3 mesafesi, A061313 , A004526 , Kırık

f=x=>{return x>1?x%2?f(x+1)+1:f(x/2)+1:0}

Çevrimiçi Deneyin

1 tabanlı indeksleme kullanır, çözüm 0 tabanlı indeksleme kullanır.

Bir kez daha, farklı bir çözüm ...

f=x=>{return x>1?x<2?f(x-1)+1:f(x-2)+1:0}

Çatlak!

{(0,1,*+*...*)[$_]}

• S ₁ = A000045 = 0 1 1 2 3 5 8 13 21 34...= "Fibonacci sayıları". ( 0 dizinli )
• S ₂ = A000035 = 0 1 0 1 0 1 0 1 0 1...= "Periyot 2". ( 0 dizinli )

Çevrimiçi deneyin!

(TIO'da çalışan Perl 6 sürümüyle çalışmak üzere onaylandı.)

WolframAlpha, 18 bayt, X = 1

Math_junkie tarafından Cracked!

(sum1to#of n^1)*2&

Bazen WolframAlpha aslında bu şekilde saf bir işlevi işlevsel biçimde gösterebilir (diğer zamanlarda kafasını karıştırır); ancak verilen bir girdiyle neşeyle çağrılabilir - örneğin, (sum1to#of n^1)*2&@5verimler 30.

S1 = A002378 (pronik sayılar)

S2 = A000537 (ilk nküplerin toplamı )

Her iki dizi de 0 indekslidir.

Pyke, Levenshtein mesafesi 2, A008788 , A007526

Çatlak!

'th^

Burada dene!

Biraz zorlaşalım mı?

İlk cevap 1 tabanlıdır ve çatlak 0 tabanlıdır.

Javascript, 15704 bayt, 2, A059841 ve A000004 arasındaki mesafe - kırık

Bu çözüm son derece uzun, bu yüzden tam kodu bu github özünde bulabilirsiniz.

Orijinal cevap (bu) 1 indekslenmiştir. (Bunun çok uzun sürdüğünü biliyorum, sadece eğlence için.)

Brain-Flak , 16 bayt, 4’ün Levenshtein mesafesi, A000217 ve A002378 - Martin Ender!

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

Çevrimiçi deneyin!

Bu çatlamak için oldukça kolay olmalı.

Javascript, 30 bayt, 4 Mesafe, A000290 , A000079 , - Çatlak!

f=x=>{return x?2*x-1+f(x-1):0}

0 tabanlı endeksleme

@Kritixi Lithos'un çözümü benimkinden farklıydı

f=x=>{return x?f(x-1)+f(x-1):1}

Çevrimiçi deneyin

Javascript (ES6), mesafe 1, A000079 ve A000004'tür - çatlak

as=function(){ return 2*2**((11)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

Orijinal cevap (bu) 0 tabanlıdır. Şimdi kırıldı, işte orijinal B işlevi:

as=function(){ return 2*2**((1^1)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

Çatlak!

+(*%%2)

• S ₁ = A059841 = 1 0 1 0 1 0 1 0...= "* Periyot 2: Tekrarla (1,0)". (0 endeksli)
• S ₂ = A001477 = 0 1 2 3 4 5 6 7...= " Olumsuz tamsayılar". (0 endeksli)

Çevrimiçi deneyin!

(TIO'da çalışan Perl 6 sürümüyle çalışmak üzere onaylandı.)

Java 7, 4'ün Levenshtein mesafesi, A094683 , A000290 , Kırık

int x{double r=1;for(int i=0;i<42;i++)r=r/2+n/r/2;int k=(int)((int)n*(float)n/Math.pow(n,(Math.sin(n)*Math.sin(n)+Math.cos(n)*Math.cos(n))/2));return n%4%2==(int)Math.log10(Math.E)/Math.log((double)'H'-'@')?(int)r:k;}

0 endeksli.
Burada dene!