aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Pythagorean-triples/Phix/pythagorean-triples.phix Normal file
View file

@ -0,0 +1,20 @@
atom total, prim, maxPeri = 10
procedure tri(atom s0, s1, s2)
atom p = s0 + s1 + s2
if p<=maxPeri then
prim += 1
total += floor(maxPeri/p)
tri( s0+2*(-s1+s2), 2*( s0+s2)-s1, 2*( s0-s1+s2)+s2);
tri( s0+2*( s1+s2), 2*( s0+s2)+s1, 2*( s0+s1+s2)+s2);
tri(-s0+2*( s1+s2), 2*(-s0+s2)+s1, 2*(-s0+s1+s2)+s2);
end if
end procedure
while maxPeri<=1e8 do
prim := 0;
total := 0;
tri(3, 4, 5);
printf(1,"Up to %d: %d triples, %d primitives.\n", {maxPeri,total,prim})
maxPeri *= 10;
end while