aboutsummaryrefslogtreecommitdiff
path: root/challenge-144/andinus
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2021-12-20 11:38:27 +0000
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2021-12-20 11:38:27 +0000
commit1aa8ecccec917bbdee515fef036e8f84c47dae22 (patch)
treebde2e5ec92648edcef93708a9d909ffeaac20329 /challenge-144/andinus
parent0b01815f0a6be7f1a64f414419ae64d55d0094ee (diff)
downloadperlweeklychallenge-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/README51
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);
+ └────