Circles of given radius through two points: Difference between revisions
Circles of given radius through two points (view source)
Revision as of 18:23, 9 November 2018
, 5 years ago→{{header|Perl}}
Line 2,165:
=={{header|Perl}}==
{{trans|Python}}
<lang perl>use feature 'say';
sub circles_from_p1p2r {
my ($x1, $y1, $x2, $y2, $r) = @_;
Line 2,196 ⟶ 2,194:
my @res = circles_from_p1p2r @{$_};
say "@res";
}</lang>▼
▲</lang>
=={{header|Perl 6}}==
| |||