Anonymous user
Circles of given radius through two points: Difference between revisions
Circles of given radius through two points (view source)
Revision as of 16:15, 7 February 2014
, 10 years ago→{{header|МК-61/52}}: remove spurious horizontal rule added by Perl 6 entry
(→{{header|Perl 6}}: alternative solution in the Complex plane) |
(→{{header|МК-61/52}}: remove spurious horizontal rule added by Perl 6 entry) |
||
Line 463:
''Output'': "8.L" if the points are coincident; "8.-" if the points are opposite ends of a diameter of the circle, РY and РZ are coordinates of the center; "8.Г" if the points are farther away from each other than a diameter of a circle; else РX, РY and РZ, РT are coordinates of the circles centers.
=={{header|Perl 6}}==
<lang Perl6>sub circles(@A, @B where (not [and] @A Z== @B), $radius where * > 0) {
| |||