Special pythagorean triplet: Difference between revisions

=={{header|F_Sharp|F#}}==

<lang fsharp>

// Special pythagorean triplet. Nigel Galloway: August 31st., 2021

let rec fN i g e l=if g=i then None else match compare(e+g*g)(l*l) with 0->Some(i,g,l) |1->fN i (g-1) e (l+1) |_->None

seq{1..332}|>Seq.choose(fun n->let g=(999-n)/2 in fN n g (n*n) (1000-n-g))|>Seq.iter(fun(n,g,l)->printfn $"%d{n*n}(%d{n})+%d{g*g}(%d{g})=%d{l*l}(%d{l})")

</lang>

{{out}}

<pre>

40000(200)+140625(375)=180625(425)

</pre>