diff options
| author | Abigail <abigail@abigail.be> | 2020-12-08 02:13:56 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-12-08 02:13:56 +0100 |
| commit | 1cb5e4bd6d5e4ec541a0885c5d2e31065c17c3fa (patch) | |
| tree | cfa06bc25ad6328d18fa5d75cfa526a2167eb4f5 /challenge-090/abigail/awk/ch-1.awk | |
| parent | 8071a82e88157ddfc818af347638421620e802b8 (diff) | |
| download | perlweeklychallenge-club-1cb5e4bd6d5e4ec541a0885c5d2e31065c17c3fa.tar.gz perlweeklychallenge-club-1cb5e4bd6d5e4ec541a0885c5d2e31065c17c3fa.tar.bz2 perlweeklychallenge-club-1cb5e4bd6d5e4ec541a0885c5d2e31065c17c3fa.zip | |
AWK solution for week 90/part 1
Diffstat (limited to 'challenge-090/abigail/awk/ch-1.awk')
| -rw-r--r-- | challenge-090/abigail/awk/ch-1.awk | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-090/abigail/awk/ch-1.awk b/challenge-090/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..23765f01c1 --- /dev/null +++ b/challenge-090/abigail/awk/ch-1.awk @@ -0,0 +1,10 @@ +{ + print length; + gsub ("T", "x"); + gsub ("A", "T"); + gsub ("x", "A"); + gsub ("G", "y"); + gsub ("C", "G"); + gsub ("y", "C"); + print; +} |