diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-20 11:38:27 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-20 11:38:27 +0000 |
| commit | 1aa8ecccec917bbdee515fef036e8f84c47dae22 (patch) | |
| tree | bde2e5ec92648edcef93708a9d909ffeaac20329 /challenge-144/andinus | |
| parent | 0b01815f0a6be7f1a64f414419ae64d55d0094ee (diff) | |
| download | perlweeklychallenge-club-1aa8ecccec917bbdee515fef036e8f84c47dae22.tar.gz perlweeklychallenge-club-1aa8ecccec917bbdee515fef036e8f84c47dae22.tar.bz2 perlweeklychallenge-club-1aa8ecccec917bbdee515fef036e8f84c47dae22.zip | |
- Added template for week 144.
Diffstat (limited to 'challenge-144/andinus')
| -rw-r--r-- | challenge-144/andinus/README | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/challenge-144/andinus/README b/challenge-144/andinus/README new file mode 100644 index 0000000000..bd1dd6e3ce --- /dev/null +++ b/challenge-144/andinus/README @@ -0,0 +1,51 @@ + ━━━━━━━━━━━━━━━ + CHALLENGE 135 + + Andinus + ━━━━━━━━━━━━━━━ + + + 2021-10-22 + + + + + +Task 1 - Middle 3-digits +════════════════════════ + + You are given an integer. + + Write a script find out the middle 3-digits of the given integer, if + possible otherwise throw sensible error. + + ┌──── + │ Input: $n = 1234567 + │ Output: 345 + │ + │ Input: $n = -123 + │ Output: 123 + │ + │ Input: $n = 1 + │ Output: too short + │ + │ Input: $n = 10 + │ Output: even number of digits + └──── + + +Raku +──── + + Input's absolute value is taken because the sign is meaningless here. + To get middle 3-digits we take 3 digits from `$n.chars div 2 - 1' + position, `-1' because Arrays are 0-indexed. It's guaranteed that we + have odd number of digits so `div 2' will land us on left of middle + digit, we just take 3 digits from there. + + ┌──── + │ $n = abs $n; + │ die "too short" if $n.chars < 3; + │ die "even number of digits" if $n.chars %% 2; + │ put $n.substr($n.chars div 2 - 1, 3); + └──── |
