diff options
| -rwxr-xr-x | challenge-027/roger-bell-west/perl5/ch-1.pl | 2 | ||||
| -rwxr-xr-x | challenge-027/roger-bell-west/perl6/ch-1.p6 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-027/roger-bell-west/perl5/ch-1.pl b/challenge-027/roger-bell-west/perl5/ch-1.pl index 7144925850..5eb8e719b4 100755 --- a/challenge-027/roger-bell-west/perl5/ch-1.pl +++ b/challenge-027/roger-bell-west/perl5/ch-1.pl @@ -28,5 +28,5 @@ if ($u<0 || $u>1) { die "No intersection.\n"; } $x[0]=$x[1]+$t*($x[2]-$x[1]); -$y[0]=$y[1]+$t*($y[2]-$y[1]); +$y[0]=$y[1]+$u*($y[2]-$y[1]); print "$x[0] $y[0]\n"; diff --git a/challenge-027/roger-bell-west/perl6/ch-1.p6 b/challenge-027/roger-bell-west/perl6/ch-1.p6 index 4dd871dfec..706e43953b 100755 --- a/challenge-027/roger-bell-west/perl6/ch-1.p6 +++ b/challenge-027/roger-bell-west/perl6/ch-1.p6 @@ -25,5 +25,5 @@ if $u < 0 or $u > 1 { die "No intersection.\n"; } @x[0]=@x[1]+$t*(@x[2]-@x[1]); -@y[0]=@y[1]+$t*(@y[2]-@y[1]); +@y[0]=@y[1]+$u*(@y[2]-@y[1]); say "@x[0] @y[0]"; |