diff options
| author | Abigail <abigail@abigail.be> | 2021-01-29 20:31:33 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-01-30 17:51:26 +0100 |
| commit | e99579328003d3e4712b574f45e1fa2d55c7d573 (patch) | |
| tree | cc4631378947db84a16981120119fb1fe7fa4c31 /challenge-097/abigail | |
| parent | dd53a9936ba3e10841194b2c50134ecbde1060a1 (diff) | |
| download | perlweeklychallenge-club-e99579328003d3e4712b574f45e1fa2d55c7d573.tar.gz perlweeklychallenge-club-e99579328003d3e4712b574f45e1fa2d55c7d573.tar.bz2 perlweeklychallenge-club-e99579328003d3e4712b574f45e1fa2d55c7d573.zip | |
No need to split a string into individual characters
Diffstat (limited to 'challenge-097/abigail')
| -rw-r--r-- | challenge-097/abigail/awk/ch-1.awk | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-097/abigail/awk/ch-1.awk b/challenge-097/abigail/awk/ch-1.awk index a33507ee33..c93f4a123e 100644 --- a/challenge-097/abigail/awk/ch-1.awk +++ b/challenge-097/abigail/awk/ch-1.awk @@ -32,13 +32,12 @@ BEGIN { } { - split($0, letters, "") out = "" # # Iterate over the individual letters, shifting capital letters # for (i = 1; i <= length (letters); i ++) { - char = letters [i] + char = substr ($0, i, 1) if (ord [char]) { n = ord [char] - shift if (n < ORD_A) { |