- Added solutions by Robert DiCicco.

4 files changed, 162 insertions, 0 deletions

diff --git a/challenge-184/robert-dicicco/julia/ch-1.jl b/challenge-184/robert-dicicco/julia/ch-1.jl
new file mode 100644
index 0000000000..553854748f
--- /dev/null
+++ b/challenge-184/robert-dicicco/julia/ch-1.jl
@@ -0,0 +1,41 @@
+#!julia.exe
+
+# AUTHOR: Robert DiCicco
+# DATE: 2022-09-26
+# Challenge 184 Sequence Number ( Julia )
+
+using Printf
+
+cnt = 0
+
+arr = ["ab1234", "cd5678", "ef1342"]
+
+#arr = [ "pq1122", "rs3334" ]
+
+print("Input: ( ")
+
+for i in 1:length(arr)
+
+  print(arr[i]," ")
+
+end
+
+println(" )")
+
+print("Output: ( ")
+
+for i in 1:length(arr)
+
+  pt1 = SubString(arr[i],1,2)
+
+  pt2 = SubString(arr[i],3,6)
+
+  text1 = @sprintf("%.2d", cnt );
+
+  print(text1,pt2," ")
+
+  global cnt += 1
+
+end
+
+println(" )")
diff --git a/challenge-184/robert-dicicco/perl/ch-1.pl b/challenge-184/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..1ad3c827f4
--- /dev/null
+++ b/challenge-184/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,43 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+# AUTHOR: Robert DiCicco
+# DATE: 2022-09-26
+# Challenge 184 Sequence Number ( Perl )
+
+my $cnt = 0;
+
+my @arr = ( 'ab1234', 'cd5678', 'ef1342');
+
+#my @arr = ( 'pq1122', 'rs3334');
+
+print("Input: \@list = (" );
+
+foreach (@arr) {
+
+  print("\'$_\' ");
+
+}
+
+print(")\n");
+
+print("Output: (");
+
+foreach (@arr) {
+
+  my $pt1 = substr($_,0,2);
+
+  my $pt2 = substr($_,2,4);
+
+  my $text1 = sprintf("%.2d", $cnt );
+
+  $cnt++;
+
+  print("$text1$pt2 ");
+
+}
+
+print(")\n");
diff --git a/challenge-184/robert-dicicco/raku/ch-1.raku b/challenge-184/robert-dicicco/raku/ch-1.raku
new file mode 100644
index 0000000000..e642e32c15
--- /dev/null
+++ b/challenge-184/robert-dicicco/raku/ch-1.raku
@@ -0,0 +1,39 @@
+use v6;
+
+# AUTHOR: Robert DiCicco
+# DATE: 2022-09-26
+# Challenge 184 Sequence Number ( Raku )
+
+my $cnt = 0;
+
+my @arr = ( 'ab1234', 'cd5678', 'ef1342');
+
+#my @arr = ( 'pq1122', 'rs3334');
+
+print("Input: \@list = (" );
+
+for ( @arr ) -> $a {
+
+  print("\'$a\' ");
+
+}
+
+print(")\n");
+
+print("Output: (");
+
+for (@arr) -> $a {
+
+  my $pt1 = substr($a, 0, 2);
+
+  my $pt2 = substr($a,2,4);
+
+  my $text1 = sprintf("%.2d", $cnt );
+
+  $cnt++;
+
+  print("$text1$pt2 ");
+
+}
+
+print(")\n");
diff --git a/challenge-184/robert-dicicco/ruby/ch-1.rb b/challenge-184/robert-dicicco/ruby/ch-1.rb
new file mode 100644
index 0000000000..86bf8b49ed
--- /dev/null
+++ b/challenge-184/robert-dicicco/ruby/ch-1.rb
@@ -0,0 +1,39 @@
+#!ruby.exe
+
+# AUTHOR: Robert DiCicco
+# DATE: 2022-09-26
+# Challenge 184 Sequence Number ( Ruby )
+
+cnt = 0
+
+arr = [ 'ab1234', 'cd5678', 'ef1342' ]
+
+#arr = [ 'pq1122', 'rs3334' ]
+
+print("Input: \@list = ( " )
+
+arr.each do |a|
+
+  print("#{a} ")
+
+end
+
+puts ")"
+
+print("Output: ( ")
+
+arr.each do |a|
+
+  pt1 = a[0..1]
+
+  pt2 = a[2..5]
+
+  text1 = sprintf("%.2d", cnt );
+
+  cnt += 1
+
+  print("#{text1}#{pt2} ");
+
+end
+
+print(")\n");