양의 정수를 감안할 때 N의 소인수 분해를 가지고 자사의 모든 요소 대체하는 몇 가지 코드 작성 2과를 3.

예를 들어

12 = 2 * 2 * 3 -> 3 * 3 * 3 = 27

이것은 코드 골프 이므로 목표는 답변의 바이트 수를 최소화하는 것입니다.

테스트 사례

1 -> 1
2 -> 3
3 -> 3
4 -> 9
5 -> 5
6 -> 9
7 -> 7
8 -> 27
9 -> 9
10 -> 15
11 -> 11
12 -> 27
13 -> 13
14 -> 21
15 -> 15
16 -> 81
17 -> 17
18 -> 27
19 -> 19
20 -> 45
21 -> 21
22 -> 33
23 -> 23
24 -> 81
25 -> 25
26 -> 39
27 -> 27
28 -> 63
29 -> 29

Fractran , 3 바이트

3/2

Fractran은 문자 그대로 하나만 내장되어 있지만이 작업이 요구하는 것을 정확하게 수행합니다. (또한 자체적으로 Turing-complete입니다.)

언어에는 실제로 표준화 된 구문이나 인터프리터가 없습니다. 이 인터프리터 (블로그 게시물에 대한 주석 – 매우 간단한 언어)는 여기에 표시된 구문을 허용합니다. (다른 구문 다른 Fractran 통역이 있기 때문에, 예를 들어, 일부는이 프로그램을 작성합니다 3 2사용하거나 심지어 3및 20 + 3 바이트의 점수로 이어질 것입니다 명령 줄 인수로. 나는 그것이 3보다 더 잘 할 수 의심 기존 통역사.)

설명

3/2
 /   Replace a factor of
  2  2
3    with 3
     {implicit: repeat until no more replacements are possible}

파이썬 2 , 28 바이트

f=lambda n:n%2*n or 3*f(n/2)

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

숫자가 짝수 인 한 재귀 적으로 숫자를 2로 나누고 결과에 3을 곱합니다. 홀수 숫자는 스스로를 반환합니다.

32 바이트 대체 :

lambda n:n*(n&-n)**0.58496250072

온라인으로 사용해보십시오 . 플로트 오류가 있습니다. 상수는 log_2(3)-1입니다.

사용 (n&-n)의 가장 큰 전력의-2 인자 찾을 n회심을 3**k에 2**k의 힘에 올려서 log_2(3)-1.

05AB1E , 4 바이트

Ò1~P

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

작동 원리

Ò     Compute the prime factorization of the input.
 1~   Perform bitwise OR with 1, making the only even prime (2) odd (3).
   P  Take the product of the result.

하스켈, 24 23 바이트

until odd$(*3).(`div`2)

Haskell에서 홀수 트릭까지 2를 나누고 3을 곱합니다.

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

pointfree 함수 대신 lambda를 사용하고 동일한 바이트 수를 가진 대안 :

odd`until`\x->div(x*3)2

편집 : @ ais523은 원본 버전에서 바이트를 저장하고 @ Ørjan Johansen은 대체 버전에서 하나를 저장하므로 두 버전의 길이는 여전히 동일합니다. 감사!

자바 스크립트 (ES6), 19 바이트

f=x=>x%2?x:f(x*1.5)

입력은 2로 나눌 수 있지만 1.5를 곱하면 2로 나누고 3을 곱하는 것과 같습니다.

브레인 플락 , 76 바이트

{{({}[()]<([({})]()<({}{})>)>)}{}([{}]()){{}((({})){}{})<>}<>}<>({}({}){}())

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

설명

이 프로그램은 숫자를 2로 나누고 나눗셈에서 1의 나머지를 얻을 때까지 3 배로 작동합니다. 그런 다음 루핑을 중지하고 두 배로 늘리고 마지막 숫자에 1을 더합니다.

더 자세한 설명은 결국 ...

수학, 22 19 바이트

3 바이트를 절약 한 lanlock4에 감사합니다!

#//.x_?EvenQ:>3x/2&

한 번에 2의 요소를 반복적으로 교체하는 순수한 기능. 2 ⁶⁵⁵³⁷ 미만의 모든 양의 정수에서 작동합니다 .

MATL , 7 , 6 바이트

Yf1Z|p

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

Dennis의 천재 관측 덕분에 1 바이트 절약

이를 설명하는 가장 좋은 방법은 다양한 지점에 스택을 표시하는 것입니다.

Yf  % Prime factors

[2 2 2 3]

1Z| % Bitwise OR with 1

[3 3 3 3]

p   % Product

81

대체 솔루션 :

Yfto~+p

05AB1E , 6 5 바이트

Adnan 덕분에 바이트를 절약했습니다 .

ÒDÈ+P

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

설명

Ò       # push list of prime factors of input
 D      # duplicate
  È     # check each factor for evenness (1 if true, else 0)
   +    # add list of factors and list of comparison results
    P   # product

Alice , 9 바이트

2/S 3
o@i

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

