Bu meydan okuma iki konu var. Bu polislerin ipliği. Soyguncuların ipliği burada bulunur .

Buradaki zorluk, bir OEIS dizisi seçmek ve iki tam dilde, STDIN aracılığıyla bir n verildiğinde sıradaki o nci maddeyi üreten iki farklı dilde veya n'nin herhangi bir pozitif sayı olduğu başka bir standart girdi formunu yazmaktır. Ancak iki programınız anagram olmalıdır, yani her biri diğerinin harflerinden yeniden düzenlenebilir.

Programlar, sayının ondalık sayısını ve ardından isteğe bağlı boşlukları STDOUT'a vermelidir. Programlar STDERR'ye gönderilebilir, ancak göz ardı edilmeli ve eğer gizli durum böyle olursa, durum böyle olduğu açıkça belirtilmelidir.

İsterseniz karakter koduyla da çıktı alabilirsiniz. Ancak, gizli çözümünüzde bunu yaparsanız, gönderiminizin gövdesinde böyle bir durum belirtmeniz gerekir.

Daha sonra OEIS numarasını, kaynak kodunu ve adını sunacak bir içinde bulunduğu dili.

Soyguncular, sunmuş olduğunuzdan başka bir dilde çalışan orijinal gönderinin bir anagramını bulurlarsa gönderiminizi kıracaklardır. Bir cevabı kırmak için sadece diziyi oluşturan ve orijinalin bir anagramı olan herhangi bir dili ve programı bulmaları gerekir , mutlaka düşündüğünüz cevabı değil.

Böylece, sembol listesini kullanarak görevi yapan herhangi bir dili bulmayı olabildiğince zorlaştırmaya teşvik edilirsiniz.

puanlama

Bu kod golf, bu yüzden kırılmamış en kısa program kazanan.

Diller

Önerilen iki çözüm her iki dilde de görevi tamamlamazsa, diller farklı olarak değerlendirilecektir. Bu, ne polisin çözümü ne de soyguncunun çözümü, diğerinin dilinde doğru çıktı üretmediği sürece aynı dilin farklı sürümlerini içerecektir .

Örneğin, sırasıyla A ve B dilinde iki ve 1 numaralı çözümler varsa, 2. çözüm A dilinde doğru çıktı üretmemeli ve 1. çözüm B dilinde doğru çıktı üretmemelidir.

Emniyet

Gönderiminiz bir hafta boyunca açıldıktan sonra, çözümünüzü gönderebilir ve gönderinizi güvenli ilan edebilirsiniz. Bir hafta sonra bir çözüm göndermemeyi seçerseniz, cevabınız hala kırılabilir.

Python 2, 118 bayt, A042545 Kırık

i=input();s=1/(801**.5-28);a=[0,1]
for p in range(i):a+=[a[-2]+a[-1]*int(s)];s=1/(s-int(s))
print a[i]#,,,.//000fhlmo|

Önemsiz bir dizi uygulamak istemiyordum, bu yüzden PPCG kullanıcı kimliğime gitmeye karar verdim. Bunu önce başka bir dilde yazdım, bu dilin ne olduğu hakkında size bir ipucu vermeliyim, bununla birlikte, diğer dilde kırılmadan önce bunun bir golf dilinde kırılacağına 100 dolar yatırdım.

Not: Kayan nokta hassasiyet hataları nedeniyle, bu yalnızca 14 girişe kadar doğrudur. Amaçlanan çözüm aynı şekildedir.

Amaçlanan çözüm, JavaScript (ES7)

for(i=prompt(),s=1/(801**.5-28),a=[1,0];i--;s=1/(s-n))
  n=s|0,a.unshift(a[1]+a[0]*n);
alert(a[0])  //#+2:[]giiiiinnpt

Python çözümü ile hemen hemen aynı şekilde çalışır, ancak JS negatif endekslemeyi desteklemediği için sekans, en küçükten ziyade en büyükten önce depolanır.

Brain-Flak, 24 bayt, A000290 , Güvenli

Yine başka bir kare çözüm. Bu sefer parantez dışında hiçbir şey yok

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

Amaçlanan çözüm, bacaların yerine kuyruk kullanan beyin- lafının bir versiyonu olan Beyin-Flueue'dur . Program şuydu:

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

Dillerin farklı olduğu düşünülür, çünkü iki programdan hiçbiri diğer dilde çalıştırıldığında durmaz.

Python 2, 38 bayt, A000290 Emigna'dan Kırık

def e(X):return X*X
print e(input())##

