S. Ryley terbukti mengikuti teorema pada tahun 1825:

Setiap bilangan rasional dapat dinyatakan sebagai jumlah dari tiga kubus rasional.

Tantangan

Diberikan bilangan rasional $r \in \mathbb Q$ temukan tiga bilangan rasional $a,b,c \in \mathbb Q$ sedemikian rupa sehingga

r = a^{3} + b^{3} + c^{3} .

$r= a^3+b^3+c^3.$

Detail

Kiriman Anda harus dapat menghitung solusi untuk setiap input yang diberikan cukup waktu dan memori, itu berarti memiliki misalnya dua 32-bit yang intmewakili sebagian kecil tidak cukup.

Contohnya

\begin{aligned} 30 & = 3982933876681^{3} - 636600549515^{3} - 3977505554546^{3} \\ 52 & = 60702901317^{3} + 23961292454^{3} - 61922712865^{3} \\ \frac{307}{1728} & = {(\frac{1}{2})}^{3} + {(\frac{1}{3})}^{3} + {(\frac{1}{4})}^{3} \\ 0 & = 0^{3} + 0^{3} + 0^{3} \\ 1 & = {(\frac{1}{2})}^{3} + {(\frac{2}{3})}^{3} + {(\frac{5}{6})}^{3} \\ 42 & = {(\frac{1810423}{509232})}^{3} + {(\frac{- 14952}{10609})}^{3} + {(\frac{- 2545}{4944})}^{3} \end{aligned}

$\begin{align} 30 &= 3982933876681^3 - 636600549515^3 - 3977505554546^3 \\ 52 &= 60702901317^3 + 23961292454^3 - 61922712865^3 \\ \frac{307}{1728} &= \left(\frac12\right)^3 + \left(\frac13\right)^3 + \left(\frac14\right)^3 \\ 0 &= 0^3 + 0^3 + 0^3 \\ 1 &= \left(\frac12\right)^3 + \left(\frac23\right)^3 + \left(\frac56\right)^3\\ 42 &= \left(\frac{1810423}{509232}\right)^3 + \left(\frac{-14952}{10609}\right)^3 + \left(\frac{-2545}{4944}\right)^3 \end{align}$

code-golf math number-theory rational-numbers polynomials cacat
sumber

1

Saya memiliki sesuatu yang semacam itu bekerja di Japt, tetapi sering mengalami kesalahan "terlalu banyak rekursi". Mungkin karena strateginya adalah "dapatkan angka acak, coba lagi sampai mereka jawaban yang benar".

Kamil Drakari

1

Membutuhkan dukungan bignum yang tidak perlu mengecualikan banyak bahasa, dan / atau membutuhkan banyak piring kosong untuk mengimplementasikannya

Sparr

2

@Sparr Ini adalah pilihan yang disengaja, karena outputnya bisa cukup "besar" bahkan untuk input sederhana, atau tergantung pada metode apa yang Anda gunakan, nilai-nilai perantara dalam perhitungan juga bisa sangat besar. Jadi bekerja dengan angka presisi yang berubah-ubah adalah poin penting untuk tantangan ini (dan mungkin cukup sering dalam teori-nomor lain - juga tantangan).

flawr

1

Apakah bisa diterima untuk output [p1,p2,p3,q], ditafsirkan sebagai

?

{(\frac{p_{1}}{q})}^{3} + {(\frac{p_{2}}{q})}^{3} + {(\frac{p_{3}}{q})}^{3}

$\left(\frac{p_1}{q}\right)^3+\left(\frac{p_2}{q}\right)^3+\left(\frac{p_3}{q}\right)^3$

Arnauld

Sepanjang nada yang sama, apakah tiga bilangan rasional yang dihasilkan harus dalam bentuk paling sederhana?

Quintec

10

Pari / GP , 40 byte

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

Cobalah online!

Panjang yang sama, rumus yang sama:

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

Cobalah online!

Formula ini diberikan dalam: Richmond, H. (1930). Pada Solusi Rasional $x^3+y^3+z^3=R$ . Prosiding Masyarakat Matematika Edinburgh, 2(2), 92-100.

r = {(\frac{27 r^{3} + 1}{27 r^{2} - 9 r + 3})}^{3} + {(\frac{- 27 r^{3} + 9 r - 1}{27 r^{2} - 9 r + 3})}^{3} + {(\frac{- 27 r^{2} + 9 r}{27 r^{2} - 9 r + 3})}^{3}