Alice는 숫자의 제수를 다른 숫자로 대체하기 위해 내장되어 있습니다. 나는 실제로 그렇게 빨리 그것을 사용할 것이라고 생각하지 않았다 ...

I / O 용 코드 포인트를 사용하면 6 바이트가됩니다 I23SO@.

설명

2   Push 2 (irrelevant).
/   Reflect to SE. Switch to Ordinal.
i   Read all input as a string.
    The IP bounces up and down, hits the bottom right corner and turns around,
    bounces down again.
i   Try to read more input, but we're at EOF so this pushes an empty string.
/   Reflect to W. Switch to Cardinal.
2   Push 2.
    The IP wraps around to the last column.
3   Push 3.
S   Implicitly discard the empty string and convert the input string to the integer
    value it contains. Then replace the divisor 2 with the divisor 3 in the input.
    This works by multiplying the value by 3/2 as long as it's divisible by 2.
/   Reflect to NW. Switch to Ordinal.
    Immediately bounce off the top boundary. Move SW.   
o   Implicitly convert the result to a string and print it.
    Bounce off the bottom left corner. Move NE.
/   Reflect to S. Switch to Cardinal.
@   Terminate the program.

젤리 , 8 5 바이트

Æf3»P

Æf3»P  Main Link, argument is z
Æf     Prime factors
  3»   Takes maximum of 3 and the value for each value in the array
    P  Takes the product of the whole thing

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

@Dennis의 힌트 덕분에 -3 바이트!

Pyth- 14 10 9 바이트

*^1.5/PQ2

