Cho một số nguyên dương n viết một số mã để lấy thừa số nguyên tố của nó và thay thế tất cả các thừa số của nó 2bằng 3.

Ví dụ

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

Đây là môn đánh gôn, vì vậy mục tiêu là giảm thiểu số byte trong câu trả lời của bạn.

Các trường hợp thử nghiệm

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 byte

3/2

Fractran theo nghĩa đen chỉ có một nội dung, nhưng nó thực hiện chính xác những gì nhiệm vụ này đang yêu cầu. (Bản thân nó cũng hoàn thành Turing.)

Ngôn ngữ không thực sự có cú pháp hoặc trình thông dịch chuẩn hóa. Trình thông dịch này (trong một bình luận cho một bài đăng trên blog - đó là một ngôn ngữ rất đơn giản) sẽ chấp nhận cú pháp được hiển thị ở đây. (Có các trình thông dịch Fractran khác với các cú pháp khác, ví dụ: một số người sẽ viết chương trình này như 3 2, hoặc thậm chí sử dụng 3và2 như các đối số dòng lệnh, mà sẽ dẫn đến một số điểm từ 0 + 3 byte. Tôi nghi ngờ nó có thể làm tốt hơn so với 3 trong một thông dịch viên có sẵn, mặc dù.)

Giải trình

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

Python 2 , 28 byte

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

Hãy thử trực tuyến!

Chia đệ quy số cho 2 và nhân kết quả với 3, miễn là số chẵn. Số lẻ tự trả về.

Alt 32 byte:

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

Hãy thử trực tuyến . Có một số lỗi float. Hằng số làlog_2(3)-1 .

Sử dụng (n&-n)để tìm ra yếu tố sức mạnh lớn nhất của 2 n, chuyển đổi 3**kthành 2**kbằng cách nâng nó lên sức mạnh của log_2(3)-1.

05AB1E , 4 byte

Ò1~P

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Haskell, 24 23 byte

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

Việc chia cho hai và nhân với 3 cho đến khi có số lẻ trong Haskell.

Hãy thử trực tuyến!

Thay thế bằng lambda thay vì chức năng pointfree và có cùng số byte:

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

Chỉnh sửa: @ ais523 đã lưu một byte trong phiên bản gốc và @ rjan Johansen một byte trong phiên bản thay thế, vì vậy cả hai phiên bản vẫn có cùng độ dài. Cảm ơn!

JavaScript (ES6), 19 byte

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

Trong khi đầu vào chia hết cho hai, nhân nó với 1,5, tương đương với chia cho 2 và nhân với 3.

Brain-Flak , 76 byte

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

Hãy thử trực tuyến!

Giải trình

Chương trình này hoạt động bằng cách chia số cho hai và nhân ba cho đến khi phần còn lại của một từ bộ phận. Sau đó, nó dừng vòng lặp và nhân đôi và thêm một vào số cuối cùng.

Giải thích chi tiết hơn cuối cùng ...

Toán học, 22 19 byte

Cảm ơn lanlock4 vì đã tiết kiệm 3 byte!

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

Chức năng thuần túy thực hiện thay thế nhiều lần, một yếu tố 2 tại một thời điểm. Hoạt động trên tất cả các số nguyên dương nhỏ hơn 2 ⁶⁵⁵³⁷ .

MATL , 7 , 6 byte

Yf1Z|p

Hãy thử trực tuyến!

Lưu 1 byte nhờ vào sự quan sát thiên tài của Dennis

Cách tốt nhất để giải thích điều này là hiển thị ngăn xếp ở nhiều điểm khác nhau.

Yf  % Prime factors

[2 2 2 3]

1Z| % Bitwise OR with 1

[3 3 3 3]

p   % Product

81

Giải pháp thay thế:

Yfto~+p

05AB1E , 6 5 byte

Đã lưu một byte nhờ Adnan .

ÒDÈ+P

Hãy thử trực tuyến!

Giải trình

Ò       # 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 byte

2/S 3
o@i

Hãy thử trực tuyến!