$r=\left(\frac{27r^3+1}{27r^2-9r+3}\right)^3+\left(\frac{-27r^3+9r-1}{27r^2-9r+3}\right)^3+\left(\frac{-27r^2+9r}{27r^2-9r+3}\right)^3$

Periksa secara online!

alephalpha
sumber

1

-5 byte karena Anda dapat mengubah urutan puncak

Black Owl Kai

1

@BlackOwlKai Pembilang dari puncak kedua adalah

, bukan

.

- 27 r^{3} + 9 r - 1

$-27r^{\color{Red}3}+9r-1$

- 27 r^{2} + 9 r - 1

$-27r^{\color{Red}2}+9r-1$

alephalpha

8

Haskell , 95 89 76 69 68 byte

-18 byte terima kasih kepada H.PWiz
-1 byte terima kasih kepada Christian Sievers

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

Cobalah online!

Solusi bruteforce sederhana. Ini menguji semua tiga kali lipat bilangan rasional dari bentuk

(\frac{a_{1}}{n}, \frac{a_{2}}{n}, \frac{a_{3}}{n}) with - n \leq \frac{a_{i}}{n} \leq n .

$\left(\frac{a_1}{n},\frac{a_2}{n},\frac{a_3}{n}\right)\qquad\text{with }-n\le\frac{a_i}{n}\le n.$

$(\frac{a_{1}}{n_{1}}, \frac{a_{2}}{n_{2}}, \frac{a_{3}}{n_{3}}) = (\frac{a_{1} n_{2} n_{3}}{n_{1} n_{2} n_{3}}, \frac{a_{2} n_{1} n_{3}}{n_{1} n_{2} n_{3}}, \frac{a_{3} n_{1} n_{2}}{n_{1} n_{2} n_{3}}) .$ $\left(\frac{a_1}{n_1},\frac{a_2}{n_2},\frac{a_3}{n_3}\right)=\left(\frac{a_1n_2n_3}{n_1n_2n_3},\frac{a_2n_1n_3}{n_1n_2n_3},\frac{a_3n_1n_2}{n_1n_2n_3}\right).$
We can always assume that $-n\le\frac{a_i}{n}\le n$ , since $\frac{a_{i}}{n} = \frac{a_{i} N}{n N}$ $\frac{a_i}{n}=\frac{a_iN}{nN}$ for any arbitrarily large integer $N$ .

Delfad0r
sumber

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.

Zgarb
sumber

2

JavaScript (Node.js), 73 bytes

Takes input as (p)(q), where $p$ and $q$ are BigInt literals.

Returns [[p1,q1],[p2,q2],[p3,q3]] such that $\frac{p}{q}=\left(\frac{p_1}{q_1}\right)^3+\left(\frac{p_2}{q_2}\right)^3+\left(\frac{p_3}{q_3}\right)^3$ .

p=>q=>[x=p*(y=p*(p*=9n*q*q)*3n/q)/q+(q*=q*q),p-x,p-=y].map(x=>[x,3n*q-p])

Try it online!

Derived from H. W. Richmond (1930), On Rational Solutions of x³ + y³ +z³ = R.

Arnauld
sumber

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 \mapsto [\frac{r^{3} - 648 r^{2} + 77760 r + 373248}{72 {(r + 72)}^{2}}, \frac{12 (r - 72) r}{{(r + 72)}^{2}}, - \frac{r^{2} - 720 r + 5184}{72 (r + 72)}]

$r \mapsto \left[ {{r^3-648\,r^2+77760\,r+373248}\over{72\,\left(r+72\right)^2 }} , {{12\,\left(r-72\right)\,r}\over{\left(r+72\right)^2}} , -{{r^2 -720\,r+5184}\over{72\,\left(r+72\right)}} \right]$

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]

Cobalah online!

cacat
sumber

1

perl -Mbigrat -nE, 85 byte

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

Anda dapat menyimpan 8 byte (terkemuka $_=eval;) jika Anda tahu inputnya adalah integer; bagian ini diperlukan untuk mendapatkan program grok input dari formulir 308/1728. Input dibaca dari STDIN. Saya menggunakan formula yang diberikan oleh @alephalpha.

sumber

Teorema Ryley

Tantangan

Detail

Contohnya

Jawaban:

Pari / GP , 40 byte

Haskell , 95 89 76 69 68 byte

Husk, 14 bytes

Explanation

JavaScript (Node.js), 73 bytes

Haskell, 70 bytes

perl -Mbigrat -nE, 85 byte