소인수 분해 (/ PQ2)에서 2의 개수를 계산합니다. 입력 값에 1.5 ^ (# of 2s)를 곱합니다

시도 해봐

자바 , 38 바이트

int f(int n){return n%2>0?n:f(n/2*3);}

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

이전 43 바이트 솔루션 :

int f(int n){for(;n%2<1;)n=n/2*3;return n;}

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

헥사 고니 , 112 91 바이트

격자 크기 6 (91 바이트)

      ? { 2 . . <
     / = { * = \ "
    . & . . . { _ '
   . . { . . } ' * 2
  _ } { / . } & . ! "
 . > % . . < | . . @ |
  \ . . \ . | ~ . . 3
   . . " . } . " . "
    . & . \ = & / 1
     \ = { : = } .
      [ = { { { <

컴팩트 버전

?{2..</={*=\".&...{_'..{..}'*2_}{/.}&.!".>%..<|..@|\..\.|~..3..".}.".".&.\=&/1\={:=}.[={{{<

격자 크기 7 (112 바이트)

       ? { 2 " ' 2 <
      / { * \ / : \ "
     . = . = . = | . 3
    / & / { . . } { . "
   . > $ } { { } / = . 1
  _ . . } . . _ . . & . {
 . > % < . . ~ & . . " . |
  | . . } - " . ' . @ | {
   . . . = & . . * ! . {
    . . . _ . . . _ . =
     > 1 . . . . . < [
      . . . . . . . .
       . . . . . . .

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

컴팩트 버전 :

?{2"'2</{*\/:\".=.=.=|.3/&/{..}{.".>$}{{}/=.1_..}.._..&.{.>%<..~&..".||..}-".'.@|{...=&..*!.{..._..._.=>1.....<[

가독성 향상을위한 Ungolfed Version :

대략적인 메모리 레이아웃

회색 경로 (메모리 초기화)

?     Read input as integer (Input)
{     Move to memory edge "Divisor left"
2     Set current memory edge to 2 
" '   Move to memory edge "Divisor right" 
2     Set current memory edge to 2
"     Move to memory edge "Multiplier" 
3     Set current memory edge to 3
"     Move to memory edge "Temp 2" 
1     Set current memory edge to 1 
{ { { Move to memory edge "Modulo"
=     Turn memory pointer around 
[     Continue with next instruction pointer

루프 엔트리

%     Set "Modulo" to Input mod Divisor
<     Branch depending on result

녹색 경로 (값은 여전히 ​​2로 나눌 수 있음)

} } {     Move to memory edge "Result"
=         Turn memory pointer around 
*         Set "Result" to "Temp 2" times "Multiplier" (3) 
{ = &     Copy "Result" into "Temp2" 
{ { } } = Move to "Temp"
:         Set "Temp" to Input / Divisor (2)
{ = &     Copy "Temp" back to "Input"
"         Move back to "Modulo"

빨간색 경로 (값을 더 이상 2로 나눌 수 없음)

} = & " ~ & ' Drag what's left of "Input" along to "Multiplier"
*             Multiply "Multiplier" with "Temp 2"
! @           Output result, exit program

레티 나 , 23 바이트

.+
$*
+`^(1+)\1$
$&$1
1

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

Brachylog , 7 바이트

~×₂×₃↰|

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

작동 원리

~×₂×₃↰|      original program
?~×₂×₃↰.|?.  with implicit input (?) and output (.) added

?~×₂         input "un-multiplied" by 2
    ×₃       multiplied by 3
      ↰      recursion
       .     is the output
        |    or (in case the above fails, meaning that the input
                 cannot be "un-multiplied" by 2)
         ?.  the input is the output

J , 11 바이트

[:*/q:+2=q:

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

[: 모자 (다음 동사를 monadically 호출하는 자리 표시 자)

*/ 의 제품

q: 주요 요인

+ 플러스 (즉, 하나가 추가 된 곳)

2 두

= (각각의)

q: 주요 요인

J , 15 12 10 바이트

(+2&=)&.q:

온라인으로 사용해보십시오! 아래와 유사하게 작동하며로 대체하는 것과 다른 논리를 갖 2습니다 3.

15 바이트

(2&={,&3)"+&.q:

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

설명

(2&={,&3)"+&.q:
           &.    "under"; applies the verb on the right, then the left,
                 then the inverse of the right
             q:  prime factors
(       )"+      apply inside on each factor
     ,&3         pair with three: [factor, 3]
 2&=             equality with two: factor == 2
    {            list selection: [factor, 3][factor == 2]
                 gives us 3 for 2 and factor for anything else
           &.q:  under prime factor

Pyth , 9 바이트

정수 출력 \ o /

*F+1.|R1P

테스트 스위트 .

작동 원리

*F+1.|R1P
        P   prime factorization
    .|R1    bitwise OR each element with 1
*F+1        product

Japt , 19 16 10 9 7 바이트

k ®w3Ã×

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

설명

 k ®   w3Ã ×
Uk mZ{Zw3} r*1
U              # (input)
 k m           # for every prime factor
    Z{Zw3}     # replace it by the maximum of itself and 3
           r*1 # output the product

PHP, 36 바이트

for($a=$argn;$a%2<1;)$a*=3/2;echo$a;

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

CJam, 10 9 바이트

rimf1f|:*

정말 간단합니다.

설명:

ri  e# Read integer:         | 28
mf  e# Prime factors:        | [2 2 7]
1   e# Push 1:               | [2 2 7] 1
f|  e# Bitwise OR with each: | [3 3 7]
:*  e# Product:              | 63

헥사 고니 , 28 27 26 바이트

?'2{{(\}}>='!:@=$\%<..>)"*

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

배치 :

    ? ' 2 {
   { ( \ } }
  > = ' ! : @
 = $ \ % < . .
  > ) " * . .
   . . . . .
    . . . .

이것은 기본적으로 다음을 실행합니다.

num = input()
while num%2 == 0:
    num = (num/2)*3
print num

이 시점에서 바이트를 최소화하기 위해 루프 경로를 얻을 수있는 방법에 대한 연습입니다.

Japt , 7 바이트

k mw3 ×

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

설명

k mw3 ×

k        // Factorize the input.
  mw3    // Map each item X by taking max(X, 3).
      ×  // Take the product of the resulting array.
         // Implicit: output result of last expression

APL (Dyalog Unicode) , 26 바이트

{⍵(⊣×(3*⊢)×(÷2*⊢))2⍟⍵∨2*⍵}

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

이것은 너무 장황합니다. 나는 뭔가 잘못하고 있어야합니다 ...

R, 42 바이트

답변에서 유일하게 올바른 바이트 수.

x=gmp::factorize(scan());x[x==2]=3;prod(x)

매우 간단하고 gmp패키지를 사용하여 인수 분해 x하고 2를 3으로 바꾸고 제품을 반환합니다.

Befunge-93 , 20 바이트

&>:2%!#v_.@
 ^*3/2 <

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

& - take in input and add it to the stack
> - move right
: - duplicate the top of the stack
2 - add two to the stack
% - pop 2 and the input off the stack and put input%2 on the stack
! - logical not the top of the stack
# - jump over the next command
_ - horizontal if, if the top of the stack is 0 (i.e. input%2 was non zero) go 
    right, else go left

If Zero:
. - output the top of the stack
@ - end code

If Not Zero:
v - move down
< - move left
2 - add 2 the top of the stack
/ - pop top two, add var/2 to the stack
3 - add 3 to stack
* - pop top two, add var*3 to the stack
^ - move up
> - move right (and start to loop)

펄 6 , 14 바이트

{1.5**.lsb*$_}

lsb 는 오른쪽에서 카운트 된 최하위 비트의 위치를 ​​반환합니다. 즉, 이진 표현에서 후행 0의 수는 2의 요소 수와 같습니다. 따라서 3/2를 그 거듭 제곱으로 올립니다.

say {$_*1.5**.lsb}(24);
> 81

파이크 , 5 바이트

P1.|B

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

실제로 9 바이트

w⌠i1|ⁿ⌡Mπ

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

설명:

w⌠i1|ⁿ⌡Mπ
w          factor into [prime, exponent] pairs
 ⌠i1|ⁿ⌡M   for each pair:
  i          flatten
   1|        prime | 1 (bitwise OR)
     ⁿ       raise to exponent
        π  product