projectEuler008 SpecialPythagoreanTriplet

博客园的回复去掉了缩进,太难看,转移到这里.

Mac-mini:projectEuler$ time ./q008SpecialPythagoreanTriplet

375 200
425

real 0m0.015s

user 0m0.012s

sys 0m0.002s

Mac-mini:projectEuler $ cat q008SpecialPythagoreanTriplet.d

/*
A Pythagorean triplet is a set of three natural numbers, a  b  c, for which,

a2 + b2 = c2
For example, 32 + 42 = 9 + 16 = 25 = 52.

There exists exactly one Pythagorean triplet for which a + b + c = 1000.
Find the product abc.
*/

import std.stdio;

void main(){
int[int] u;
foreach(a;1..1000-1) u[a^^2]=a;
foreach(c;1..1000-1)
foreach(b;1..1000-c)
if(c^^2-b^^2 in u && u[c^^2-b^^2]==1000-b-c){
writeln(u[c^^2-b^^2],"\t",b,"\t",c);
return;
}
}