diff options
| author | Abigail <abigail@abigail.be> | 2021-05-26 13:33:17 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-05-26 13:33:17 +0200 |
| commit | 95fa51719a7bb78211161a49764aee5b6a53088a (patch) | |
| tree | bf913216dfef520bcf696f7c0f8b6efdf3bcc53c | |
| parent | e3fe802195fd5bd11f24855597d4ee0575821751 (diff) | |
| download | perlweeklychallenge-club-95fa51719a7bb78211161a49764aee5b6a53088a.tar.gz perlweeklychallenge-club-95fa51719a7bb78211161a49764aee5b6a53088a.tar.bz2 perlweeklychallenge-club-95fa51719a7bb78211161a49764aee5b6a53088a.zip | |
Handle single digit numbers
| -rw-r--r-- | challenge-114/abigail/awk/ch-1.awk | 5 | ||||
| -rw-r--r-- | challenge-114/abigail/bash/ch-1.sh | 5 | ||||
| -rw-r--r-- | challenge-114/abigail/perl/ch-1.pl | 5 |
3 files changed, 15 insertions, 0 deletions
diff --git a/challenge-114/abigail/awk/ch-1.awk b/challenge-114/abigail/awk/ch-1.awk index dcc90a5751..3d1822ea29 100644 --- a/challenge-114/abigail/awk/ch-1.awk +++ b/challenge-114/abigail/awk/ch-1.awk @@ -22,6 +22,11 @@ function reverse (word, out, i) { next } +length ($1) == 1 { + print $1 + 1 + next +} + { part1 = substr ($1, 1, int (length ($1) / 2)) part2 = substr ($1, 1 + int (length ($1) / 2), length ($1) % 2) diff --git a/challenge-114/abigail/bash/ch-1.sh b/challenge-114/abigail/bash/ch-1.sh index 25c0a08047..6ea7f4ff78 100644 --- a/challenge-114/abigail/bash/ch-1.sh +++ b/challenge-114/abigail/bash/ch-1.sh @@ -27,6 +27,11 @@ do if [[ $number =~ ^9+$ ]] continue fi + if ((${#number} == 1)) + then echo $((number + 1)) + continue + fi + # # Split input in parts. Length of part1 and part3 are equal. # part2 is the middle character if the input number has odd diff --git a/challenge-114/abigail/perl/ch-1.pl b/challenge-114/abigail/perl/ch-1.pl index 0c1a989947..4c1d752fed 100644 --- a/challenge-114/abigail/perl/ch-1.pl +++ b/challenge-114/abigail/perl/ch-1.pl @@ -49,6 +49,11 @@ while (<>) { next; } + if (length ($_) == 1) { + say $_ + 1; + next; + } + # # Split the number into parts 2 equal parts, with a middle part # of at most one digit. |