To wyzwanie ma dwa wątki. To jest wątek gliniarzy. Wątek rabusiów znajduje się tutaj .

Wyzwanie polega na wybraniu sekwencji OEIS i napisaniu dwóch pełnych programów w dwóch różnych językach, które produkują ten n-ty element w sekwencji, gdy otrzyma n przez STDIN lub inne formy standardowego wejścia, gdzie n jest dowolną liczbą dodatnią. Jednak twoje dwa programy muszą być anagramami, co oznacza, że ​​każdy z nich można zmienić na podstawie liter drugiego.

Programy muszą wypisać dziesiętną liczbę, a następnie opcjonalne białe znaki do STDOUT. Programy mogą wyświetlać dane wyjściowe do STDERR, jednak należy je zignorować, a jeśli ukryta sprawa to zrobi, należy wyraźnie stwierdzić, że tak jest.

Jeśli chcesz, możesz także generować kod znakowy. Jeśli jednak zrobisz to w swoim ukrytym rozwiązaniu, musisz to podać w treści swojego zgłoszenia.

Następnie podasz numer OEIS, kod źródłowy i nazwę jednego języka, w którym się znajduje.

Rabusie złamią twoje zgłoszenie, jeśli znajdą anagram oryginalnego zgłoszenia, który działa w języku innym niż ten, który już przedstawiłeś. Do zgryzienia odpowiedź muszą tylko znaleźć dowolny język i program, który generuje sekwencję i to anagram od oryginału, niekoniecznie odebrać można było myśleć o.

W związku z tym zachęcasz się do jak najtrudniejszego znalezienia języka, który wykona zadanie, korzystając z ich listy symboli.

Punktacja

To jest golf golfowy, więc zwycięzcą jest najkrótszy niezakłócony program.

Języki

Języki zostaną uznane za różne, jeśli dwa proponowane rozwiązania nie zakończą zadania w obu językach. Obejmuje to różne wersje tego samego języka, o ile ani rozwiązanie policjanta, ani rozwiązanie rabusia nie wygenerują poprawnych danych wyjściowych w języku drugiego.

tzn. jeśli istnieją dwa rozwiązania 1 i 2, które są odpowiednio w języku A i B, rozwiązanie 2 nie może generować poprawnych danych wyjściowych w języku A, a rozwiązanie 1 nie może generować poprawnych danych wyjściowych w języku B.

Bezpieczeństwo

Po tym, jak Twoje zgłoszenie nie zostanie spakowane przez tydzień, możesz opublikować swoje rozwiązanie i uznać swój post za bezpieczny. Jeśli po tygodniu zdecydujesz się nie publikować rozwiązania, Twoja odpowiedź może być nadal łamana.

Python 2, 118 bajtów, A042545 Pęknięty

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|

Nie chciałem implementować trywialnej sekwencji, więc zdecydowałem się na mój identyfikator użytkownika PPCG. Najpierw napisałem to w innym języku, co powinno dać ci wskazówkę co do tego języka, choć założę się o 100 dolarów, że zostanie to złamane w golfowym języku, zanim zostanie złamane w zamierzonym innym języku.

Uwaga: Z powodu błędów precyzji zmiennoprzecinkowej jest to dokładne tylko do wartości wejściowej wynoszącej 14. Planowane rozwiązanie jest takie samo.

Zamierzone rozwiązanie, 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

Działa w prawie taki sam sposób jak rozwiązanie Pythona, chociaż sekwencja jest przechowywana jako pierwsza, a nie najpierw, ponieważ JS nie obsługuje indeksowania ujemnego.

Brain-Flak, 24 bajty, A000290 , Bezpieczny

Jeszcze jedno kwadratowe rozwiązanie. Tym razem nie ma nic oprócz nawiasów

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

Zamierzonym rozwiązaniem było Brain-Flueue , wersja flakingu mózgu, w którym zamiast stosów używa się kolejek. Program był:

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

Języki są uważane za odrębne, ponieważ żaden z dwóch programów nie zatrzymuje się, gdy są uruchamiane w innym języku.

Python 2, 38 bajtów, A000290 Pęknięty przez Emignę

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

Prawdopodobnie będzie to bardzo łatwe do złamania. Przeważnie publikuję to jako punkt wyjścia.

Podstawowe rozwiązanie w CJam:

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

CJam , 7 bajtów, A005843 Pęknięty!

ri2*e#^

To jest podstawowa 2*nsekwencja.

Wyjaśnienie:

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

Wypróbuj online!

Oryginalne rozwiązanie, marchew

#^i*2er

Marchew jest stworzonym przeze mnie esolangiem. Dawno temu przestałem go rozwijać. Wybrałem to dlatego, że miałem nadzieję, że innym językom będzie trudno skomentować niepotrzebne części kodu.

