รับค่าจำนวนเต็มบวกnทำให้สแควร์รูท√nเป็นรูปแบบที่ง่ายa√bขึ้นโดยการแยกปัจจัยสแควร์ทั้งหมด เอาต์พุตa,bควรเป็นจำนวนเต็มบวกโดยn = a^2 * bมีbขนาดเล็กที่สุดเท่าที่จะเป็นไปได้

คุณสามารถส่งออกaและbในลำดับใดก็ได้ในรูปแบบที่เหมาะสม คุณไม่สามารถละเว้นเอาต์พุตของ1โดยปริยาย

ผลลัพธ์สำหรับn=1..36เป็น(a,b):

1 (1, 1)
2 (1, 2)
3 (1, 3)
4 (2, 1)
5 (1, 5)
6 (1, 6)
7 (1, 7)
8 (2, 2)
9 (3, 1)
10 (1, 10)
11 (1, 11)
12 (2, 3)
13 (1, 13)
14 (1, 14)
15 (1, 15)
16 (4, 1)
17 (1, 17)
18 (3, 2)
19 (1, 19)
20 (2, 5)
21 (1, 21)
22 (1, 22)
23 (1, 23)
24 (2, 6)
25 (5, 1)
26 (1, 26)
27 (3, 3)
28 (2, 7)
29 (1, 29)
30 (1, 30)
31 (1, 31)
32 (4, 2)
33 (1, 33)
34 (1, 34)
35 (1, 35)
36 (6, 1)

เหล่านี้เป็น OEIS A000188และA007913

ที่เกี่ยวข้อง: รุ่นที่ซับซ้อนมากขึ้น

var QUESTION_ID=83814,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/83814/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(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){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<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="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

เยลลี่ขนาด 9 ไบต์

ÆE;0d2ZÆẸ

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

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

ÆE;0d2ZÆẸ  Main link. Argument: n

ÆE         Exponents; generate the exponents of n's prime factorization.
  ;0       Append 0 since 1ÆE returns [].
    d2     Divmod by 2.
      Z    Zip/transpose to group quotients and remainders.
       ÆẸ  Unexponent; turn the exponents of prime factorizations into integers.

PARI / GP ขนาด 12 ไบต์

n->core(n,1)

coreส่งกลับค่าส่วนฟรีของnค่าเริ่มต้น แต่การตั้งค่าสถานะอาร์กิวเมนต์ที่สองเป็น 1 ทำให้ส่งคืนทั้งสองส่วน เพื่อการส่งออกเป็นเช่น(b, a)(n->core(n,1))(12) -> [3, 2]

Python 2, 43 ไบต์

k=n=input()
while n%k**2:k-=1
print k,n/k/k

ทดสอบบนIdeone

MATLขนาด 12 ไบต์

t:U\~f0)GyU/

ลองออนไลน์!

คำอธิบาย

t     % Take input n implicitly. Duplicate
:U    % Push [1 4 9 ... n^2]
\~    % True for entries that divide the input
f0)   % Get (1-based) index of the last (i.e. largest) dividing number
G     % Push input again
y     % Duplicate index of largest dividing number
U     % Square to recover largest dividing number
/     % Divide input by that. Implicitly display stack

Julia, 32 ไบต์

\(n,k=n)=n%k^2>0?n\~-k:[k,n/k^2]

ลองออนไลน์!

Mathematica 34 ไบต์

#/.{a_ b_^_:>{a, b},_[b_,_]:>{1,b}}&