Alice có tích hợp sẵn để thay thế một ước của một số bằng một số khác. Tôi không nghĩ rằng tôi thực sự sẽ sử dụng nó sớm như vậy ...

Sử dụng các điểm mã của các ký tự cho I / O, điều này trở thành 6 byte : I23SO@.

Giải trình

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.

Thạch , 8 5 byte

Æ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

Hãy thử trực tuyến!

-3 byte nhờ một gợi ý từ @Dennis!

Pyth - 14 10 9 byte

*^1.5/PQ2

Đếm số lượng 2 giây trong hệ số nguyên tố (/ PQ2). Nhân số đầu vào bằng 1,5 ^ (số 2 giây)

Thử nó

Java , 38 byte

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

Hãy thử trực tuyến!

Giải pháp 43 byte trước đây:

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

Hãy thử trực tuyến!

Lục giác , 112 91 byte

Kích thước lưới 6 (91 byte)

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

Phiên bản nhỏ gọn

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

Kích thước lưới 7 (112 byte)

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

Hãy thử trực tuyến!

Phiên bản nhỏ gọn:

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

Phiên bản Ungolfed để dễ đọc hơn:

Bố cục bộ nhớ gần đúng

Đường dẫn màu xám (Khởi tạo bộ nhớ)

?     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

Nhập vòng

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

Đường dẫn xanh (giá trị vẫn chia hết cho 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"

Đường dẫn màu đỏ (giá trị không còn chia hết cho 2)

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

Võng mạc , 23 byte

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

Hãy thử trực tuyến!

Brachylog , 7 byte

~×₂×₃↰|

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

~×₂×₃↰|      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 byte

[:*/q:+2=q:

Hãy thử trực tuyến!

[: cap (giữ chỗ để gọi động từ tiếp theo một cách đơn điệu)

*/ sản phẩm của

q: các yếu tố chính

+ cộng (tức là có thêm một nơi)

2 hai

= bằng (mỗi)

q: các yếu tố chính

J , 15 12 10 byte

(+2&=)&.q:

Hãy thử trực tuyến! Hoạt động tương tự như dưới đây, chỉ có logic khác liên quan đến việc thay thế 2bằng3 .

15 byte

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

Hãy thử trực tuyến!

Giải trình

(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

Bình thường , 9 byte

Đầu ra số nguyên \ o /

*F+1.|R1P

Bộ thử nghiệm .

Làm thế nào nó hoạt động

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

Japt , 19 16 10 9 7 byte

k ®w3Ã×

Hãy thử trực tuyến!

Giải trình

 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 byte

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

Hãy thử trực tuyến!

CJam, 10 9 byte

rimf1f|:*

Thực sự đơn giản.

Giải trình:

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

Lục giác , 28 27 26 byte

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

Hãy thử trực tuyến!

Trả tiền:

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

Điều này về cơ bản chạy:

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

Tại thời điểm này, đây là một bài tập về mức độ khó hiểu của tôi có thể có được đường dẫn vòng lặp để giảm thiểu byte.

Japt , 7 byte

k mw3 ×

Hãy thử trực tuyến!

Giải trình

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 byte

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

Hãy thử trực tuyến!

Điều này quá dài dòng, tôi phải làm gì đó sai ...

R, 42 byte

Số lượng byte duy nhất đúng trong một câu trả lời.

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

Khá đơn giản, sử dụng gmpgói để nhân tố x, thay thế 2 giây bằng 3 giây và trả lại sản phẩm.

Befunge-93 , 20 byte

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

Hãy thử trực tuyến!

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

Perl 6 , 14 byte

{1.5**.lsb*$_}

lsb trả về vị trí của bit có trọng số thấp nhất, được tính từ bên phải. Đó là, có bao nhiêu số 0 ở cuối trong biểu diễn nhị phân, tương đương với số lượng các yếu tố của 2. Vì vậy, hãy tăng 3/2 lên sức mạnh đó và chúng ta đã hoàn thành.

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

Pyke , 5 byte

P1.|B

Hãy thử trực tuyến!

Trên thực tế , 9 byte

w⌠i1|ⁿ⌡Mπ

Hãy thử trực tuyến!

Giải trình:

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