Wyjaśnienie:

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

Wypróbuj online!

2sable , 15 bajtów, A000290 , pęknięty!

Wskakując na ten sam pociąg n ² : str.

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

Wypróbuj online!

Brain-Flak, 44 bajty, A000290 Pęknięty

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

Wypróbuj online!

Oryginalne rozwiązanie, Python 2

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

Excel, 12 bajtów, A000012 Pęknięty

=IF(1=1,1,1)

Może nie najtrudniejszy, ale fajny do zgryzienia.

Python 2, 25 bajtów, A000583 , pęknięty

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

Program kończy pracę z błędem po wydrukowaniu wyniku.

Mój ukryty kod (znacznie różni się od pękniętego rozwiązania!):

Właściwie 25 bajtów

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

Wypróbuj online!

Wyjaśnienie:

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 bajtów, A042545 , Bezpieczny

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

Tym razem działa zarówno w 2, jak i 3. I nie ma komentarzy! Co zrobisz?

Uwaga: Podobnie jak w przypadku starego rozwiązania, traci on precyzję po pierwszych 15 wyrazach z powodu błędów arytmetycznych zmiennoprzecinkowych.

Zamierzone rozwiązanie, 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])   

Chociaż zachowałem kilka starych wersji, jakoś udało mi się zgubić tę kopię, ale na szczęście złożenie jej razem z innymi nie było zbyt trudne. Widzę teraz, że miałem obce prtprogramy w obu programach, które można było rozegrać. No cóż.

Python 2, 124 bajty, A144945 , [Bezpieczny]

Złamanie tego przyniosłoby ci nagrodę w wysokości 500 powtórzeń! Za późno!

Liczba sposobów umieszczenia 2 królowych na szachownicy n X n, aby atakowały się nawzajem.

Mam nadzieję, że nie jest to zbyt łatwe. Ustawiłem swój kod, aby białe znaki były wyraźnie widoczne. Są to tylko spacje i znaki nowej linii.

_{Uwaga: zamierzone rozwiązanie jest generowane za pomocą kodu znakowego}

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

Wypróbuj online

Zamierzone rozwiązanie, Zagłówki :

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

Jest to równoważne z następującym programem BF:

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

Fuzzy Octo Guacamole, 26 bajtów, A070627 [Bezpieczny]

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

Przypadki testowe:

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

Rozwiązanie:

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

Działa w Magistack.

Pyth, 75 bajtów, A004526 Pęknięty, mleko

Bardziej zabawny test niż cokolwiek innego, ale:

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

Wypróbuj online!

Roztwór mleka (wypukły):

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;

Wypróbuj online

Zamierzone rozwiązanie (///):

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

Wypróbuj online

Pobiera dane wejściowe w postaci 2 przed ostatnim średnikiem i wyświetla prawidłową liczbę Q.

Sekwencja jest indeksowana 0 (tzn. 0 to 0, 1 to 0, 2 to 1, ...)

Znaleziono niewielkie błędy składniowe w ///, więc edytowałem wszystkie rozwiązania.

MATL, 7 bajtów, A000217 , pęknięty

:sp{1}x

Sekwencja jest n(n+1)/2(Liczba trójkątna), począwszy od wejścia n=1w sposób określony przez wyzwanie: 1, 3, 6, 10, ... (wyjście na wejście 0nie jest gwarantowana być taka sama w obu programów).

Program w innym języku kończy się z błędem (po wygenerowaniu poprawnego wyjścia w STDOUT).

Wypróbuj online!

:            % 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 bajtów, A000290 Pęknięty

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

Python 3, 27 bajtów, A000012 , Pęknięty

Tym razem brak danych wejściowych!

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

Wcięcia są tabulatorami, ale nie do zapisywania bajtów - są one wymagane do białych znaków.

Nie sądzę, że potrzebuje linku do TIO lub wyjaśnienia!

(Prawdopodobnie w jakiś sposób nie zajmie to długo)

Zamierzona odpowiedź (białe znaki):

-Start-


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

(Początek i koniec nie jest częścią programu)

Przepraszam, zapomniałem dodać, że drukuje do STDERR:

Wypróbuj online!

Fuzzy Octo Guacamole , 11 bajtów, A001844 [Bezpiecznie!]

hha02^d+**+

dh*h++^2*0aSzczelina, która tego rodzaju działa, jest w Pyth. Nie jest to jednak właściwy format wyjściowy.

Mój kod wciąż tam jest! (i nie ma go w Pyth)

Przypadki testowe:

0 -> 1
1 -> 5

Rozwiązanie:

^++d0ah*2*h

W Jolfie.

WinDbg, 39 bajtów, A000007 Pęknięty przez jimmy23013

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

Trudna sekwencja 0**n.

Wprowadzanie odbywa się poprzez przekazanie wartości do pseudorejestru $t0.

Moje oryginalne rozwiązanie to C #:

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

JavaScript ES6, 38 bajtów, A000290 , pęknięty

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

Ten kwadratowy pociąg jest całkiem sprytny, ale nigdzie nie jedzie szybko. (Zdobądź to? Pociąg kwadratowy ? Jak w, koła? Nie? Ok, w porządku. Krytycy .)

Zamierzona odpowiedź: siatkowa ( spróbuj online! ),

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 bajtów, A002275 Pęknięty!

i:"@ax'1']
v!

Wypróbuj online!

Wyjaśnienie:

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 bajtów, A002378 , pęknięty!

Mam nadzieję, że czegoś nie umknęło. Oblicza a (n) = n × (n + 1) :

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

Moja wersja:

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

Lub rozwinięta wersja:

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

Zauważ, że >w lewym górnym rogu nie jest używany (z wyjątkiem programu 2sable). Zrobiłem to, aby zmylić złodziei (ale to oczywiście nie działało haha).

Wypróbuj online!

2sable, 15 bajtów, A087156

D1QiA0*<}.;2->>