Bu muhtemelen kırması çok kolay olacaktır. Bunu çoğunlukla bir başlangıç ​​noktası olarak gönderiyorum.

CJam’da Orignial çözümü:

ri:XX*e#def ()return X
e#pnt (input())

CJam , 7 bayt, A005843 Kırıldı!

ri2*e#^

Bu temel bir 2*ndizi.

Açıklama:

r          e# read input
 i         e# convert to integer
  2*       e# multiply it by 2
    e#^    e# this is a comment that is ignored by the interpreter

Çevrimiçi deneyin!

Orijinal Çözüm, Havuç

#^i*2er

Havuç benim tarafımdan yaratılmış bir esolang. Bunu uzun zaman önce geliştirmeyi bıraktım. Bunu seçmemin nedeni, diğer dillerin kodun gereksiz kısımlarını yorumlamanın zor olacağını ummamdı.

Açıklama:

#^            This pushes the input to the stack (anything before the ^ is the stack)
  i           Convert stack to integer
   *2         Multiply it by 2
     er       These are ignored because they are not Carrot commands
              Implicit output

Çevrimiçi deneyin!

2sable , 15 bayt, A000290 , Kırık!

Aynı n ² trende atlama: s.

*?"!#$&<=@\^{|}

Çevrimiçi deneyin!

Brain-Flak, 44 bayt, A000290 Kırık

<({({})({}[()])}{}))()()()turpentine/"*"*4splint>

Çevrimiçi deneyin!

Orijinal çözüm, Python 2

print(input()**(len(set("{}{}{}[]()<>"))/4))

Excel, 12 bayt, A000012 Kırık

=IF(1=1,1,1)

Belki en zoru değil, kırması eğlenceli bir şey.

Python 2, 25 bayt, A000583 , kırık

Y=input("");print`Y**4`,X

Bu program çıktıyı yazdırdıktan sonra bir hata ile çıkıyor.

Gizli kodum (çatlak çözümden büyük ölçüde farklı!):

Aslında , 25 bayt

4,n`*`Y")ii(*nppruttY;="X

Çevrimiçi deneyin!

Açıklama:

4,n`*`Y")ii(*nppruttY;="X
4,n                        input, repeat 4 times
   `*`Y                    do * until the stack stops changing (fixed-point combinator)
       ")ii(*nppruttY;="X  push this string and immediately pop and discard it

Python, 118 bayt, A042545 , Güvenli

i=int(input());s=pow(801.0,0.5);a=[0|0,1]
for Moshprtflmah in range(i):s=1./(s%1);a+=[a[-2]+a[-1]*int(s)];
print(a[i])

Bu sefer hem 2 hem de 3'te çalışıyor. Ve yorum yok! Ne yapacaksın?

Not: Eski çözümde olduğu gibi, kayan nokta aritmetik hataları nedeniyle ilk 15 terimden sonra hassasiyet kaybedilir.

Amaçlanan çözüm, JavaScript (ES6)

giiiiinnnnprt:
i=prompt([n=+2]);s=Math.pow(801,.5);for(a=[1,0];i--;a.unshift(a[1]+a[0]*(s|0)))s=1/(s%1)
alert(a[0])   

Birkaç eski versiyon tuttuğum halde, bir şekilde bu kopyayı kaybetmeyi başardım , ama neyse ki diğerlerinden bir araya getirmek çok zor değildi. Şimdi anlıyorum ki prther iki programda da golf oynamış olabilirdi. Oh iyi.

Python 2, 124 bayt, A144945 , [Güvenli]

Bunu kırmak sana 500 lira kazandıracaktı! Çok geç!

Birbirine saldıracak şekilde n kraliçe satranç tahtasına 2 kraliçe yerleştirmenin yollarının sayısı.

Umarım çok kolay değildir. Kodumu, boşluk açıkça görülebilmesi için ayarladım. Bunlar sadece boşluklar ve yeni çizgilerdir.

_{Not: amaçlanan çözüm karakter koduyla çıktı verir}

n=input();print((3+2)*n*n+~0*6*n+1)*n/3;            +6;



























+7+7+7+7+7+7+7+7+7;+++++++++++++++9+9*9*9

Çevrimiçi deneyin

Amaçlanan Çözüm, Headsecks :

r2=ni***p**
(


p((0 ;3+++3;+;/


)





i+++nn
 +)7
n

n+++ 


17+~
 +)7;97++++7


69+9n+ ++7+n 69
 +7+ ++7


**7+++tut

Bu, aşağıdaki BF programına eşdeğerdir:

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

