도전:

양의 정수를 허용하고 (3 ^ x) -1 형식으로 작성할 수 있는지 확인하는 프로그램을 작성하십시오. 여기서 X는 또 다른 양의 정수 입니다.

가능하면 X를 출력하십시오.

그렇지 않으면 -1 또는 허위 문을 출력하십시오 .

입력 / 출력 예

입력:

2

(3 ^ 1)-1로 쓸 수 있으므로 1 인 x를 출력합니다

산출:

1

입력:

26

26은 (3 ^ 3)-1로 쓸 수 있으므로 x (3)을 출력합니다

산출:

3

입력:

1024

1024는 (3 ^ x)-1의 형태로 쓸 수 없으므로 -1을 출력합니다

산출:

-1

이것은 코드 골프 이므로 바이트 수가 가장 적습니다.

관련 OEIS : A024023

수학, 21 16 바이트

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

Mathematica의 기호 계산을 사용합니다. 경우 #+13 인 전력은 다음 Log[3,#+1]원자 값 정수 결과를 계산한다. 그렇지 않으면 우리는 그대로 얻을 Log[#+1]/Log[3]것입니다. 이것은 원자 값이 아니기 때문에 항상 형식의 표현식입니다 head[val1,val2,...]. 이 경우 실제로는 다음과 같습니다 Times[Power[Log[3], -1], Log[#+1]].

결과에 다른 기능을 적용하여 두 경우를 구별합니다. 실제로 적용 head하는 것은 표현식 의 일부를 대체한다는 것 입니다. 정수 결과는 원자 적이므로 함수를 적용해도 아무런 효과가 없습니다. 특히 f @@ atom == atom.

그러나 다른 경우에는 헤드가 교체됩니다. 우리가 사용 -1&하는 함수는 인수를 무시하고를 반환하는 간단한 함수입니다 -1. 그래서 우리는 -1&[Power[Log[3], -1], Log[#+1]]정수가 아닌 경우에 무언가 를 얻습니다 -1. 마법을 통한 특별한 케이싱.

파이썬, 46 44 바이트

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

온라인으로 사용해보십시오!

이 경우 0허위 값이됩니다. 내 잘못된 출력을 지적하고 2 바이트 []절약 없음을 알려주는 @ mbomb007 덕분 입니다.

하스켈, 35 바이트

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

사용 예 : f 26-> 3.

05AB1E , 7 바이트

3IÝm<¹k

온라인으로 사용해보십시오!

설명

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

젤리 , 5 바이트

R3*’i

x 또는 0을 출력합니다 (거짓).

온라인으로 사용해보십시오!

작동 원리

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

파이썬 2, 41 바이트

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

0일치하지 않는 입력 을 반환하는 재귀 함수입니다 . 의 단계 수를 세어 입력을 3으로 반복적으로 나눕니다 i. 그러나 어떤 단계에서 n2 모듈로 0이 아닌 값 을 생성 하면 숫자가 for 3^i-1가 아니므로 출력에 0이 곱해집니다.

펄, 31 바이트

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

필요 -E실행에 플래그를 :

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

설명 : 테스트를 만족하는
grep{3**$_-1==$i}0..($i=<>)범위 0..$_(즉, 0에서 입력까지) 의 요소 목록을 리턴합니다 3**$_-1==$i. 하나의 요소 만이 테스트를 충족 할 수 있으므로이 명령어는 0 또는 1 요소의 배열을 반환합니다. 그런 다음이 목록을 인쇄합니다 X(거짓).

Pyth, 11 바이트

?-JjQ3 2ZlJ

밑이 3으로 변환되고 등이인지 확인합니다 [2, 2, ..., 2].

자바 스크립트 (ES7), 38 36 34 바이트

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

또는 실패시 오류와 함께 종료해도 괜찮은 경우 30 29 바이트입니다.

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

테스트

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

자바 8, 37 58 67 바이트

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

이 람다는 Function<Integer, Integer>참조에 적합 하며 간단한 기본 3 트릭을 사용합니다.

이번에는 제대로 작동합니다.

처리 중, 60 56 바이트

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

-1거짓 인 경우 출력 합니다.

설명

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
}

void를 사용하는 것보다 1 바이트 더 짧으므로이 float함수는 값을 반환하는 대신 직접 출력합니다.

대체 솔루션

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

63 바이트의 경우이 대안이 원래 솔루션보다 짧게 골프화 될 수 있다고 생각합니다. 작업 중입니다.

Brachylog , 8 바이트

,3:.^-?,

온라인으로 사용해보십시오!

true이고 false.불가능한 경우 값을 출력합니다 .

설명

이것은 주어진 관계의 직접적인 전사입니다.

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

펄 6 ,  25  24 바이트

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

시도 해봐

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

**일치 할 수있는 다른 접두사 연산자보다 길기 때문에 작업 후에 공백을 제거합니다 *.
따라서 …***…로 해석 … ** * …되지 않습니다 … * ** ….

시도 해봐

넓히는:

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

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

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

}

