ตัวเลขบางอย่างเช่น64สามารถแสดงเป็นพลังงานจำนวนเต็มในหลายวิธี:

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

เอาท์พุทอาเรย์ที่เรียงลำดับของอานาจที่เป็นไปได้ทั้งหมด (ที่นี่[1,2,3,6]) ในจำนวนไบต์น้อยที่สุด

อินพุต

จำนวนเต็มบวกที่มากกว่า 1 และน้อยกว่า 10,000

เอาท์พุต

อาร์เรย์ของอำนาจจำนวนทั้งหมดp(รวม1) ซึ่งการป้อนข้อมูลที่สามารถแสดงเป็นที่มีจำนวนทั้งหมดa^p aผลลัพธ์อาจมีทศนิยมถ้าเป็นไปตามลำดับ

โปรแกรมจุดใดประเด็นหนึ่งจะต้องได้รับการจัดการ

ตัวอย่าง

Input: 3
Output: [1]

Input: 9
Output: [1, 2]

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

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

ป้ายบอกคะแนน

เพื่อให้คะแนนของคุณปรากฏบนกระดานควรอยู่ในรูปแบบนี้:

# Language, Bytes

ขีดทับไม่ควรทำให้เกิดปัญหา

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>

Pyth, 10 ไบต์

f}Q^RTSQSQ

สาธิต

สำหรับพลังงานแต่ละรายการมันจะสร้างรายการตัวเลขทั้งหมดขึ้นอยู่กับอินพุตที่นำไปสู่พลังงานนั้นแล้วตรวจสอบว่าอินพุตนั้นอยู่ในรายการหรือไม่

Haskell, 38

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

ตรงไปตรงมาสวย ความเข้าใจรายการพบว่าค่าbที่ป้อนข้อมูลที่ปรากฏในหมู่n [1^b, 2^b, ..., n^b]มันพอเพียงในการตรวจสอบในช่วงb[1..n]

Python 2, 53

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

Brute บังคับให้รวมกันทั้งหมดของฐานในเลขชี้กำลังใน [0, n-1] และฐานใน [1, n]

Python 3, 56 ไบต์

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

นี่มันเงอะงะจริงๆ ทดสอบว่าแต่ละศักยภาพi-th root ให้จำนวนเต็มโดยการปัดมันรับพลังiและตรวจสอบว่ามันเท่ากับต้นฉบับ

64**(1/3) == 3.9999999999999996โดยตรงการตรวจสอบว่ารากเป็นจำนวนทั้งหมดเป็นเรื่องยุ่งยากเพราะจุดลอยให้สิ่งที่ต้องการ การปัดเศษเป็นจำนวนเต็มให้เราตรวจสอบว่าการพาวเวอร์ส่งกลับค่าเดิมหรือไม่ ขอบคุณ ypercube ที่แนะนำสิ่งนี้ให้ประหยัด 1 ไบต์

feersum มีวิธีแก้ปัญหาที่สั้นกว่าและฉลาดกว่า คุณทุกคนควรโหวตว่า

Pyth, 11 10 12 ไบต์

fsmqQ^dTSQSQ

ตรวจสอบการรวมพลังที่เป็นไปได้ทั้งหมด ช้ามาก.

CJam, 23 ไบต์

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

สิ่งนี้ทำงานโดยการแยกตัวประกอบเฉพาะของnและคำนวณจุดตัดของตัวหารของเลขชี้กำลังทั้งหมด

มันเป็นบิตนานกว่าการแก้ปัญหาอื่น ๆ ของฉันแต่ฉันคาดหวังในการทำงาน (และเสร็จสิ้นทันที) สำหรับจำนวนเต็มทั้งหมดระหว่าง2และ2 ⁶³ - 1

ลองใช้ออนไลน์ในล่าม CJam

มันทำงานอย่างไร

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 ไบต์

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

โปรแกรม APL ครั้งแรกของฉัน ข้อเสนอแนะการเล่นกอล์ฟได้รับการชื่นชม

              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 ไบต์ 81 ไบต์ 79 ไบต์ 75 ไบต์

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

ตรวจสอบเพื่อดูว่าพลังจำนวนเต็มที่ใกล้เคียงที่สุดของรูทเท่ากับnหรือไม่ ~~(.5+...)เทียบเท่ากับMath.round(...)นิพจน์ภายในช่วงจำนวนเต็ม (0 ถึง 2 ^ 31 - 1)

แก้ไข:ใช้&&ตรรกะขี้เกียจแทนifการโกน 2 ไบต์และเพิ่มพรอมต์สำหรับการป้อนข้อมูลเนื่องจากคำถามได้เพิ่มการชี้แจง nก่อนหน้านี้การป้อนข้อมูลสมมติว่าถูกเก็บไว้ใน

แก้ไข 2:เปลี่ยน~~(.5+...)เป็น.5+...|0บันทึกสองไบต์โดยหลีกเลี่ยงการจัดกลุ่ม

แก้ไข 3:ลบvarเพื่อบันทึก 4 ไบต์ ในโหมดไม่เข้มงวดนี่เป็นที่ยอมรับ

Brachylogขนาด 8 ไบต์

≥^↙.?≥ℕ≜

ลองออนไลน์!

รับอินพุตผ่านตัวแปรอินพุตและสร้างพลังงานแต่ละตัวผ่านตัวแปรเอาต์พุตตามลำดับจากน้อยไปมากตามความต้องการซึ่งแตกต่างจากโซลูชันเก่า≥ℕ≜^↙.?∧ที่เกิดขึ้นเพื่อให้มีความยาวเท่ากัน

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

