Một số số 64có thể được biểu thị dưới dạng toàn bộ số theo nhiều cách:

64 ^ 1
 8 ^ 2
 4 ^ 3
 2 ^ 6

Xuất ra một mảng được sắp xếp của tất cả các quyền hạn có thể có (ở đây, [1,2,3,6]) trong càng ít byte càng tốt.

Đầu vào

Một số nguyên dương lớn hơn 1 và nhỏ hơn 10000.

Đầu ra

Mảng quyền hạn toàn số p(bao gồm 1) mà đầu vào có thể được biểu thị a^pbằng toàn bộ sốa . Các đầu ra có thể có số thập phân, miễn là theo thứ tự.

Bất kỳ vấn đề điểm nổi phải được xử lý bởi chương trình.

Ví dụ

Input: 3
Output: [1]

Input: 9
Output: [1, 2]

Input: 81
Output: [1, 2, 4]

Input: 729
Output: [1, 2, 3, 6]

Bảng điểm

Để điểm số của bạn xuất hiện trên bảng, nó phải ở định dạng này:

# Language, Bytes

Strikethroughs không gây ra vấn đề.

function getURL(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){$.ajax({url:getURL(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),useData(answers)}})}function getOwnerName(e){return e.owner.display_name}function useData(e){var s=[];e.forEach(function(e){var a=e.body.replace(/<s>.*<\/s>/,"").replace(/<strike>.*<\/strike>/,"");console.log(a),VALID_HEAD.test(a)&&s.push({user:getOwnerName(e),language:a.match(VALID_HEAD)[1],score:+a.match(VALID_HEAD)[2],link:e.share_link})}),s.sort(function(e,s){var a=e.score,r=s.score;return a-r}),s.forEach(function(e,s){var a=$("#score-template").html();a=a.replace("{{RANK}}",s+1+"").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SCORE}}",e.score),a=$(a),$("#scores").append(a)})}var QUESTION_ID=58047,ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",answers=[],answer_ids,answers_hash,answer_page=1;getAnswers();var VALID_HEAD=/<h\d>([^\n,]*)[, ]*(\d+).*<\/h\d>/;

body{text-align:left!important}table thead{font-weight:700}table td{padding:10px 0 0 30px}#scores-cont{padding:10px;width:600px}#scores tr td:first-of-type{padding-left:0}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script><link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id="scores-cont"><h2>Scores</h2><table class="score-table"><thead> <tr><td></td><td>User</td><td>Language</td><td>Score</td></tr></thead> <tbody id="scores"></tbody></table></div><table style="display: none"> <tbody id="score-template"><tr><td>{{RANK}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SCORE}}</td></tr></tbody></table>

Bình thường, 10 byte

f}Q^RTSQSQ

Trình diễn

Đối với mỗi công suất, nó tạo ra danh sách tất cả các số cho đến đầu vào được lấy cho công suất đó, sau đó kiểm tra xem đầu vào có nằm trong danh sách không.

Haskell, 38

f n=[b|b<-[1..n],n`elem`map(^b)[1..n]]

Khá đơn giản. Việc hiểu danh sách tìm thấy các giá trị bmà đầu vào nxuất hiện trong số đó [1^b, 2^b, ..., n^b]. Nó đủ để kiểm tra btrong phạm vi [1..n].

Con trăn 2, 53

lambda n:[i/n for i in range(n*n)if(i%n+1)**(i/n)==n]

Brute buộc tất cả các tổ hợp căn cứ theo số mũ trong [0, n-1] và căn cứ trong [1, n].

Python 3, 56 byte

lambda n:[i for i in range(1,n)if round(n**(1/i))**i==n]

Điều này thực sự vụng về. Kiểm tra xem mỗi igốc -th tiềm năng cho một số nguyên bằng cách làm tròn nó, lấy sức mạnh của nó ivà kiểm tra xem nó có bằng với gốc không.

