Merge pull request #3664 from akarelas/challenge-102

created solution to ch102/2

1 files changed, 32 insertions, 0 deletions

diff --git a/challenge-102/alexander-karelas/perl/ch-2.pl b/challenge-102/alexander-karelas/perl/ch-2.pl
new file mode 100755
index 0000000000..64d0222589
--- /dev/null
+++ b/challenge-102/alexander-karelas/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+
+use v5.30;
+use warnings;
+
+use Test::More;
+
+sub create_string {
+    my ($n) = @_;
+
+    my $ret = '-' x $n;
+    my $pos = $n - 1;
+    while ($pos >= 0) {
+        substr($ret, $pos, 1, '#');
+        my $number = $pos + 1;
+        $pos -= length($number);
+        if ($pos >= 0) {
+            substr($ret, $pos, length($number), $number);
+        }
+        $pos--;
+    }
+
+    return $ret;
+}
+
+is create_string(1), '#', 'length 1';
+is create_string(2), '2#', 'length 2';
+is create_string(3), '#3#', 'length 3';
+is create_string(10), '#3#5#7#10#', 'length 10';
+is create_string(14), '2#4#6#8#11#14#', 'length 14';
+
+done_testing;
\ No newline at end of file