Pythagorean triples: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,520: / Line 4,520: @@
 (formerly Perl 6)
 {{works with|Rakudo|2018.09}}
-Here is a straight-forward, naive brute force implementation:
+Here is a straight-forward, naïve brute force implementation:
 <syntaxhighlight lang="raku" line>constant limit = 100;
 for [X] [^limit] xx 3 -> (\a, \b, \c) {
-    say [a, b, c] if a < b < c and a**2 + b**2 == c**2
+    say [a, b, c] if a < b < c and a + b + c <= limit and a*b + b*b == c*c
 }</syntaxhighlight>
 {{out}}
-<pre style="height:25ex">3 4 5
+<pre style="height:25ex">[3 4 5]
-12 13
+[5 12 13]
-8 10
+[6 8 10]
-24 25
+[7 24 25]
-15 17
+[8 15 17]
-12 15
+[9 12 15]
-40 41
+[9 40 41]
-24 26
+[10 24 26]
+[12 16 20]
-60 61
-16 20
+[12 35 37]
+[15 20 25]
-35 37
+[15 36 39]
-84 85
+[16 30 34]
-48 50
+[18 24 30]
-20 25
+[20 21 29]
-36 39
+[21 28 35]
-30 34
+[24 32 40]
-63 65
+</pre>
-80 82
-21 29
-48 52
-28 35
-72 75
-32 40
-45 51
-70 74
-60 65
-36 45
-45 53
-40 50
-72 78
-60 68
-44 55
-56 65
-84 91
-48 60
-77 85
-52 65
-80 89
-42 58
-75 85
-56 70
-60 75
-55 73
-64 80
-68 85
-72 90
-76 95
-63 87
-72 97</pre>
 Here is a slightly less naive brute force implementation, but still not practical for large perimeter limits.
 <syntaxhighlight lang="raku" line>my $limit = 10000;