To wyzwanie dla gliniarzy i rabusiów . Przejdź do wątku rabusiów tutaj .

Wyzwanie to obejmuje dwie sekwencje OEIS wybrane przez gliniarzy - S ₁ , S ₂ - oraz to, jak dobrze te sekwencje można zagrać w golfa i zaciemnić.

Wyzwanie gliniarzy

Twoim wyzwaniem jako gliniarza jest wybranie swobodnie dostępnego języka i dwóch sekwencji OEIS. Następnie napisz kod A w tym języku, który pobiera dane wejściowe n i wytwarza S ₁ (n). Kiedy ten kod został zmodyfikowany przez odległość Levenshteina z X znaków (gdzie X nie więcej niż 0.5 * (length A)) i przekształcony kodu B w tym samym język musi następnie wytwarzać S ₂ (n). Musisz napisać ten kod B , ale nie ujawniaj go, dopóki wyzwanie nie będzie bezpieczne (patrz poniżej).

Zgłoszenia gliniarzy muszą zawierać nazwę języka, pełny kod A , liczbę bajtów A , wartość X liczby zmian w dostępie do ich tajnego kodu B oraz wybrane numery sekwencji S ₁ i S ₂ . Możesz wybrać, czy każda sekwencja ma być indeksowana 0, czy indeksowana 1, ale określ ją w swoim zgłoszeniu.

Aby złamać konkretne zgłoszenie, złodzieje muszą wymyślić program C w tym samym języku (i wersji), który wytwarza S ₂ (n) i zmienia znak Y na inny niż A (z Y <= X). Rabusie niekoniecznie muszą znaleźć dokładnie ten sam kod B, który wyprodukował gliniarz (potajemnie).

Wygrywanie i punktacja

Jeśli twoja odpowiedź policjanta nie zostanie złamana w ciągu 7 dni (168 godzin), możesz ujawnić swoje własne rozwiązanie B , w którym to momencie twoja odpowiedź jest uważana za bezpieczną. Dopóki nie ujawnisz swojego rozwiązania, może ono zostać złamane przez rabusiów, nawet jeśli minęło już 7 dni. Jeśli twoja odpowiedź się popsuła, zaznacz to w nagłówku odpowiedzi wraz z linkiem do odpowiedzi odpowiedniego rabusia.

Gliniarze wygrać mając niezarysowanego przedstawienie z najkrótszym A . W przypadku remisu jako remis zostanie użyty najmniejszy X. Jeśli nadal remisuje, wcześniejsze zgłoszenie wygra.

Dalsze zasady

• Nie wolno używać żadnych wbudowanych funkcji do mieszania, szyfrowania lub generowania liczb losowych (nawet jeśli generator liczb losowych zostanie ustawiony na stałą wartość).
• Dozwolone są programy lub funkcje, ale kod nie może być fragmentem i nie można zakładać środowiska REPL.
• Możesz przyjmować dane wejściowe i przekazywać dane wyjściowe w dowolnym dogodnym formacie . Metody wejścia / wyjścia muszą być takie same dla obu sekwencji.
• Ostatecznym kalkulatorem odległości Levenshteina dla tego wyzwania jest ten na Planet Calc.
• Oprócz bycia wyzwaniem CnR, jest to również golf golfowy, więc obowiązują wszystkie zwykłe zasady gry w golfa.

Brain-Flak , 28 bajtów, Odległość 4, A002817 , A090809 Pęknięty

Ta odpowiedź wykorzystuje indeksowanie 1

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

Wypróbuj online

Dla wszystkich zainteresowanych jest 27475 prawidłowych programów Brain-Flak z Levenshtein 4 w odległości od tego programu i 27707 z 4 lub mniejszą odległością. Tak więc rozwiązanie brutalnej siły byłoby wykonalne na komputerze klasy konsumenckiej.

7 , 33 znaków, 13 bajtów, X = 10, A000124 → A000142 , Bezpieczny

171720514057071616777023671335133

Wypróbuj online!

Odległość Levenshteina jest mierzona w kategoriach znaków, więc napisałem program w kategoriach znaków, które zawiera powyżej (i Wypróbuj online !, w tym sam język, chętnie uruchamia programy zakodowane w ASCII). Jednak program jest przechowywany na dysku przy użyciu sub-bajtowego kodowania 7, co oznacza, że ​​sam program jest w rzeczywistości następującym zrzutem heksadecymalnym (o długości 13 bajtów):

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

(Ponieważ odległość Levenshteina mierzona jest liczbą znaków, niekoniecznie dodajesz / usuwasz / zmieniasz 10 bajtów , więc prawdopodobnie najlepiej jest pracować z oryginalnym ASCII.)

Program jak napisano implementuje A000124 (liczby trójkątne + 1); każde pęknięcie musi implementować A000142 (silnia). Oba programy pobierają dane wejściowe ze stdin (jako liczby całkowite dziesiętne), zapisują swoje dane wyjściowe na stdout i traktują wejście 1 jako pierwszy element sekwencji (oraz wejście 2 jako drugi element itp.).

Mam nadzieję, że bardzo wysoka wartość X powstrzyma ludzi przed brutalnym wymuszaniem programu, tym razem (co zawsze stanowi ryzyko w przypadku wpisów policjantów i złodziei w 7).

Rozwiązanie

177172051772664057074056167770236713351353

Wypróbuj online!

Różnice od oryginału:

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

