diff options
| author | Abigail <abigail@abigail.be> | 2021-07-28 18:13:24 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-28 18:13:24 +0200 |
| commit | a42addb6a561d57e470cfed7828109bbfba040fb (patch) | |
| tree | c18527120e6a1f8a71e04910bc03ccc7d1e5fffa /challenge-123/abigail/awk | |
| parent | bd9797e1d52dc5b0853bc5400f04f477ffd6a4cb (diff) | |
| download | perlweeklychallenge-club-a42addb6a561d57e470cfed7828109bbfba040fb.tar.gz perlweeklychallenge-club-a42addb6a561d57e470cfed7828109bbfba040fb.tar.bz2 perlweeklychallenge-club-a42addb6a561d57e470cfed7828109bbfba040fb.zip | |
Use methods to factor out calculations.
Diffstat (limited to 'challenge-123/abigail/awk')
| -rw-r--r-- | challenge-123/abigail/awk/ch-2.awk | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/challenge-123/abigail/awk/ch-2.awk b/challenge-123/abigail/awk/ch-2.awk index 27709d6fd0..96ac5314b1 100644 --- a/challenge-123/abigail/awk/ch-2.awk +++ b/challenge-123/abigail/awk/ch-2.awk @@ -8,13 +8,11 @@ # Run as: awk -f ch-2.awk < input-file # -{ - e1 = ($1 - $3) ^ 2 + ($2 - $4) ^ 2 - e2 = ($3 - $5) ^ 2 + ($4 - $6) ^ 2 - e3 = ($5 - $7) ^ 2 + ($6 - $8) ^ 2 - e4 = ($7 - $1) ^ 2 + ($8 - $2) ^ 2 - d1 = ($1 - $5) ^ 2 + ($2 - $6) ^ 2 - d2 = ($3 - $7) ^ 2 + ($4 - $8) ^ 2 +function dist (x1, y1, x2, y2) {(x1 - x2) ^ 2 + (y1 - y2) ^ 2} - print ((e1 == e2 && e2 == e3 && e3 == e4 && d1 == d2) ? 1 : 0) +{ + print (dist ($1, $2, $3, $4) == dist ($3, $4, $5, $6) && + dist ($3, $4, $5, $6) == dist ($5, $6, $7, $8) && + dist ($5, $6, $7, $8) == dist ($7, $8, $1, $2) && + dist ($1, $2, $5, $6) == dist ($3, $4, $7, $8) ? 1 : 0) } |