Meydan okuma:

Pozitif bir tamsayı kabul eden ve X'in başka bir pozitif tamsayı olduğu (3 ^ x) -1 şeklinde yazılıp yazılmadığını kontrol eden bir program oluşturun .

Olabilirse, X çıktısını alın

Olmazsa , -1 veya sahte bir deyim çıktı .

Örnek girişler / çıkışlar

Giriş:

2

(3 ^ 1) - 1 olarak yazılabilir, bu yüzden 1 olan x çıktısını alırız.

Çıktı:

1

Giriş:

26

26 (3 ^ 3) - 1 olarak yazılabilir, bu yüzden x (3) çıktısını alırız.

Çıktı:

3

Giriş:

1024

1024 (3 ^ x) - 1 biçiminde yazılamaz, bu nedenle -1 çıktı

Çıktı:

-1

Bu kod-golf yani en az bayt miktarı kazanır.

İlgili OEIS : A024023

Mathematica, 21 16 bayt

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

Mathematica'nın sembolik hesaplamasını kullanır. Eğer #+1üçün gücü ise o Log[3,#+1]zaman atomik bir değer olan bir tamsayı sonucu hesaplayacaktır. Aksi takdirde Log[#+1]/Log[3]olduğu gibi alacağız . Bu bir atomik değer olmadığından, daima formda olan bir ifadedir head[val1,val2,...]. Bu durumda aslında böyle bir şey Times[Power[Log[3], -1], Log[#+1]].

Sonucu başka bir fonksiyonla uygulayarak iki durumu birbirinden ayırıyoruz. Gerçekten uygulama yapan şey head, bir ifadenin yerini almasıdır. Tamsayı sonuçları atomik olduğundan, bunlara herhangi bir işlevi uygulamak hiçbir şey yapmaz. Özellikle f @@ atom == atom.