Kiểm tra trực tiếp rằng gốc là một số nguyên là khó khăn vì các dấu phẩy động cho những thứ như thế 64**(1/3) == 3.9999999999999996. Làm tròn nó thành một số nguyên cho phép chúng tôi kiểm tra nếu lấy năng lượng trở về giá trị ban đầu. Cảm ơn ypercube đã gợi ý điều này, tiết kiệm 1 byte.

frageum có một giải pháp ngắn gọn và thông minh hơn . Tất cả các bạn nên thực sự nâng cao điều đó.

Bình thường, 11 10 12 byte

fsmqQ^dTSQSQ

Kiểm tra tất cả các kết hợp sức mạnh có thể. Rất chậm.

CJam, 23 byte

rimF{1=:E){E\d%!},}%:&p

Điều này hoạt động bằng cách lấy thừa số nguyên tố của n và tính toán giao điểm của các ước của tất cả các số mũ.

Nó dài hơn một chút so với giải pháp khác của tôi , nhưng tôi hy vọng nó sẽ hoạt động (và hoàn thành ngay lập tức) cho tất cả các số nguyên trong khoảng từ 2 đến 2 ⁶³ - 1 .

Dùng thử trực tuyến trong thông dịch CJam .

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

ri                       Read an integer from STDIN.
  mF                     Push its prime factorization.
    {             }%     For each [prime exponent]:
     1=:E                  Retrieve the exponent and save it in E.
         ){     },         Filter; for each I in [0 ... E]:
           E\d%              Compute E % Double(I).
                             (Casting to Double is required to divide by 0.)
               !             Push the logical NOT of the modulus.
                           Keep I if the result is truhty, i.e., if I divides E.
                    :&   Intersect all resulting arrays of integers.
                      p  Print the resulting array.

APL, 17 byte

(X=⌊X←N*÷⍳N)/⍳N←⎕

Chương trình APL đầu tiên của tôi; đề nghị chơi golf được đánh giá cao.

              N←⎕  ⍝ Store input into N
             ⍳     ⍝ The list [1 2 ... N]
            /      ⍝ Select the elements A for which
      N*÷⍳N)       ⍝ N^(1/A)