Bulanık Octo Guacamole, 26 bayt, A070627 [Güvenli]

49++*5^pm#]%:"?:.=:#,|"1:@

Test durumları:

1 -> 1
3 -> 23
5 -> 1

Çözüm:

^::::|*?1=#@]","%.#49++5pm

Magistack'ta çalışıyor.

Pyth, 75 bayt, A004526 Kırık, süt

Her şeyden daha eğlenceli bir testten başka bir şey değil:

/Q/////////////////****22222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2;;;;;

Çevrimiçi deneyin!

Sütün çözeltisi (Konveks):

2/Q2 2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2*2*2*; 2*;                 2; 2; 2;

Çevrimiçi deneyin

Amaçlanan çözüm (///):

/*///;2/;// ///22/Q//2;///;//;***2222222222222222222222                    

Çevrimiçi deneyin

Son noktalı virgülten önce 2 şeklinde girdi alır ve doğru Q sayısını verir.

Sıra 0-indekslenmiştir (yani 0, 0, 1, 0, 2, 1'dir ...)

/// içinde hafif sözdizimsel hatalar bulundu, bu yüzden tüm çözümleri düzenledi.

MATL, 7 bayt, A000217 , kırık

:sp{1}x

Dizisidir n(n+1)/2girdi başlayan (üçgen sayılar), n=1mücadeleden tarafından belirtildiği gibi: 1, 3, 6, 10, ... (giriş için Çıktı 0iki program aynı olması garanti değildir).

Diğer dildeki program bir hata ile çıkıyor (STDOUT'da doğru çıktıyı ürettikten sonra).

Çevrimiçi deneyin!

:            % Push [1 2 ... n], where n is implicit input
 s           % Sum of that array. Gives the desired result
   p         % Product of that. Gives the same number
    {1}      % Push a cell array containing number 1
       x     % Delete it

Python 2, 37 bayt, A000290 Kırık

print(input()**(1+1))
"'10°3¢','m'"

Python 3, 27 bayt, A000012 , Kırık

Bu sefer giriş yok!

if 1:
    if 1:
        print( '1' )

Girintiler sekmelerdir, ancak baytları kaydetmezler - boşluk için gereklidirler.

Bir TIO bağlantısına veya açıklamasına ihtiyacı olduğunu sanmıyorum!

(Muhtemelen bir şekilde çatlaması uzun sürmeyecek)

Amaçlanan cevap (Boşluk):

-Start-


    if1:if1:print('1')
-End-

(Programın bir parçası değil başlangıç ​​ve bitiş)

Maalesef, STDERR'ye yazdırdığını eklemeyi unuttum:

Çevrimiçi deneyin!

Bulanık Octo Guacamole , 11 bayt, A001844 [Güvenli!]

hha02^d+**+

Pyth'ta bu tür bir çalışma çatlaktır dh*h++^2*0a. Yine de doğru çıktı formatı değil.

Kodum hala orada! (ve Pyth'te değil)

Test Durumları:

0 -> 1
1 -> 5

Çözüm:

^++d0ah*2*h

Jolf’ta.

WinDbg, 39 bayt, A000007 jimmy23013 tarafından Cracked

~e.block{j(0>=@$t0)?@$t0+(1<7);??0}t":"

Zor dizisi 0**n.

Sözde kayıt defterinde bir değer geçirilerek giriş yapılır $t0.

Orijinal çözümüm C # idi:

@t=>(object)(0<@t?0:1)??"$$700~lk.{}+";

JavaScript ES6, 38 bayt, A000290 , Kırık

J=>eval(Array(J).fill(J).join`+`)|2-2;

Bu kare tren oldukça şık, ancak hızlı bir yere gitmiyor. (Alın? Kare tren? İçinde olduğu gibi, tekerlekler? Hayır? Tamam, iyi. Eleştirmenler .)

Amaçlanan cevap: Retiküler ( Çevrimiçi deneyin! ),

in2Jo;=>eval(Array(J).fill(J).j`+`)|-2
in      take input, convert to number
  2J    raise to the second power
    o;  output and terminate; ignores following chars

MATL , 13 bayt, A002275 Kırıldı!

i:"@ax'1']
v!

Çevrimiçi deneyin!

Açıklama:

i           % Grab input
 :          % Push (range(1,input))
  "         % For each element in this range:
   @        %   Push it
    a       %   Is is truthy?
     x      %   Delete it
      '1'   %   Push '1'
         ]  %   End loop
v           % Join all of these '1's together
 !          % Transpose and display

2sable , 13 bayt, A002378 , Kırık!

Umarım bir şey kaçırmadım. A (n) = n × (n + 1) hesaplar :

>*?"!&)<=@\\}

Benim versiyonum:

?"\>@&*})<\=!

Veya açılmamış sürüm:

  ? " \
 > @ & *
} ) < \ =
 ! . . .
  . . .

O Not >sol üst köşesinde (2sable programı hariç) kullanılmamış olduğunu. Bunu soyguncuların kafasını karıştırmak için yaptım (ama bu açıkçası işe yaramadı).

Çevrimiçi deneyin!

2sable, 15 bayt, A087156

D1QiA0*<}.;2->>

Çevrimiçi deneyin

1 hariç, negatif olmayan sayıların sırası.

Befunge 93 , 14 byte, A121377 , Sütle Çatlak !

&52* %68*+ .@Q

Eğlenceli gerçek: Bunun için amaçlanan çözüm ilk defa o dili kullandım.

Pyth'deki çözümüm. & @ bir hata yazdır, ancak OP'ye göre yok sayılan STDERR'ye gidiyor.

+%Q*5 2*6 8.&@

Python 2, 35 bayt, A048735 , Güvenli

print(lambda u:u&u<<1)(input())>>1

Orijinal çözüm kendi programlama dilimdeydi Wise .

:<<>&>print(lambda uuu1)(input())1

Karakterlerin çoğu alakasız. Önemli karakterler ilk altı. :yığındaki ilk öğenin iki kopyasını oluşturur. <<>bit, iki kez sola ve bir kez sağa kayar; bu, bitin bir kez sola kaymasına eşdeğerdir. &bit yönünde ve ikinci ve ikinci öğeyi alır (orijinal ve bit kaydırılan kopya). Son olarak, >bit bir kez sağa kayar.

05AB1E, 5 bayt, A000012 , Güvenli

$;$1?

1'lerin sırası. Çevrimiçi deneyin

Amaçlanan Çözüm: Arcyou

1;$$?

Çevrimiçi deneyin . Bu dilin belgelerini bulamadım, bu yüzden tam olarak nasıl çalıştığını açıklamadım.

Python 2, 70 Bayt, A000217 Kırıldı!

Diğer versiyon için kullandığım dilde kırılmayacağını hissediyorum, göreceğiz :)

o=input()
v=0
i=1
while o:
 v+=i
 i+=1
print v


#|  d00->1@@@++-^,,[

Daha sonra kodun yanlış şekilde gizlendiğini fark ettim (gönderilen yanıtın geçerliliğini değiştirmez). İşte Haystack'ta başladığım kod:

v
0
v
0
i
1
-
>      d0[v
^-1@+@d+1@?,,o|

05AB1E , 9 bayt, A000042 Kırıldı!

1×,1*-^$)

Bu, doğal sayıların Unary gösterimidir (OEIS). Yani eğer giriş, 3örneğin, çıkış olur 111.

Açıklama:

                    # implicit input
1                   # pushes 1 to the stack   
 ×                  # pushes "1" × (the input)
  ,                 # outputs the stack
   1*-^$)           # irrelevant

Çevrimiçi deneyin!

Orijinal Çözüm, Havuç

1^*$-1×^)

açıklama

1^             Push "1" to the stack
  *            Multiply the string by
   $-1         ...the input (as an integer) minus 1 times
      ×,)      Ignored by the interpreter

*Tarafından dize çarpar (n+1)zamanlarda, böylece a^*3sonuçları aaaadeğil aaa. Bu yüzden 1girişten çıkardım .

Ancak şimdi, )bunun her iki dilde de alakasız olduğunu fark ettim : D

Çevrimiçi deneyin!

J, 2 bayt, A000290 , Kırık

*~

İki bayt için de devam etmeye başlayabiliriz. Verimler , n x n ya da n- ² .

amaçlanan çözüm, Jolf, 2 bayt

*~

İyi. Evet. Bu benim kendi dilim ve bence işe yarıyor çünkü ~genişletilmiş bir karakter arıyor, fakat bir tane bulamıyor, bu yüzden onu görmezden geliyor. ¯ \ _ (ツ) _ / ¯ Hata!

ABCR , 24 bayt, A023443 Çatlak!

70: Quit xi. Classy queue!

Bir grup no-op var. Hesaplar n - 1.

05AB1E, 8 bayt, A000042 , Kırık

F1}J,(1&

Test durumları:

1 -> 1
2 -> 11
3 -> 111

Ouroboros , 6 bayt, A000012 Kırık

)49.o(

Her zaman çıktılar 1.