Wypróbuj online

Sekwencja liczb nieujemnych, z wyjątkiem 1.

Befunge 93 , 14 bajtów, A121377 , Pęknięty przez mleko !

&52* %68*+ .@Q

Ciekawostka: zamierzonym rozwiązaniem tego problemu jest pierwszy raz, kiedy używam tego języka.

Moje rozwiązanie w Pyth. & @ wydrukuj błąd, ale dotyczy to STDERR, który według OP jest ignorowany.

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

Python 2, 35 bajtów, A048735 , Bezpieczny

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

Oryginalne rozwiązanie było w moim własnym języku programowania Wise .

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

Większość postaci nie ma znaczenia. Ważnymi bohaterami są pierwsze sześć. :tworzy dwie kopie pierwszego przedmiotu na stosie. <<>bit przesuwa się dwukrotnie w lewo i raz w prawo, co jest równoważne przesunięciu bitu raz w lewo. &pobiera bitowy oraz górny i drugi element (oryginał i nieco przesunięta kopia). Na koniec >bit przesuwa się raz w prawo.

05AB1E, 5 bajtów, A000012 , bezpieczny

$;$1?

Sekwencja 1. Wypróbuj online

Zamierzone rozwiązanie: Arcyou

1;$$?

Wypróbuj online . Nie mogłem znaleźć dokumentacji dla tego języka, więc nie mam wyjaśnienia, jak dokładnie działa.

Python 2, 70 Bytes, A000217 Cracked!

Mam przeczucie, że nie będzie to łamane w języku, którego użyłem dla innej wersji, zobaczymy :)

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


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

Zrozumiałem później, że niepoprawnie zaciemniłem kod (nie zmienia to poprawności opublikowanej odpowiedzi). Oto kod, od którego zacząłem w Haystack:

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

05AB1E , 9 bajtów, A000042 Pęknięty!

1×,1*-^$)

Jest to jednoargumentowa reprezentacja liczb naturalnych (OEIS). Gdyby na przykład dane wejściowe były 3na przykład, dane wyjściowe byłyby 111.

Wyjaśnienie:

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

Wypróbuj online!

Oryginalne rozwiązanie, marchew

1^*$-1×^)

Wyjaśnienie

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

W *mnoży smyczkowych (n+1)razy, tak że a^*3skutkuje aaaai nie aaa. Dlatego odjęłam 1od danych wejściowych.

Dopiero teraz zdaję sobie sprawę, że )nie miało to znaczenia w obu językach: D

Wypróbuj online!

J, 2 bajty, A000290 , Pęknięty

*~

Cóż, równie dobrze może zacząć iść na te dwubajtowe. Wydajność n × n lub n ² .

zamierzone rozwiązanie, Jolf, 2 bajty

*~

Dobrze. Tak. To jest mój własny język i myślę, że działa, ponieważ ~szuka rozszerzonego znaku, ale go nie znajduje, więc po prostu go ignoruje. ¯ \ _ (ツ) _ / ¯ Ups.

ABCR , 24 bajty, A023443 Pęknięty!

70: Quit xi. Classy queue!

Jest mnóstwo bezoperacyjnych. Oblicza n - 1.

05AB1E, 8 bajtów, A000042 , pęknięty

F1}J,(1&

Przypadki testowe:

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

Ouroboros , 6 bajtów, A000012 Pęknięty

)49.o(

Zawsze wychodzi 1.