Nie mam przygotowanych wyjaśnień na temat tego, jak one działają, więc zajmie mi to trochę czasu, aby uzyskać wyjaśnienie, ponieważ będę musiał je zrozumieć od zera. Mam nadzieję, że w końcu będzie wyjaśnienie.

Pyke, Levenshtein odległość 1, A036487 , A135628 .

Pęknięty!

X*e

Wypróbuj tutaj!

Pęknięty!

*[0]o 1***

• S ₁ = A000012 = 1,1,1,1,1,...= Sekwencja wszystkich 1. (0-indeksowane)

• S ₂ = A001477 = 0,1,2,3,4,...= Nieujemne liczby całkowite. (0-indeksowane)

Wypróbuj online!

Potwierdzono współpracę z wersją Perl 6 2017.01 i wersją Perl6 działającą na TIO.

( A można dalej grać w golfa 1***- mam nadzieję, że jest to również dozwolone.)

Bezpieczny!

{[+] [,] ^$_}

• S ₁ = A161680 = 0 0 1 3 6 10 15 21...= zero, po których następują liczby trójkątne.
• S ₂ = A000217 = 0 1 3 6 10 15 21 28 ...= Liczby trójkątne.
• Zero indeksowane.

Wypróbuj online!

(Potwierdzono współpracę z wersją Perl 6 działającą na TIO.)

Rozwiązanie

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

Jak działa oryginał:

{           }  # 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

Jak działa rozwiązanie:

{            } # 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

Wykorzystuje fakt, że operatory numeryczne, takie jak dodawanie, traktują listę jako liczbę elementów, więc w tym przykładzie suma jest 1 + 2 + 3 + 4 = 10.

I tak, no-op „Reduce with przecinkiem” w oryginale niejako omija zasady gry w golfa, ale wolę patrzeć na to jako na głupiutki algorytm, który został w jak największym stopniu zagrany w golfa (białe znaki itp.) co to jest... :)

Galaretka , 11 bajtów, X = 5, A005185 → A116881

ịḣ2S;
1Ç¡ḊḢ

Jest to pełny program, który przyjmuje liczbę całkowitą jako argument wiersza poleceń i wypisuje liczbę całkowitą.

Obie sekwencje są indeksowane jak w OEIS, tj. A005185 jest indeksowany 1, a A116881 jest indeksowany 0.

Wypróbuj online!

JavaScript, 41 bajtów, odległość 3, A061313 , A004526 , pęknięty

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

Wypróbuj online

Wykorzystuje indeksowanie 1, rozwiązanie wykorzystuje indeksowanie 0.

Jeszcze raz inne rozwiązanie ...

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

Pęknięty!

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

• S ₁ = A000045 = 0 1 1 2 3 5 8 13 21 34...= „Liczby Fibonacciego”. ( 0-indeksowane )
• S ₂ = A000035 = 0 1 0 1 0 1 0 1 0 1...= „Okres 2”. ( 0-indeksowane )

Wypróbuj online!

(Potwierdzono współpracę z wersją Perl 6 działającą na TIO.)

WolframAlpha, 18 bajtów, X = 1

Cracked by math_junkie!

(sum1to#of n^1)*2&

Czasami WolframAlpha faktycznie będzie w stanie wyświetlić taką czystą funkcję w formie funkcjonalnej (innym razem się myli); ale można go wesoło wywołać przy użyciu danych wejściowych - na przykład (sum1to#of n^1)*2&@5zbiorów 30.

S1 = A002378 (liczby stałe)

S2 = A000537 (suma pierwszych nkostek)

Obie sekwencje mają indeks 0.

Pyke, Levenshtein odległość 2, A008788 , A007526

Pęknięty!

'th^

Wypróbuj tutaj!

Stańmy się nieco trudniej, prawda?

Pierwsza odpowiedź jest oparta na 1, a crack na 0.

JavaScript, 15704 bajtów, odległość 2, A059841 i A000004 - pęknięty

To rozwiązanie jest bardzo długie, więc możesz znaleźć pełny kod w tym github gist.

Oryginalna odpowiedź (ta) ma 1 indeks. (Wiem, że to zdecydowanie za długo, tylko dla zabawy).

Brain-Flak , 16 bajtów, odległość Levenshteina 4, A000217 i A002378 - Pęknięty przez Martina Endera!

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

Wypróbuj online!

To powinno być dość łatwe do złamania.

JavaScript, 30 bajtów, odległość 4, A000290 , A000079 , - Pęknięty!

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

Indeksowanie na podstawie 0

@Kritixi Lithos rozwiązanie faktycznie różniło się od mojego

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

Wypróbuj online

JavaScript (ES6), odległość wynosi 1, A000079 i A000004 - pęknięty

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

Oryginalna odpowiedź (ta) jest oparta na 0. Teraz, gdy został złamany, oto oryginalna funkcja B:

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

Pęknięty!

+(*%%2)

• S ₁ = A059841 = 1 0 1 0 1 0 1 0...= „* Okres 2: Powtórz (1,0)”. (0-indeksowane)
• S ₂ = A001477 = 0 1 2 3 4 5 6 7...= „Nieujemne liczby całkowite”. (0-indeksowane)

Wypróbuj online!

(Potwierdzono współpracę z wersją Perl 6 działającą na TIO.)

Java 7, Levenshtein odległość 4, A094683 , A000290 , Pęknięty

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-indeksowane.
Wypróbuj tutaj!