สิ่งนี้บอกว่าจะแทนที่อินพุตทั้งหมด ( #) ตามกฎต่อไปนี้: (1) ตัวเลข, a , คูณด้วยการแทนที่สแควร์รูทของb{a, b} และฟังก์ชัน b เป็นพลังของสิ่งที่ควรแทนที่ด้วย {1, b }. โปรดทราบว่าฟังก์ชั่นสันนิษฐานว่าการป้อนข้อมูลจะอยู่ในรูปแบบ, Sqrt[n]. มันจะไม่ทำงานกับอินพุตอื่น ๆ

ฟังก์ชันที่ไม่มีชื่อนี้เป็นรหัสลับสำหรับ Mathematica อย่างผิดปกติ สามารถชี้แจงได้บ้างโดยแสดงแบบเต็มตามด้วยการแทนที่แบบฟอร์มที่สั้นกว่าเดิม

Function[
   ReplaceAll[
      Slot[1],
      List[
         RuleDelayed[Times[Pattern[a,Blank[]],Power[Pattern[b,Blank[]],Blank[]]],List[a,b]],
         RuleDelayed[Blank[][Pattern[b,Blank[]],Blank[]],List[1,b]]]]]

ซึ่งเหมือนกับ

   ReplaceAll[
      #,
      List[
         RuleDelayed[Times[Pattern[a,Blank[]],Power[Pattern[b,Blank[]],Blank[]]],List[a,b]],
         RuleDelayed[Blank[][Pattern[b,Blank[]],Blank[]],List[1,b]]]]&

และ

ReplaceAll[#, 
  List[RuleDelayed[
    Times[Pattern[a, Blank[]], 
     Power[Pattern[b, Blank[]], Blank[]]], {a, b}], 
   RuleDelayed[Blank[][Pattern[b, Blank[]], Blank[]], {1, b}]]] &

และ

ReplaceAll[#, 
  List[RuleDelayed[Times[a_, Power[b_, _]], {a, b}], 
   RuleDelayed[Blank[][b_, _], {1, b}]]] &

และ

ReplaceAll[#, {RuleDelayed[a_*b^_, {a, b}], RuleDelayed[_[b_, _], {1, b}]}]&

และ

ReplaceAll[#, {a_*b^_ :> {a, b}, _[b_, _] :> {1, b}}] &

Pyth, 15 ไบต์

/Q^
ef!%Q^T2SQ2

ชุดทดสอบ

Matlab, 51 ไบต์

x=input('');y=1:x;z=y(~rem(x,y.^2));a=z(end)
x/a^2

คำอธิบาย

x=input('')       -- takes input
y=1:x             -- numbers from 1 to x
z=y(~rem(x,y.^2)) -- numbers such that their squares divide x
a=z(end)          -- biggest such number (first part of output)
x/a^2             -- remaining part

JavaScript (ECMAScript 2016) ขนาด 40 ไบต์

n=>{for(k=n;n%k**2;k--);return[k,n/k/k]}

โดยทั่วไปพอร์ต JavaScript ของเดนนิสเป็นงูหลาม 2 คำตอบ

ลองบน JSBin

หมายเหตุ: มันไม่ทำงานในโหมดเข้มงวดเพราะkไม่ได้เริ่มต้นที่ใดก็ได้ จะทำให้การทำงานในโหมดที่เข้มงวดในวงควรจะเปลี่ยนเป็นk=nlet k=n

Haskell, 43> 42 ไบต์

วิธีการแก้ปัญหากำลังดุร้าย

บันทึก 1 ไบต์ต้องขอบคุณ Xnor

f n=[(x,y)|y<-[1..],x<-[1..n],x*x*y==n]!!0

05AB1E, 14 ไบต์

Lv¹ynÖi¹yn/y‚ï

อธิบาย

Lv              # for each x in range(1,N) inclusive
  ¹ynÖi         # if N % x^2 == 0
       ¹yn/y‚ï  # create [N/x^2,x] pairs, N=12 -> [12,1] [3,2]
                # implicitly output last found pair

ลองออนไลน์

Python ขนาด 74 ไบต์

def e(k):a=filter(lambda x:k/x**2*x*x==k,range(k,0,-1))[0];return a,k/a**2

ตรงไปตรงมาพอสมควร

Python 2.7 (ungolfed) - 181 Bytes

def e(n):   
 for x in range(1,n+1):
  r=(1,x)
  for i in range(1,x+1):
   l=i**.5
   for j in range(1,x+1): 
    if i*j==x and l%1==0 and j<r[1]:r=(int(l),j)                
  print x,r

ทำงานเป็น: e (หมายเลข) เช่น E (24)

ตัวอย่างผลลัพธ์:

>> e(24)
1 (1, 1)
2 (1, 2)
3 (1, 3)
4 (2, 1)
5 (1, 5)
6 (1, 6)
7 (1, 7)
8 (2, 2)
9 (3, 1)
10 (1, 10)
11 (1, 11)
12 (2, 3)
13 (1, 13)
14 (1, 14)
15 (1, 15)
16 (4, 1)
17 (1, 17)
18 (3, 2)
19 (1, 19)
20 (2, 5)
21 (1, 21)
22 (1, 22)
23 (1, 23)
24 (2, 6)

APL, 25 ตัวอักษร

 {(⊢,⍵÷×⍨)1+⍵-0⍳⍨⌽⍵|⍨×⍨⍳⍵}

เป็นภาษาอังกฤษ:

• 0⍳⍨⌽⍵|⍨×⍨⍳⍵: ดัชนีของสี่เหลี่ยมที่ใหญ่ที่สุดจนถึง n ที่หาร n ทั้งหมด
• 1+⍵-: ดัชนีอยู่ในอาร์เรย์ที่กลับด้านดังนั้นปรับดัชนี
• (⊢,⍵÷×⍨): สร้างผลลัพธ์: ดัชนีของตัวเอง (a) และผลหาร b (นั่นคือ n ÷ a * a)

ทดสอบ:

     ↑{(⊢,⍵÷×⍨)⊃z/⍨0=⍵|⍨×⍨z←⌽⍳⍵}¨⍳36
1  1
1  2
1  3
2  1
1  5
1  6
1  7
2  2
3  1
1 10
1 11
2  3
1 13
1 14
1 15
4  1
1 17
3  2
1 19
2  5
1 21
1 22
1 23
2  6
5  1
1 26
3  3
2  7
1 29
1 30
1 31
4  2
1 33
1 34
1 35
6  1

JavaScript (ECMAScript 6), 35 ไบต์

f=(n,k=n)=>n/k%k?f(n,--k):[k,n/k/k]

JavaScript 1+, 37 B

for(k=n=prompt();n/k%k;--k);[k,n/k/k]

J , 19 ไบต์

(0|:0 2#:])&.(_&q:)

ลองออนไลน์!

เช่นเดียวกับการแก้ปัญหาวุ้น