রাইলির উপপাদ্য


13

এস। রাইলি 1825 সালে উপপাদ্য অনুসরণ করে প্রমাণিত:

প্রতিটি যৌক্তিক সংখ্যা তিনটি যৌক্তিক কিউবের সমষ্টি হিসাবে প্রকাশ করা যেতে পারে।

চ্যালেঞ্জ

কিছু যুক্তিযুক্ত নম্বর দেওয়া rQ তিনটি যৌক্তিক সংখ্যা a,b,cQ যেমন

r=a3+b3+c3.

বিস্তারিত

আপনার জমা দেওয়ার জন্য পর্যাপ্ত সময় এবং মেমরি প্রদত্ত প্রতিটি ইনপুটটির জন্য একটি সমাধান গণনা করতে সক্ষম হওয়া উচিত, যার অর্থ intএকটি ভগ্নাংশের প্রতিনিধিত্ব করে দুটি 32-বিট থাকা যথেষ্ট নয়।

উদাহরণ

30=3982933876681363660054951533977505554546352=607029013173+2396129245436192271286533071728=(12)3+(13)3+(14)30=03+03+031=(12)3+(23)3+(56)342=(1810423509232)3+(1495210609)3+(25454944)3


1
আমার কাছে জাপটে এমন ধরনের কাজ ছিল তবে এটি প্রায়শই "অত্যধিক পুনরাবৃত্তি" ত্রুটির মধ্যে পড়ে। সম্ভবত কারণ কৌশলটি "এলোমেলো সংখ্যাগুলি পান, তারা সঠিক উত্তর না পাওয়া পর্যন্ত আবার চেষ্টা করুন"।
কামিল দ্রাকারী

1
বিনগম সমর্থনের প্রয়োজনে অযথা প্রচুর ভাষাগুলি বাদ দেওয়া হয়, এবং / অথবা এগুলি বাস্তবায়নের জন্য প্রচুর নষ্ট বয়লারপ্লেটের প্রয়োজন হয়
স্পার

2
@ স্পার এটি একটি ইচ্ছাকৃত পছন্দ ছিল, যেহেতু সাধারণ ইনপুটগুলির জন্য এমনকি আউটপুটটি "বড়" হতে পারে, বা আপনি কোন পদ্ধতিটি ব্যবহার করেন তার উপর নির্ভর করে গণনার মধ্যবর্তী মানগুলিও খুব বড় হতে পারে। সুতরাং নির্বিচারে যথাযথ সংখ্যার সাথে কাজ করা এই চ্যালেঞ্জের জন্য একটি গুরুত্বপূর্ণ পয়েন্ট ছিল (এবং সম্ভবত বেশিরভাগ ক্ষেত্রে অন্যান্য সংখ্যা-তত্ত্ব- চ্যালেঞ্জগুলিতেও )।
flawr

1
এটি কি আউটপুট গ্রহণযোগ্য হবে [p1,p2,p3,q], ( পি 1) হিসাবে ব্যাখ্যা করা?? (p1q)3+(p2q)3+(p3q)3
আর্নল্ড

একই ধরণের শিরা বরাবর, আউটপুট করা তিনটি যৌক্তিক সংখ্যাগুলি কি সহজ আকারে থাকতে হবে?
কুইনটেক

উত্তর:


10

পরী / জিপি , 40 বাইট

r->[x=27*r^3+1,9*r-x,z=9*r-27*r^2]/(3-z)

এটি অনলাইন চেষ্টা করুন!


একই দৈর্ঘ্য, একই সূত্র:

r->d=9*r^2-3*r+1;[x=r+1/3,3*r/d-x,1/d-1]

এটি অনলাইন চেষ্টা করুন!


এই সূত্রটি দেওয়া হয়েছে: রিচমন্ড, এইচ। (1930)। x3+y3+z3=R এর যৌক্তিক সমাধানগুলিতে । এডিনবার্গ ম্যাথমেটিকাল সোসাইটির কার্যক্রম, ২ (২), ৯৯-১০০

r=(27r3+127r29r+3)3+(27r3+9r127r29r+3)3+(27r2+9r27r29r+3)3

এটি অনলাইন দেখুন!


1
-5 বাইট কারণ আপনি সামনের ক্রম পরিবর্তন করতে পারেন
কালো আউল কাই

1
@ ব্ল্যাকওলকাই দ্বিতীয় শীর্ষ সম্মেলনের অঙ্কটি হ'ল , নয় - 27 আর 2 + 9 আর - 127r3+9r127r2+9r1
আলেফাল্ফা

8

হাস্কেল , 95 89 76 69 68 বাইট

f x=[w|n<-[1..],w<-mapM(\_->[-n,1/n-n..n])"IOU",x==sum((^3)<$>w)]!!0

এটি অনলাইন চেষ্টা করুন!

সহজ ব্রুটফোর্স সমাধান। এটি ফর্মের যুক্তিযুক্ত সংখ্যার সমস্ত ট্রিপল পরীক্ষা করে

(a1n,a2n,a3n)with nainn.

  • (a1n1,a2n2,a3n3)=(a1n2n3n1n2n3,a2n1n3n1n2n3,a3n1n2n1n2n3).
  • We can always assume that nainn, since
    ain=aiNnN
    for any arbitrarily large integer N.

What does the "IOU" do?
Solomon Ucko

@SolomonUcko Nothing special, it's as good as any other list of length 3
Delfad0r

@H.PWiz I couldn't find any consensus on Meta on whether assuming typed input is accepted, but I still found a way to shorten the code without that assumption. Thanks!
Delfad0r

4
@Delfad0r There is a "consensus" that you do not have to count a possible import, that is only needed to construct the type needed, if you do not explicitly need anything from that import for defining your function. (And you can assume that the correct type is passed to your function, when it is called.)
flawr

1
Save one byte by using [-n,1/n-n..n]
Christian Sievers

6

Husk, 14 bytes

ḟo=⁰ṁ^3π3×/NİZ

Simple brute force solution. Try it online!

Explanation

Division in Husk uses rational numbers by default and Cartesian products work correctly for infinite lists, making this a very straightforward program.

ḟo=⁰ṁ^3π3×/NİZ
            İZ  Integers: [0,1,-1,2,-2,3,-3...
           N    Natural numbers: [1,2,3,4,5...
         ×/     Mix by division: [0,1,0,-1,1/2,0,2,-1/2,1/3...
                This list contains n/m for every integer n and natural m.
       π3       All triples: [[0,0,0],[0,0,1],[1,0,0]...
ḟ               Find the first one
    ṁ^3         whose sum of cubes
 o=⁰            equals the input.


2

Haskell, 70 bytes

In An introduction to the Theory of Numbers (by Hardy and Wright) there is an construction that even includes a rational parameter. For golfing purposes I just set this parameter to 1, and tried reducing as much as possible. This results in the formula

r[r3648r2+77760r+37324872(r+72)2,12(r72)r(r+72)2,r2720r+518472(r+72)]

f r|t<-r/72,c<-t+1,v<-24*t/c^3,a<-(v*t-1)*c=((a+v*c+c)/2-)<$>[a,v*c,c]

Try it online!


1

perl -Mbigrat -nE, 85 bytes

$_=eval;($a,$b)=($_*9,$_**2*27);$c=$b*$_;say for map$_/($b-$a+3),$c+1,-$c+$a-1,-$b+$a

You can save 8 bytes (the leading $_=eval;) if you know the input is an integer; this part is needed to have the program grok an input of the form 308/1728. Input is read from STDIN. I'm using the formula given by @alephalpha.

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.