R, 24 바이트

plannapus의 답변 과 다른 접근법 이며 1 바이트 더 짧습니다!

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

모든 정수를 생성 3^1-1하는 3^99-1, 및 검사 표준 입력이 일치하는 경우. 일치하면 일치하는 인덱스 인을 반환합니다 x. 그렇지 않으면 NA거짓 값으로 반환 합니다.

또한 여러 값을 입력으로 받아들이고 모든 값을 테스트하므로 깔끔한 기능입니다.

프롤로그, 20 바이트

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

이 언어는 지옥처럼 시원합니다.

| ?- d(1024,X).

no
| ?- d(26,X).

X = 3

yes
| ?- d(2,X).

X = 1

yes

05AB1E , 9 바이트

DÝ3sm<Q1k

온라인으로 사용해보십시오!

거짓 인 경우 -1을 인쇄합니다.

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 바이트

3i:^qG=f

숫자가 x있으면 숫자를 출력 하거나 그렇지 않으면 아무것도 출력하지 않습니다.

온라인으로 사용해보십시오!

설명

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 바이트

o æ@U+1¥3pX

여기서 사용해보십시오 .

도움을 주신 ETHproductions에게 큰 감사를드립니다!

파이썬 3, 74 66 64 바이트

_{@ mbomb007, @FlipTack 및 @ nmjcman101 덕분에 -10 바이트}

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

루비, 30 바이트

nil숫자를 찾지 못하면 (거짓 값)을 반환 합니다. [온라인으로 시도]

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

C, 56 바이트

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

입력에 1을 더한 다음 나머지가 발견 될 때까지 3으로 반복하여 나눕니다.

Bash / Unix 유틸리티, 37 35 바이트

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

온라인으로 사용해보십시오!

dc를 사용하여 밑을 3으로 변환하고 결과 문자열이 모두 2인지 확인하고 문자 수 (개행 포함)를 세고 bc를 사용하여 1을 뺍니다.

기수 3의 숫자가 모두 2 가 아닌 경우 grep은 아무 것도 출력하지 않으므로 (줄 바꿈도) 문자 수는 0이되고 1을 빼면 -1이됩니다.

Clang 3.8.1, 53 , 52 , 54 , 51 바이트로 컴파일 된 C

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

@SteadyBox는 이미 C에 솔루션을 게시했지만 다른 접근법을 사용하고 있습니다.

@ 바이트 절약에 도움을 준 Jasen에게 감사합니다.

C, 42 바이트, Wade Tyler 's에서 최적화

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

시험

C, 37 바이트 return

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

시험

n전역 적이지만 (I)MUL레지스터에 첫 번째 피연산자를 가질 수 있으므로 EAX(일반적인 선택)을 넣고 mov해야합니다.

자바 스크립트 6, 32 바이트

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

"가짜"가 동일해야하는 경우 33 바이트 :

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

Pyt , 10 9 바이트

←⁺3ĽĐĐƖ=*

설명:

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

명시 적으로 1을 추가하는 대신 증가 함수를 사용하여 바이트를 저장했습니다.

파이썬, 64 바이트

False해당 형식으로 숫자를 쓸 수없는 경우 출력 합니다.

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

이것은 64 바이트에서도 작동하며 빈 문자열을 잘못된 출력으로 인쇄합니다.

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

65 바이트를위한 독창적 인 솔루션 0으로 허위 출력 :

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

Pyth, 10 바이트

*J@hQ3!%J1

여기 사용해보십시오!

줄리아, 30 바이트

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

간단한 함수입니다- true의 해당 위치에만 있는 벡터를 만듭니다. 3^a-1여기서 a0과 사이의 정수를 포함하는 벡터 n입니다. "첫 번째"위치를 찾아 true1을 뺍니다 (모두 false이면 찾기는 0으로 평가되고 -1을 리턴 함).

마찬가지로 0:n갖는 0제하다고도 빼기 1 인덱싱 보정하고, 가능하게는 -1거짓 응답.

파이크, 9 6 바이트

3m^Qh@

여기 사용해보십시오!

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

이전 9 바이트 버전 :

b3'l}\2q*

여기 사용해보십시오!

피 이스 8 바이트

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

여기를보십시오