diff options
| author | Roger Bell_West <roger@firedrake.org> | 2019-09-23 11:55:34 +0100 |
|---|---|---|
| committer | Roger Bell_West <roger@firedrake.org> | 2019-09-23 11:55:34 +0100 |
| commit | 398a227151402704c15fc7c871cda6abd32d7293 (patch) | |
| tree | e39de0d776c7da18d5da362fb838f6ca2e4cc8a1 | |
| parent | f5c3af56332762f079c86db4f661f7cbd0b98e37 (diff) | |
| download | perlweeklychallenge-club-398a227151402704c15fc7c871cda6abd32d7293.tar.gz perlweeklychallenge-club-398a227151402704c15fc7c871cda6abd32d7293.tar.bz2 perlweeklychallenge-club-398a227151402704c15fc7c871cda6abd32d7293.zip | |
Correction to idiotic error.
| -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]"; |