एक वर्गमूल को सरल कीजिए

Question

एक सकारात्मक पूर्णांक को देखते हुए n, सभी वर्ग कारकों को निकालकर वर्गमूल √nको रूप में सरल a√bबनाएं। आउटपुट जितना संभव हो उतना छोटा के साथ a,bसकारात्मक पूर्णांक होना चाहिए ।n = a^2 * bb

आप उत्पादन हो सकता है 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>

Comments

हम पहले भी ऐसा कर चुके हैं , और यह यहां से जुड़ी चुनौती की नकल के रूप में बंद था।

— दोष

Answer 1

जेली , 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.

Comments

UTF-8 में, यह है, लेकिन जेली एक कस्टम कोड पेज का उपयोग करता है। बाइट्स यह करने के लिए शीर्ष लेख अंक में जोड़ देते हैं।

— डेनिस

आपको लगता है कि टिप्पणी पोस्ट एक बहुत है, तो हो सकता है आप बाइट्स स्पष्ट की तरह (उदाहरण के लिए करना चाहिए: [bytes](link-to-byes) (not UTF-8)।

— NoOneIsHere

Answer 2

PARI / GP, 12 बाइट्स

n->core(n,1)

corenडिफ़ॉल्ट रूप से चौकोर भाग लौटाता है , लेकिन दूसरे तर्क ध्वज को 1 पर सेट करने से दोनों भाग वापस आ जाते हैं। आउटपुट ऑर्डर है (b, a), जैसे (n->core(n,1))(12) -> [3, 2];

Answer 3

पायथन 2, 43 बाइट्स

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

Ideone पर इसका परीक्षण करें ।

Answer 4

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

Answer 5

जूलिया, 32 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 6

गणितज्ञ 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}}] &

Answer 7

अजगर, 15 बाइट्स

/Q^
ef!%Q^T2SQ2

परीक्षण सूट।

Answer 8

मतलाब, 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

Answer 9

जावास्क्रिप्ट (ECMAScript 2016), 40 बाइट्स

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

मूल रूप से डेनिस के पायथन 2 का एक जावास्क्रिप्ट पोर्ट उत्तर है ।

इसे JSBin पर आज़माएँ ।

नोट: यह सख्त मोड में काम नहीं करता है, क्योंकि kयह कहीं भी आरंभीकृत नहीं है। इसे सख्त मोड में काम करने के लिए, k=nलूप में बदलना चाहिए let k=n।

Answer 10

हास्केल, 43> 42 बाइट्स

जानवर बल समाधान।

Xnor के लिए 1 बाइट का धन्यवाद सहेजा गया

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

Comments

अच्छा समाधान, मुझे पसंद है कि यह कैसे उपयोग नहीं करता है modया div। मुझे लगता है कि आप y<-[1..]आलस्य के कारण कर सकते हैं ।

— xnor

हाँ आप सही है। यह मेरे पहले समाधान के साथ संभव नहीं था, last[(x,y)|x<-[1..n],y<-[1..n],x*x*y==n]लेकिन अब यह काम करेगा। धन्यवाद। क्या हास्केल में आपका अपना समाधान है?

— डेमियन

Answer 11

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

इसे ऑनलाइन आज़माएं

Answer 12

पायथन, 74 बाइट्स

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

एकदम सीधा।

Answer 13

पायथन 2.7 (अनगॉल्फ्ड) - 181 बाइट्स

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 (संख्या) उदा। ई (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)

Comments

कृपया अपने उत्तर को जितना संभव हो सके उतना गोल्फ करने का प्रयास करें, यह एक कोड-गोल्फ है

— caird coinheringaahing

Answer 14

एपीएल, 25 चरस

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

अंग्रेजी में:

• 0⍳⍨⌽⍵|⍨×⍨⍳⍵: पूरी तरह से एन को विभाजित करने वाले वर्गों में से सबसे बड़े वर्गों का सूचकांक;
• 1+⍵-: इंडेक्स उलट सरणी में है, इसलिए इंडेक्स को समायोजित करें
• (⊢,⍵÷×⍨): परिणाम का उत्पादन करें: सूचकांक ही (ए) और भागफल बी (यानी, 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

Answer 15

जावास्क्रिप्ट (ECMAScript 6), 35 बाइट्स

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

जावास्क्रिप्ट 1+, 37 बी

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

Answer 16

जे , 19 बाइट्स

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

इसे ऑनलाइन आज़माएं!

जेली समाधान के रूप में भी ।