diff options
| -rwxr-xr-x | challenge-027/ruben-westerberg/perl5/ch-1.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/challenge-027/ruben-westerberg/perl5/ch-1.pl b/challenge-027/ruben-westerberg/perl5/ch-1.pl new file mode 100755 index 0000000000..0bb1428281 --- /dev/null +++ b/challenge-027/ruben-westerberg/perl5/ch-1.pl @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my @l; +while (@l<2) { + print "Enter line".(@l+1).": x1 y1 x2 y2\n"; + my $l=<STDIN>; my @p=split " ", $l; + if (@p==4) { + push @l, {px=>[@p[0,2]],py=>[@p[1,3]],m=>undef,c=>undef}; + } + else { + print "not a valid line! \n"; + } +} + +for (@l) { $$_{c}=$$_{py}[0]-($$_{m}*$$_{px}[0]); } +my $x=($l[0]{c}-$l[1]{c})/( $l[1]{m}-$l[0]{m}); +my $y=$l[0]{m}*$x+$l[0]{c}; + +print "Intercept point: $x, $y\n"; |