Pythagorean triples: Difference between revisions
Content deleted Content added
C++ entry |
|||
| Line 3,019: | Line 3,019: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
Short code but not a very scalable approach... |
Short code but not a very scalable approach... |
||
<lang Mathematica>pythag[n_] := Block[{soln = Solve[{a^2 + b^2 == c^2, a + b + c <= n, 0 < a < b < c}, {a, b, c}, Integers]}, |
<lang Mathematica>pythag[n_] := Block[{soln = Solve[{a^2 + b^2 == c^2, a + b + c <= n, 0 < a < b < c}, {a, b, c}, Integers]}, |
||
{Length[soln], Count[GCD[a, b] == GCD[b, c] == GCD[c, a] == 1 /. soln, True]} |
{Length[soln], Count[GCD[a, b] == GCD[b, c] == GCD[c, a] == 1 /. soln, True]} |
||
]</lang> |
]</lang> |
||
{{out}} |
{{out}} |
||
<pre>pythag[10] |
<pre>pythag[10] |
||
{0,0} |
{0,0} |
||
pythag[100] |
pythag[100] |
||
{17, 7} |
{17, 7} |
||
pythag[1000] |
pythag[1000] |
||
{325, 70}</pre> |
{325, 70}</pre> |
||