Circles of given radius through two points: Difference between revisions

m
→‎{{header|Perl}}: 'join' was obsolete
m (→‎{{header|Perl}}: tidying, show program output)
m (→‎{{header|Perl}}: 'join' was obsolete)
Line 2,262:
);
 
printf "(%.4f, %.4f) and (%.4f, %.4f): %s\n", @$_[0..3], join " ", circles @$_ for @arr;</lang>
{{out}}
<pre>(0.1234, 0.9876) and (0.8765, 0.2345): (1.8631, 1.9742) and (2.0000, -0.8632)
2,392

edits