add tweak to avoid too many duplicate points by only doing roughly 1/8 of the circle! - and use a radius of r-1/2 to get a better set of points {due to rounding...}

1 files changed, 3 insertions, 2 deletions

diff --git a/challenge-124/james-smith/perl/ch-1.pl b/challenge-124/james-smith/perl/ch-1.pl
index 98695a06ea..34cdf2cd64 100644
--- a/challenge-124/james-smith/perl/ch-1.pl
+++ b/challenge-124/james-smith/perl/ch-1.pl
@@ -7,6 +7,7 @@ use feature qw(say);
 use Test::More;
 use Benchmark qw(cmpthese timethis);
 use Data::Dumper qw(Dumper);
+use POSIX qw(ceil);
 my $tau = 6.283185307179586476925286766559;
 
 
@@ -31,8 +32,8 @@ unless($radius) {
 my @a = map { ' ' x ($radius*2+1) } 0..$radius*2+$cross;
 
 ## Now we draw the circle...
-foreach my $x (0..$radius) {
-  my $y = int sqrt( $radius**2 - $x**2 );
+foreach my $x (0 .. ceil($radius*0.71)) {
+  my $y = int sqrt( ($radius-.5)**2 - $x**2 );
   substr $a[ $radius - $x ],$radius-$y,1,'^';
   substr $a[ $radius + $x ],$radius-$y,1,'^';
   substr $a[ $radius - $x ],$radius+$y,1,'^';