251-1

1 files changed, 79 insertions, 0 deletions

diff --git a/challenge-251/0rir/raku/ch-1.raku b/challenge-251/0rir/raku/ch-1.raku
new file mode 100644
index 0000000000..3b6804c526
--- /dev/null
+++ b/challenge-251/0rir/raku/ch-1.raku
@@ -0,0 +1,79 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉ ≡ ≢ «␤ » ∴
+use v6d;
+use Test;
+
+=begin comment
+251-1: Concatenation Value          Submitted by: Mohammad S Anwar
+You are given an array of integers, @ints.
+Write a script to find the concatenation value of the given array.
+
+The concatenation of two numbers is the number formed by concatenating their numerals.
+
+For example, the concatenation of 10, 21 is 1021.
+The concatenation value of @ints is initially equal to 0.
+Perform this operation until @ints becomes empty:
+
+If there exists more than one number in @ints, pick the first element
+and last element in @ints respectively and add the value of their
+concatenation to the concatenation value of @ints, then delete the
+first and last element from @ints.
+
+If one element exists, add its value to the concatenation value of
+@ints, then delete it.
+
+Example 1
+Input: @ints = (6, 12, 25, 1)
+Output: 1286
+
+1st operation: concatenation of 6 and 1 is 61
+2nd operation: concaternation of 12 and 25 is 1225
+
+Concatenation Value => 61 + 1225 => 1286
+Example 2
+Input: @ints = (10, 7, 31, 5, 2, 2)
+Output: 489
+
+1st operation: concatenation of 10 and 2 is 102
+2nd operation: concatenation of 7 and 2 is 72
+3rd operation: concatenation of 31 and 5 is 315
+
+Concatenation Value => 102 + 72 + 315 => 489
+Example 3
+Input: @ints = (1, 2, 10)
+Output: 112
+
+1st operation: concatenation of 1 and 10 is 110
+2nd operation: only element left is 2
+
+Concatenation Value => 110 + 2 => 112
+
+=end comment
+
+my @Test =
+    (2, 1, 10),             211,
+    (1, 2, 10),             112,
+    (10, 7, 31, 5, 2, 2),   489,
+    (6, 12, 25, 1),        1286,
+;
+plan @Test ÷ 2;
+
+sub cat-head-tail( @a is copy --> Int) {
+    my $sum;
+    while @a > 1 { $sum += @a.pop R~ @a.shift; } 
+    if @a == 1 { $sum += @a.pop }
+    $sum
+}
+
+for @Test -> $in, $exp {
+    is cat-head-tail($in), $exp, "$exp <- $in[]";
+}
+
+done-testing;
+
+my @int = 1, 7,4,3;
+
+say "\nInput: @int = @int.raku()\nOutput: &cat-head-tail( @int)";
+
+exit;
+