(X=⌊X←             ⍝ equals its floor (that is, is an integer)

JavaScript (ES5), 73 byte 81 byte 79 byte 75 byte

for(n=+prompt(),p=Math.pow,i=0;i++<n;)p(.5+p(n,1/i)|0,i)==n&&console.log(i)

Kiểm tra xem liệu sức mạnh số nguyên gần nhất của gốc có thể bằng n. ~~(.5+...)tương đương với Math.round(...)các biểu thức trong phạm vi số nguyên (0 đến 2 ^ 31 - 1).

Chỉnh sửa: Được sử dụng &&logic lười biếng thay vì ifđể cạo 2 byte và thêm dấu nhắc cho đầu vào do câu hỏi đã thêm một sự làm rõ. Trước đây giả sử đầu vào được lưu trữ trongn .

Chỉnh sửa 2: Thay đổi ~~(.5+...)để .5+...|0lưu hai byte bằng cách tránh nhóm.

Chỉnh sửa 3: Xóa varđể lưu 4 byte. Trong chế độ không nghiêm ngặt, điều này được chấp nhận.

Brachylog , 8 byte

≥^↙.?≥ℕ≜

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

Đưa đầu vào qua biến đầu vào của nó và tạo ra mỗi công suất thông qua biến đầu ra của nó, theo thứ tự tăng dần theo yêu cầu, không giống như giải pháp cũ ≥ℕ≜^↙.?∧xảy ra có cùng độ dài.

≥           Some number which is less than or equal to
            the input,
 ^          when raised to the power of
  ↙.        the output,
    ?       is the input.
       ≜    Label
            the output
      ℕ     as a whole number
     ≥      which is less than or equal to
    ?       the input.

Tôi không có bất kỳ lời biện minh nghiêm ngặt nào để khẳng định rằng mọi số mũ không lớn hơn đầu vào, nhưng để chương trình thực sự chấm dứt, nó cần phải bị ràng buộc.

ḋḅlᵛflà một giải pháp ngắn hơn (không phải máy phát) cho tất cả các trường hợp thử nghiệm đã cho, nhưng sẽ thất bại nếu đầu vào không phải là một sản phẩm của các số nguyên tố khác nhau. (Nghĩ về nó, vì tất cả các trường hợp thử nghiệm đều là sức mạnh của số nguyên tố, ḋlfcũng hoạt động ...) Điều tốt nhất tôi nghĩ ra để cứu vãn ý tưởng ḋḅlᵐḋˢ⊇ᵛ×f, xuất hiện tới 10 byte.

Thạch , 6 byte

ÆEg/ÆD

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

    ÆD    The list of divisors of
ÆE        the exponents in the prime factorization of the input
   /      reduced by
  g       greatest common divisor.

05AB1E , 3 byte

Ó¿Ñ

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

Cổng của câu trả lời Jelly của chuỗi không liên quan .

Ó       # exponents in the prime factorization
 ¿      # gcd
  Ñ     # divisors

JavaScript ES7, 66 byte

Tận dụng lợi thế của sự hiểu biết mảng thử nghiệm. Chỉ hoạt động trên Firefox.

n=>[for(i of Array(n).keys(m=Math.pow))if(m(0|.5+m(n,1/i),i)==n)i]

Có thể chơi golf. Có lẽ tôi sẽ cố gắng squish các biểu thức ngắn hơn một chút và hy vọng tìm thấy một thay thế cho Array(n).keys()cú pháp dài .

Có thể ngắn hơn nhưng JavaScript có độ chính xác điểm nổi khủng khiếp.

CJam, 20 byte

ri_,1df+\1$fmL9fmO&p

Đối với đầu vào n , điều này sẽ tính log _b n cho tất cả b nhỏ hơn hoặc bằng n và giữ kết quả là số nguyên.

Điều này sẽ làm việc cho tất cả các số nguyên từ 2 đến 9,999 . Thời gian chạy là khoảng O (n) .

Hãy thử trực tuyến trong trình thông dịch CJam .

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

ri                   e# Read an integer N from STDIN.
  _,                 e# Copy N and transform it into [0 ... N-1].
    1df+             e# Add 1.0 to each, resulting in [1.0 ... Nd].
        \1$          e# Swap the array with N and copy the array.
           fmL       e# Mapped log base N: N [1.0 ... Nd] -> [log1(N) ... logN(N)]
              9fmO   e# Round each logarithm to 9 decimals.
                  &  e# Intersect this array with [1.0 ... Nd].
                   p e# Print the result.

Hồng ngọc, 50

->n{(1..n).map{|i|(n**(1.0/i)+1e-9)%1>1e-8||p(i)}}

In ra màn hình.

Ruby, 57

->n{a=[]
(1..n).map{|i|(n**(1.0/i)+1e-9)%1>1e-8||a<<i}
a}

Trả về một mảng.

Trong chương trình thử nghiệm:

f=->n{(1..n).map{|i|(n**(1.0/i)+1e-9)%1>1e-8||puts(i)}}

g=->n{a=[]
(1..n).map{|i|(n**(1.0/i)+1e-9)%1>1e-8||a<<i}
a}

f.call(4096)
puts g.call(4096)

Tính toán từng gốc và kiểm tra chúng modulo 1 để xem phần còn lại có nhỏ hơn 1e-8 không. Do độ chính xác hạn chế, một số gốc số nguyên hợp lệ được tính là dạng 0.9999 .., do đó cần phải thêm 1e-9 cho chúng.

Lên đến gốc thứ n của n được tính, đó là tổng số quá mức cần thiết, nhưng dường như là cách ngắn nhất để viết một vòng lặp không vô hạn.

Stax , 6 byte

£ÅeÉåC

Chạy và gỡ lỗi nó

Tất cả các ước của gcd của số mũ trong thừa số nguyên tố. Nó giống như thuật toán thạch.

DC, 104 byte

Đầu vào được lấy từ thiết bị đầu cuối, đầu ra được in và cũng trên ngăn xếp.

Bởi vì điều này sử dụng? Toán tử, bạn cần sử dụng dc -e "<solution>"hoặc dc <file with solution in it>.

Không ai từng thấy câu trả lời của tôi, chứ đừng nói đến việc bỏ phiếu cho họ, nhưng tôi thực sự chỉ thích giải quyết các vấn đề ở DC. Đó là giải pháp kém hiệu quả nhất trong chủ đề này cho đến nay, nhưng tôi nghĩ rằng dù sao tôi cũng sẽ đăng nó.

1sb?sn[lesi]ss[lble1+dse^dln=sln>c]sc[liSflq1+sq]sm[Lfplq1-dsq0<p]dsp[lb1+sb0si0selcxli0!=mlbln!=h]dshxx

công cụ khởi động

1sb           Store 1 in register b
?sn           Store user input in register n
[lesi]ss      A macro to copy the e to the i register, stored in the s register

Macro để tăng cơ sở cho tất cả các quyền hạn cho đến khi kết quả lớn hơn mục tiêu hoặc bằng với mục tiêu

[lble1+dse^dln=sln>c]sc
[lb                 ]   load our base num (register b)
[  le               ]   load our exponent (register e)
[    1+dse          ]   add 1 to the exponent, copy and store in the e register
[         ^d        ]   raise the base to the exponent and copy it
[           ln=s    ]   load the user input, if that is equal to the power result run the macro in register s
[               ln>c]   load the user input, if it's greater than the power result run the macro in register c (this one)
[                   ]sc save this macro in register c

Macro để lưu giá trị số mũ hợp lệ như được tìm thấy từ các macro số mũ ở trên vào ngăn xếp khác

[liSflq1+sq]sm
[liSf      ]     copy the i register to the top of the stack in register f
[    lq1+sq]     add 1 to the q register
[          ]sm   save this macro in the m register

Macro để chạy macro trên 2 lần (macro c) thông qua tất cả các cơ sở từ 2 đến số mục tiêu của chúng tôi

[lb1+sb0si0selcxli0!=mlbln!=h]dsh
[lb1+sb                      ]     add 1 to the base number
[      0si0se                ]     reset the i and e registers (previously found value and exponent
[            lcx             ]     load and run the c macro
[               li0!=m       ]     load the result of the c macro and if it's not 0, run m to save it to the f stack
[                     lbln!=h]     if our base number is not equal to our target number, run macro h (this macro)
[                            ]dsh  duplicate this macro and save one copy, so that one is left on the stack to run later

Macro để in các giá trị từ ngăn xếp f

[Lfplq1-dsq0<p]dsp
[Lfp          ]      load the top value from the f register and print it
[   lq1-dsq   ]      load the q register and subtract one from it and save it
[          0<p]      if the q register is greater than 0, run macro p (this macro) again
[             ]dsp   duplicate this macro and save one copy, so that one is left on the stack to run later

xx finally run the two macros on the stack (h and then p)

Ruby , 46 byte

Giải pháp vũ lực. Tự giải thích; cho đầu vào$n$, tìm tất cả các số $e$ nơi cho một số $b$, $b^e=n$.

->n{(0..n).select{|e|(1..n).find{|b|b**e==n}}}

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

C # (Trình biên dịch tương tác Visual C #) , 93 byte

g=n=>Enumerable.Range(1,n);
f=n=>g(n).SelectMany(x=>g(n).Where(y=>(Math.Pow(x,y)==n))).Reverse()

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

Japt , 10 byte

õ
f@mpX øN

Thử nó

õ            :Implicit input of integer U
õ            :Range [1,U]
f@mpX øN     :Reassign to U
f            :Filter
 @           :By passing each X through the following function
  m          :  Map U
   pX        :    Raise to the power of X
      ø      :  Contains
       N     :    Any element of the (singelton) array of inputs