diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-12-13 03:05:08 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-12-13 03:05:08 +0000 |
| commit | bc0c0e1085d43f0b1a7fcde30b908051c76cef47 (patch) | |
| tree | bffa68c198f5b4fa145974c17af98f58b8f541f0 /challenge-090 | |
| parent | 338ed2c9fd14fb921a97f8e900a923d69f51b933 (diff) | |
| download | perlweeklychallenge-club-bc0c0e1085d43f0b1a7fcde30b908051c76cef47.tar.gz perlweeklychallenge-club-bc0c0e1085d43f0b1a7fcde30b908051c76cef47.tar.bz2 perlweeklychallenge-club-bc0c0e1085d43f0b1a7fcde30b908051c76cef47.zip | |
- Added Awk solution by Pete Houston.
Diffstat (limited to 'challenge-090')
| -rw-r--r-- | challenge-090/pete-houston/awk/ch-1.awk | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-090/pete-houston/awk/ch-1.awk b/challenge-090/pete-houston/awk/ch-1.awk new file mode 100644 index 0000000000..e7e20bc5fb --- /dev/null +++ b/challenge-090/pete-houston/awk/ch-1.awk @@ -0,0 +1,27 @@ +#!/usr/bin/gawk -f
+#===============================================================================
+#
+# FILE: 9001.awk
+#
+# USAGE: echo STRING | ./ch-1.awk
+#
+# DESCRIPTION: DNA nucleobase counts and complementary sequence
+#
+# NOTES: STRING must contain uppercase A, C, G and T characters
+# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk
+# ORGANIZATION: Openstrike
+# VERSION: 1.0
+# CREATED: 07/12/20
+#===============================================================================
+BEGIN { split ("ACGT", n, //); }
+{
+ print "Original sequence is " $0;
+ for (i in n) {
+ count = gsub (n[i], i);
+ print "Count of " n[i] " is " count;
+ }
+ for (i in n) {
+ gsub (i, n[5-i]);
+ }
+ print "Complementary sequence is " $0;
+}
|