Problem of Apollonius: Difference between revisions
m
→{{header|Perl 6}}: all 8 solutions, nicer output
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: all 8 solutions) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: all 8 solutions, nicer output) |
||
Line 1,948:
has $.y;
has $.r;
method gist { sprintf "
}
Line 1,992:
}
for ([X] [-1,1] xx 3) -> @i {
▲ my @c = circle(0, 0, 1), circle(4, 0, 1), circle(2, 4, 2);
say (solve-Apollonius @c,
}</lang>
{{out}}
<pre>
x = 2.000 y = 3.214 r = 2.786
x = 3.002 y = 0.123 r = 2.005
x = 4.127 y = 3.252 r = 4.255
x = 0.998 y = 0.123 r = 2.005
x = -0.127 y = 3.252 r = 4.255
x = 2.000 y = -1.500 r = 3.500
x = 2.000 y = 2.100 r = 3.900</pre>
=={{header|PL/I}}==
| |||