ฉันไม่มีเหตุผลที่เข้มงวดในการยืนยันว่าเลขชี้กำลังทุกตัวไม่เกินค่าอินพุท แต่เพื่อให้โปรแกรมยุติการใช้งานจริงจำเป็นต้องมีขอบเขต

ḋḅlᵛfเป็นวิธีแก้ปัญหาที่สั้นกว่า (ไม่ใช่เครื่องกำเนิดไฟฟ้า) สำหรับกรณีทดสอบที่ให้มาทั้งหมด แต่จะล้มเหลวหากอินพุตไม่ใช่พลังงานของผลิตภัณฑ์เฉพาะช่วงเวลา (ลองคิดดูสิเนื่องจากกรณีทดสอบทั้งหมดเป็นพลังของช่วงเวลาḋlfก็ใช้ได้ ... ) สิ่งที่ดีที่สุดที่ฉันคิดไว้เพื่อกอบกู้แนวความคิดḋḅlᵐḋˢ⊇ᵛ×fออกมาคือ 10 ไบต์

เยลลี่ 6 ไบต์

ÆEg/ÆD

ลองออนไลน์!

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

05AB1E , 3 ไบต์

Ó¿Ñ

ลองออนไลน์!

ท่าเรือที่ไม่เกี่ยวข้อง String คำตอบของวุ้น

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

JavaScript ES7, 66 ไบต์

ใช้ประโยชน์จากความเข้าใจของอาร์เรย์ทดลอง ใช้ได้กับ Firefox เท่านั้น

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

การตีกอล์ฟที่เป็นไปได้ ฉันอาจจะพยายามที่จะทำให้การแสดงออกสั้นลงสักหน่อยและหวังว่าจะได้พบกับทางเลือกที่ยาวกว่าArray(n).keys()ซินแท็คซ์

อาจจะสั้นลง แต่ JavaScript มีความแม่นยำของจุดลอยตัวอย่างน่ากลัว

CJam, 20 ไบต์

ri_,1df+\1$fmL9fmO&p

สำหรับการป้อนข้อมูลnคำนวณนี้เข้าสู่ระบบ_ข nสำหรับทุกขน้อยกว่าหรือเท่ากับnและช่วยให้ผลลัพธ์ที่เป็นจำนวนเต็ม

นี้ควรจะทำงานสำหรับจำนวนเต็มทั้งหมดระหว่าง2และ9,999 เวลาทำงานคือประมาณO (n)

ลองใช้ออนไลน์ในล่าม CJam

มันทำงานอย่างไร

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.

ทับทิม, 50

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

พิมพ์ไปที่หน้าจอ

ทับทิม, 57

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

ส่งกลับอาร์เรย์

ในโปรแกรมทดสอบ:

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)

คำนวณแต่ละรากและทดสอบโมดูโล 1 เพื่อดูว่าส่วนที่เหลือน้อยกว่า 1e-8 หรือไม่ เนื่องจากความแม่นยำที่ จำกัด มีการคำนวณรากจำนวนเต็มที่ถูกต้องเป็นรูปแบบ 0.9999 .. ดังนั้นจึงจำเป็นต้องเพิ่ม 1e-9

จนถึงการคำนวณรูตที่ n ของ n ซึ่งก็คือ overkill ทั้งหมด แต่ดูเหมือนจะเป็นวิธีที่สั้นที่สุดในการเขียนลูปแบบไม่สิ้นสุด

Stax , 6 ไบต์

£ÅeÉåC

เรียกใช้และแก้ไขข้อบกพร่อง

ตัวหารทั้งหมดของ gcd ของเลขชี้กำลังในการแยกตัวประกอบเฉพาะ มันเหมือนกับอัลกอริทึมของเยลลี่

DC, 104 ไบต์

อินพุตถูกนำมาจากเทอร์มินัลเอาต์พุตจะถูกพิมพ์และบนสแต็ก

เพราะสิ่งนี้ใช้ ผู้ประกอบการ, คุณจำเป็นต้องใช้หรือdc -e "<solution>"dc <file with solution in it>

ไม่มีใครเคยเห็นคำตอบของฉันโหวตคนเดียว แต่ฉันสนุกกับการแก้ปัญหาใน DC มันเป็นวิธีที่มีประสิทธิภาพน้อยที่สุดในหัวข้อนี้ แต่ฉันคิดว่าฉันจะโพสต์มันต่อไป

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

สิ่งเริ่มต้น

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

แมโครเพื่อยกระดับฐานไปยังพลังทั้งหมดจนกว่าผลลัพธ์จะใหญ่กว่าเป้าหมายหรือเท่ากับเป้าหมาย

[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

แมโครเพื่อบันทึกค่าเลขชี้กำลังที่ถูกต้องตามที่พบจากแมโครเลขชี้กำลังด้านบนไปยังสแต็กอื่น

[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

มาโครเพื่อเรียกใช้มาโคร 2x ที่อยู่เหนือ (มาโคร c) ผ่านฐานทั้งหมดตั้งแต่ 2 ถึงหมายเลขเป้าหมายของเรา

[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

แมโครเพื่อพิมพ์ค่าจากสแต็ก 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 ไบต์

$n$$e$$b$$b^e=n$

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

ลองออนไลน์!

C # (Visual C # Interactive Compiler) , 93 ไบต์

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

ลองออนไลน์!

Japt , 10 ไบต์

õ
f@mpX ø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