Pythagorean triples: Difference between revisions
m
→version 2
Walterpachl (talk | contribs) m (→version 1: ptimatives -> primitives) |
Walterpachl (talk | contribs) m (→version 2) |
||
Line 1,785:
if @.a.b.c then iterate
trips=trips+1 /*eureka. */
prims=prims+1 /*count this
do m=2; !a=a*m; !b=b*m; !c=c*m /*gen non-
if !a+!b+!c>N then leave /*is this multiple a triple ? */
trips=trips+1 /*yuppers, then we found another.*/
Line 1,798:
say 'max perimeter = 'N, /*show a single line of output. */
left('',7) "Pythagorean triples =" trips, /*left('',0) = 7 blanks.*/
left('',7) '
/*stick a fork in it, we're done.*/</lang>
'''output''' is identical to version 1.
| |||