Bununla birlikte, diğer durumda, kafa değiştirilir. Kullandığımız işlev -1&, argümanlarını görmezden gelen ve döndüren basit bir işlevdir -1. Böylece -1&[Power[Log[3], -1], Log[#+1]]tamsayı olmayan durumlarda doğrudan değerlendirilen bir şey elde ederiz -1. Büyü ile özel kasa.

Python, 46 44 bayt

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

Çevrimiçi deneyin!

Bu durumda, 0sahte değer olacaktır. Hatalı çıktımı ve 2 bayt []tasarrufu göstermediğim için @ mbomb007 sayesinde .

Haskell, 35 bayt

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

Kullanım örneği: f 26-> 3.

05AB1E , 7 bayt

3IÝm<¹k

Çevrimiçi deneyin!

açıklama

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

Jöle , 5 bayt

R3*’i

Çıktılar x veya 0 (yanlış).

Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

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

0Eşleşmeyen girişler için dönen bir özyinelemeli işlev . Tekrar tekrar zemine girişi i, sonunda çıkan adım sayısını sayarak 3'e böler . Ancak, herhangi bir adım n2 modulo 0 olmayan bir değer üretiyorsa , sayı için değildi 3^i-1, bu nedenle çıktı 0 ile çarpılır.

Perl, 31 bayt

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

-EÇalıştırmak için bayrak gerektirir :

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

Açıklamalar: testi sağlayan
grep{3**$_-1==$i}0..($i=<>)aralıktaki elemanların bir listesini 0..$_(ör. 0'dan girişe) döndürür 3**$_-1==$i. En fazla yalnızca bir eleman bu testi karşılayabilir, bu nedenle bu komut 0 veya 1 elemanlı bir dizi döndürür. Daha sonra bu listeyi yazdırıyoruz: ya Xhiç ya da hiçbir şey (ki bu sahtedir).

Pyth, 11 bayt

?-JjQ3 2ZlJ

Tabana 3 dönüştürür ve eşitliği kontrol eder [2, 2, ..., 2].

JavaScript (ES7), 38 36 34 bayt

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

Veya başarısızlıkla ilgili bir hatayla çıkmak uygunsa, sadece 30 29 bayt:

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

Ölçek

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 bayt

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

Bu lambda Function<Integer, Integer>referansa uyuyor ve basit 3 tabancasını kullanıyor.

Bu sefer düzgün çalışması gerekir.

İşlem, 60 56 bayt

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

Çıkışlar -1falsy eğer.

açıklama

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
}

voidkullanımdan 1 bayt daha kısadır float, bu nedenle bu işlev bir değer döndürmek yerine doğrudan çıktı verir.

Alternatif çözüm

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

63 bayt için, ancak bu alt orijinal çözümden daha kısa olması için golf olabilir düşünüyorum. Üzerinde çalışıyorum.

Brachylog , 8 bayt

,3:.^-?,

Çevrimiçi deneyin!

True ve false.bu imkansız ise değeri verir .

açıklama

Bu verilen ilişkinin doğrudan bir kopyasıdır:

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

Perl 6 ,  25  24 bayt

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

Dene

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

Çalışdıktan sonra boşluğu kaldırmak, **eşleşebilecek diğer infix operatöründen daha uzun olduğu için *.
Öyle değil …***…ayrıştırılır .… ** * …… * ** …

Dene

Expanded:

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

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

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

}

R, 24 bayt

Plannapus'un cevabından farklı bir yaklaşım ve bir bayt daha kısa!

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

Tüm tamsayıları oluşturur 3^1-1etmek 3^99-1ve kontroller Stdin eşleşirse. Öyleyse, eşleştiği dizini döndürür, ki bu x. Değilse, NAsahte değer olarak döner .

Bu arada, girdi olarak çoklu değerleri kabul edecek ve temiz bir özellik olan hepsini test edecektir.

Prolog, 20 bayt

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

Bu dil cehennem kadar havalı.

| ?- d(1024,X).

no
| ?- d(26,X).

X = 3

yes
| ?- d(2,X).

X = 1

yes

05AB1E , 9 bayt

DÝ3sm<Q1k

Çevrimiçi deneyin!

Sahte için -1 yazdırır.

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 bayt

3i:^qG=f

Bu, sayı xvarsa veya aksi takdirde hiçbir şey çıkmadığında çıktısını alır;

Çevrimiçi deneyin!

açıklama

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 bayt

o æ@U+1¥3pX

Burada dene .

Yardım için ETHproductions'a teşekkürler!

Python 3, 74 66 64 bayt

_{-10 bayt @ mbomb007, @FlipTack ve @ nmjcman101 sayesinde}

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

Yakut, 30 bayt

nilSayı bulunamadıysa döndürür (sahte bir değer). [Çevrimiçi deneyin]

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

C, 56 bayt

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

girişe bir tane ekleyin ve sonra kalanı bulunana kadar art arda üçe bölün, birine ulaşılırsa, diğer -1 sayısını döndürün

Bash / Unix yardımcı programları, 37 35 bayt

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

Çevrimiçi deneyin!

Base 3'e dönüştürmek için dc'yi kullanır, elde edilen dizenin tümünün 2s olduğunu kontrol eder, karakter sayısını (bir yeni satır dahil) sayar ve sonra 1'i çıkarmak için bc'yi kullanır.

Taban 3'teki sayı 2'nin tümü değilse , grep hiçbir şey çıkarmaz (yeni satır bile değil), bu nedenle karakter sayısı 0 olur ve 1 çıkarılırsa -1 olur.

Clang 3.8.1, 53 , 52 , 54 , 51 Bayt ile derlenen C

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

@SteadyBox C'ye zaten bir çözüm yolladı, ancak farklı bir yaklaşım kullanıyorum.

@ Baytları kurtarmaya yardımcı olduğu için Jasen'a teşekkür ederiz.

C, 42 Bayt, Wade Tyler’dan optimize edildi

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

Deneyin

C, 37 Bayt, olmadan return

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

Deneyin

nküreseldir ancak (I)MULkayıt işleyişini sadece bir kayıt defterinde tutabilir, o zaman EAX(her zamanki seçim) yerine koymalı ve hareket etmelidir.

JavaScript 6, 32 Bayt

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

"Sahte" nin aynı olması gerekiyorsa, 33 Bayt:

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

Pyt , 10 9 bayt

←⁺3ĽĐĐƖ=*

Açıklama:

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

Açıkça eklemek yerine, artırma işlevini kullanarak bir bayt kaydedildi 1

Python, 64 bayt

Çıkışlar Falsenumarası o biçiminde yazılmış edilemezse.

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

Bu ayrıca 64 baytta çalışır ve boş dizeyi sahte çıktı olarak yazdırır:

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

0Sahte çıktılar için 65 baytlık yaratıcı bir çözüm :

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

Pyth, 10 bayt

*J@hQ3!%J1

Burada dene!

Julia, 30 bayt

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

Bu basit bir fonksiyondur - truesadece içinde 0 ile tamsayı içeren bir vektörün 3^a-1bulunduğu karşılık gelen konumda olan abir vektör oluşturur n. Bulunan "ilk" konumunu bulur trueve 1'i çıkarır (hepsi falseise, bulma sıfıra döner ve -1 ile döner).

Olarak 0:nbulunur 0, ilk nokta, aynı zamanda çıkarma 1 indeksleme için düzeltir ve etkinleştirme -1yanlış cevap.

Pyke, 9 6 bayt

3m^Qh@

Burada dene!

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

Eski 9 bayt sürümü:

b3'l}\2q*

Burada dene!

Pyth 8 bayt

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

Burada dene