diff options
| author | Abigail <abigail@abigail.be> | 2021-06-28 14:34:16 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-06-28 14:34:16 +0200 |
| commit | cdbc2bb40b6c79ddae6896768daecb3fd70db92f (patch) | |
| tree | 210e83e152594bc664f6f9919743e295bd50fef6 /challenge-119/abigail/awk | |
| parent | d14669a0f60a4846ad4bbd5ed5c6a195302a1e50 (diff) | |
| download | perlweeklychallenge-club-cdbc2bb40b6c79ddae6896768daecb3fd70db92f.tar.gz perlweeklychallenge-club-cdbc2bb40b6c79ddae6896768daecb3fd70db92f.tar.bz2 perlweeklychallenge-club-cdbc2bb40b6c79ddae6896768daecb3fd70db92f.zip | |
Solutions in 10 languages for week 119, part 1.
Diffstat (limited to 'challenge-119/abigail/awk')
| -rw-r--r-- | challenge-119/abigail/awk/ch-1.awk | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-119/abigail/awk/ch-1.awk b/challenge-119/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..fce43f8a43 --- /dev/null +++ b/challenge-119/abigail/awk/ch-1.awk @@ -0,0 +1,15 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk < input-file +# + +{ + print ( ($1 - ($1 % 256)) \ + + ($1 % 16) * 16 \ + + int (($1 % 256) / 16)) +} |