Wyzwanie:

Utwórz program, który akceptuje dodatnią liczbę całkowitą i sprawdza, czy można go zapisać w postaci (3 ^ x) -1, gdzie X to kolejna dodatnia liczba całkowita .

Jeśli to możliwe, wypisz X

Jeśli nie, wypisz -1 lub instrukcję fałszowania .

Przykładowe wejścia / wyjścia

Wejście:

2

Można go zapisać jako (3 ^ 1) - 1, więc wypisujemy x, który jest 1

Wynik:

1

Wejście:

26

26 można zapisać jako (3 ^ 3) - 1, więc wypisujemy x (3)

Wynik:

3

Wejście:

1024

1024 nie można zapisać w postaci (3 ^ x) - 1, więc wypisujemy -1

Wynik:

-1

To jest golf golfowy, więc wygrywa najmniej bajtów

Powiązany OEIS: A024023

Mathematica, 21 16 bajtów

-1&@@Log[3,#+1]&

Wykorzystuje obliczenia symboliczne Mathematica. Jeśli #+1jest potęgą trzech, wówczas Log[3,#+1]wyliczy liczbę całkowitą, która jest wartością atomową. W przeciwnym razie dostaniemy Log[#+1]/Log[3]jak jest. Ponieważ nie jest to wartość atomowa, jest to wyrażenie, które zawsze ma formę head[val1,val2,...]. W tym przypadku tak naprawdę jest coś takiego Times[Power[Log[3], -1], Log[#+1]].

Rozróżniamy te dwa przypadki, stosując do wyniku inną funkcję. Zastosowanie naprawdę polega na tym, że zastępuje headczęść wyrażenia. Ponieważ wyniki liczb całkowitych są atomowe, zastosowanie do nich dowolnej funkcji nic nie robi. W szczególności f @@ atom == atom.

Jednak w drugim przypadku głowa zostaje wymieniona. Używamy funkcji, -1&która jest prostą funkcją, która ignoruje argumenty i zwraca -1. Otrzymujemy więc coś -1&[Power[Log[3], -1], Log[#+1]]w przypadkach niecałkowitych, co ocenia bezpośrednio na -1. Specjalna obudowa dzięki magii.

Python, 46 44 bajtów

lambda x:max(n*(3**n-1==x)for n in range(x))

Wypróbuj online!

W tym przypadku 0byłaby to wartość fałszowania. Dzięki @ mbomb007 za wskazanie mojej niepoprawnej pracy oraz 2 bajtów braku []oszczędności.

Haskell, 35 bajtów

f x=last(-1:[i|i<-[1..x],3^i-1==x])

Przykład użycia: f 26-> 3.

05AB1E , 7 bajtów

3IÝm<¹k

Wypróbuj online!

Wyjaśnienie

3        # push 3 
 I       # push input
  Ý      # range [0 ... input]
   m     # 3^[0 ... input]
    <    # -1
     ¹k  # find index of input, return -1 if not found

Galaretka , 5 bajtów

R3*’i

Wyprowadza x lub 0 (fałsz).

Wypróbuj online!

Jak to działa

R3*’i  Main link. Argument: n

R      Range; yield [1, ..., n].
 3*    Map each k to 3**k.
   ’   Decrement the results.
    i  First index of n (0 if not found).

Python 2, 41 bajtów

f=lambda n,i=0:i*0**n or n%3/2*f(n/3,i+1)

Funkcja rekurencyjna, która zwraca 0niepasujące dane wejściowe. Kilkakrotnie piętro dzieli dane wejściowe przez 3, licząc liczbę kroków i, które są wysyłane na końcu. Ale jeśli jakikolwiek krok daje wartość, nktóra nie jest równa 2 modulo 0, liczba nie była dla 3^i-1, więc wynik jest mnożony przez 0.

Perl, 31 bajtów

say grep{3**$_-1==$i}0..($i=<>)

Wymaga -Eflagi do uruchomienia:

perl -E 'say grep{3**$_-1==$i}0..($i=<>)' <<< 26

Objaśnienia:
grep{3**$_-1==$i}0..($i=<>)zwraca listę elementów zakresu 0..$_(tj. Od 0 do wejścia), które spełniają test 3**$_-1==$i. Tylko jeden element może spełnić ten test, więc instrukcja zwróci tablicę 0 lub 1 element. Następnie drukujemy tę listę: albo Xalbo nic (co jest fałszem).

Pyth, 11 bajtów

?-JjQ3 2ZlJ

Konwertuje na bazę 3 i sprawdza równość na [2, 2, ..., 2].

JavaScript (ES7), 38 36 34 bajtów

f=(n,k=33)=>3**k-n-1&&--k?f(n,k):k

Lub tylko 30 29 bajtów, jeśli można wyjść z błędem w przypadku niepowodzenia:

f=(n,k)=>~(n-3**k)?f(n,-~k):k

Test

f=(n,k=33)=>3**k-n-1&&--k?f(n,k):k

console.log(f(177146))
console.log(f(847288609442))
console.log(f(5559060566555522))
console.log(f(123456))

Java 8, 37 58 67 bajtów

i->{String s=i.toString(i,3);return s.matches("2*")?s.length():-1;}

Ta lambda pasuje do Function<Integer, Integer>odniesienia i wykorzystuje prostą sztuczkę base 3.

Tym razem powinno działać poprawnie.

Przetwarzanie, 60 56 bajtów

void q(float n){n=log(n+1)/log(3);print(n>(int)n?-1:n);}

Wysyła, -1jeśli jest fałsz.

Wyjaśnienie

void q(float n){              // n is input
  n=log(n+1)/log(3);          // finds X in 3^X+1=n as a float (here we'll storing that in n)
  print(n>(int)n?-1:n);       // checks if the float is greater than
                              // the number rounded down (by int casting)
                              // if it is greater, output -1
                              // otherwise output X
}

voidjest o 1 bajt krótszy niż użycie float, dlatego funkcja ta wyświetla bezpośrednio dane zamiast zwracać wartość.

Alternatywne rozwiązanie

void z(float n){int c=0;for(++n;n>1;c++)n/=3;print(n==1?c:-1);}

dla 63 bajtów, ale myślę, że ten alt może być golfowany krótszy niż oryginalne rozwiązanie. Pracuję nad tym.

Brachylog , 8 bajtów

,3:.^-?,

Wypróbuj online!

Zwraca wartość, jeśli jest to prawda, a false.jeśli jest to niemożliwe.

Wyjaśnienie

To jest bezpośrednia transkrypcja danej relacji:

,     ,      (Disable implicit unification)
 3:.^        3^Output…
     -?              … - 1 = Input

Perl 6 ,  25  24 bajtów

{first $_==3** *-1,0..$_}

Spróbuj

{first $_==3***-1,0..$_}

Usuwanie miejsca po zakończeniu **pracy, ponieważ jest ono dłuższe niż inny operator poprawki, który może pasować *.
Więc …***…jest parsowany jako … ** * …raczej niż … * ** ….

Spróbuj

Rozszerzony:

{  # bare block lambda with implicit parameter ｢$_｣

  first
    $_ == 3 ** * - 1,   # WhateverCode lambda
    #          ^- current value

    0 .. $_             # a Range up-to (and including) the input

}

R, 24 bajty

Inne podejście niż odpowiedź plannapa i jeden bajt krótszy!

match(scan(),3^(1:99)-1)

Generuje wszystkie liczby całkowite od 3^1-1do 3^99-1i sprawdza, czy standardowe wejście jest zgodne. Jeśli tak, zwraca indeks, do którego pasuje, czyli x. Jeśli nie, zwraca NAwartość falsy.

Nawiasem mówiąc, zaakceptuje wiele wartości jako dane wejściowe i przetestuje je wszystkie, co jest fajną cechą.

Prolog, 20 bajtów

d(A,X):-A#=(3**X)-1.

Ten język jest świetny jak diabli.

| ?- d(1024,X).

no
| ?- d(26,X).

X = 3

yes
| ?- d(2,X).

X = 1

yes

05AB1E , 9 bajtów

DÝ3sm<Q1k

Wypróbuj online!

Drukuje -1 dla fałszu.

D         # Duplicate the input
 Ý3sm     # Push [0 .. input]^3 (e.g. [0^3, 1^3, 2^3, 4^3 ...])
     <    # subtract 1
      Q   # push a 1 everywhere that equals the input, and 0 everywhere else
       1k # push the index of the 1, or -1 if not found
          # implicit output

MATL , 8 bajtów

3i:^qG=f

Daje to liczbę, xjeśli istnieje, lub w inny sposób nic nie daje, co jest fałszem.

Wypróbuj online!

Wyjaśnienie

3    % Push 3
i    % Input n
:    % Range: gives `[1 2 ... n]
^    % Power, element-wise. Gives [3^1 3^2 ... 3^n]
q    % Subtract 1, element-wise. Gives [3^1-1 3^2-1 ... 3^n-1]
=    % Test for equality. Contains 'true' at the position x, if any,
     % where 3^x-1 equals n
f    % Find. Gives index of the 'true' position, which ix x; or gives
     % an empty array if no such position exists. Implicitly display

Japt , 11 bajtów

o æ@U+1¥3pX

Wypróbuj tutaj .

Ogromne podziękowania dla ETHproductions za pomoc!

Python 3, 74 66 64 bajtów

_{-10 bajtów dzięki @ mbomb007, @FlipTack i @ nmjcman101}

from math import*
def f(n):x=ceil(log(n,3));print((3**x-1==n)*x)

Rubinowy, 30 bajtów

Zwraca nil(wartość falsy), jeśli nie znaleziono żadnej liczby. [Wypróbuj online]

->n{(0..n).find{|i|3**i-1==n}}

C, 56 bajtów

 n;f(a){n=0;for(a++;!(a%3)&&(a/=3);++n);return --a?-1:n;}

dodaj jeden do wejścia, a następnie kilkakrotnie podziel przez trzy, aż do znalezienia reszty, jeśli jeden zostanie osiągnięty, zwróć liczbę podziałów -1

Narzędzia Bash / Unix, 37 35 bajtów

bc<<<`dc<<<3o$1p|grep ^2*$|wc -c`-1

Wypróbuj online!

Używa dc do konwersji do podstawy 3, sprawdza, czy wynikowy ciąg składa się z 2, zlicza liczbę znaków (łącznie z nową linią), a następnie używa bc do odejmowania 1.

Jeśli liczba w bazie 3 to nie wszystkie 2 s, to grep nic nie wypisuje (nawet nowej linii), więc liczba znaków wynosi 0, a odjęcie 1 daje -1.

C skompilowany z Clang 3.8.1, 53 , 52 , 54 , 51 bajtów

n;f(y){y++;for(n=0;y%3==0;y/=3)n++;return y^1?0:n;}

@ SteadyBox już opublikował rozwiązanie w C, ale używam innego podejścia.

@Dziękujemy Jasen za pomoc w oszczędzaniu bajtów.

C, 42 bajty, zoptymalizowane przez Wade'a Tylera

n;f(y){for(n=0;y%3>1;y/=3)n++;return!y*n;}

Próbować

C, 37 bajtów, bez return

n;f(y){for(n=0;y%3>1;y/=3)n++;n*=!y;}

Próbować

nma charakter globalny, ale (I)MULmoże mieć tylko operand przeznaczenia w rejestrze, więc należy wprowadzić EAX(zwykły wybór) i przenieść się tam

JavaScript 6, 32 bajtów

f=(y,n)=>y%3>1?f(y/3|0,-~n):!y*n
;[1,2,3,8,12,43046720].forEach(x=>console.log(f(x)))

Jeśli „fałsz” musi być taki sam, 33 bajty:

f=(y,n)=>y%3>1?f(y/3|0,-~n):!y&&n

Pyt , 10 9 bajtów

←⁺3ĽĐĐƖ=*

Wyjaśnienie:

←                Get input
 ⁺               Add one
  3Ľ             Log base 3
    ĐĐ           Triplicate top of stack
      Ɩ          Convert top of stack to integer
       =         Check for equality between top two on stack
        *        Multiply by log_3(input+1)

Zapisano bajt za pomocą funkcji inkrementacji zamiast jawnego dodawania 1

Python, 64 bajty

Wyprowadzane, Falsejeśli liczby nie można zapisać w tym formacie.

def f(n):L=[3**x-1for x in range(n)];print n in L and L.index(n)

Działa to również w 64 bajtach i wyświetla pusty ciąg znaków jako wynik wyjściowy falsy:

def f(n):
 try:print[3**x-1for x in range(n)].index(n)
 except:0

Kreatywne rozwiązanie dla 65 bajtów, generujące 0falsy:

lambda n:-~",".join(`3**x-1`for x in range(n+1)).find(',%s,'%n)/2

Pyth, 10 bajtów

*J@hQ3!%J1

Wypróbuj tutaj!

Julia, 30 bajtów

n->findfirst(n.==3.^(0:n)-1)-1

Jest to prosta funkcja - tworzy wektor, który ma truetylko w odpowiedniej pozycji w 3^a-1, gdzie awektor zawiera liczby całkowite od 0 do n. Znajduje „pierwszą” pozycję, która jest, truei odejmuje 1 (jeśli to wszystko false, znalezisko jest oceniane na zero i zwraca -1).

Jak 0:nma 0na pierwszym miejscu, odjąć 1 koryguje indeksowania, a także pozwala na -1fałszywą odpowiedź.

Pyke, 9 6 bajtów

3m^Qh@

Wypróbuj tutaj!

3m^    -  map(3**i, range(input))
     @ - V in ^
   Qh  -  input + 1

Stara 9-bajtowa wersja:

b3'l}\2q*

Wypróbuj tutaj!

Pyth 8 bajtów

xm^3dUQh

     UQ  # generate all values 1..Q (Q is the input)
 m^3d    # map 3^d over this ^ list
x      h # find the input+1 (hQ) in the result of the last command

Wypróbuj tutaj