Merge branch 'manwar:master' into master

3 files changed, 153 insertions, 0 deletions

diff --git a/challenge-209/robert-dicicco/julia/ch-2.jl b/challenge-209/robert-dicicco/julia/ch-2.jl
new file mode 100644
index 0000000000..aad1da2a7e
--- /dev/null
+++ b/challenge-209/robert-dicicco/julia/ch-2.jl
@@ -0,0 +1,47 @@
+#!/usr/bin/env julia
+#=
+------------------------------------------------------
+AUTHOR: Robert DiCicco
+DATE  : 2023-03-26
+Challenge 209 Merge Account ( Julia )
+------------------------------------------------------
+=#
+
+using Printf
+
+accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com", "a1@a.com"]]
+#accounts = [ ["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com"], ["B", "b2@b.com", "b1@b.com"] ]
+
+a = []
+b = []
+@printf("Input: @accounts = %s\n", accounts)
+for sub in accounts
+    if sub[1] == "A"
+        for x in sub
+            push!(a,x)
+        end
+    elseif sub[1] == "B"
+        for x in sub
+            push!(b,x)
+        end
+    end
+end
+@printf("\t%s\n",unique(sort(a)))
+@printf("\t%s\n",unique(sort(b)))
+println(" ")
+
+#=
+------------------------------------------------------
+julia .\MergeAccount.jl
+Input: @accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com", "a1@a.com"]]
+        Any["a1@a.com", "a2@a.com", "a3@a.com"]
+        Any["b1@b.com"]
+
+PS G:\Projects\Perl\Challenges> julia .\MergeAccount.jl
+Input: @accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com"], ["B", "b2@b.com", "b1@b.com"]]
+        Any["a1@a.com", "a2@a.com", "a3@a.com"]
+        Any["b1@b.com", "b2@b.com"]
+------------------------------------------------------
+=#
+
+
diff --git a/challenge-209/robert-dicicco/python/ch-2.py b/challenge-209/robert-dicicco/python/ch-2.py
new file mode 100644
index 0000000000..67c03bf220
--- /dev/null
+++ b/challenge-209/robert-dicicco/python/ch-2.py
@@ -0,0 +1,56 @@
+#!/usr/bin/env python
+'''
+-----------------------------------------------------------
+AUTHOR: Robert Dicicco
+DATE  : 2023-03-26
+Challenge 209 Merge Account ( Python )
+-----------------------------------------------------------
+'''
+
+#accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com", "a1@a.com"]]
+accounts = [ ["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com"], ["B", "b2@b.com", "b1@b.com"] ]
+
+a = []
+b = []
+
+def unique(list1):
+    unique_list = []
+    for x in list1:
+        if x not in unique_list:
+            unique_list.append(x)
+    print("\t",unique_list)
+
+print(f"Input: @accounts = {accounts}")
+for sub in accounts:
+
+    if sub[0] == "A":
+        for x in sub:
+            #print(x)
+            a.append(x)
+    elif sub[0] == "B":
+        for x in sub:
+            #print(x)
+            b.append(x)
+print("Output: ")
+unique(a)
+unique(b)
+print(" ")
+
+'''
+-----------------------------------------------------------
+SAMPLE OUTPUT
+python .\MergeAccount.py
+Input: @accounts = [['A', 'a1@a.com', 'a2@a.com'], ['B', 'b1@b.com'], ['A', 'a3@a.com', 'a1@a.com']]
+Output:
+         ['A', 'a1@a.com', 'a2@a.com', 'a3@a.com']
+         ['B', 'b1@b.com']
+
+PS G:\Projects\Perl\Challenges> python .\MergeAccount.py
+Input: @accounts = [['A', 'a1@a.com', 'a2@a.com'], ['B', 'b1@b.com'], ['A', 'a3@a.com'], ['B', 'b2@b.com', 'b1@b.com']]
+Output:
+         ['A', 'a1@a.com', 'a2@a.com', 'a3@a.com']
+         ['B', 'b1@b.com', 'b2@b.com']
+-----------------------------------------------------------
+'''
+
+
diff --git a/challenge-209/robert-dicicco/ruby/ch-2.rb b/challenge-209/robert-dicicco/ruby/ch-2.rb
new file mode 100644
index 0000000000..3d22ad6eba
--- /dev/null
+++ b/challenge-209/robert-dicicco/ruby/ch-2.rb
@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+=begin
+----------------------------------------------------------
+AUTHOR: Robert DiCicco
+DATE  : 2023-03-26
+Challenge 209 Merge Account ( Ruby )
+----------------------------------------------------------
+=end
+
+accounts = [["A", "a1\@a.com", "a2\@a.com"], ["B", "b1\@b.com"], ["A", "a3\@a.com", "a1\@a.com"]]
+#accounts = [ ["A", "a1\@a.com", "a2\@a.com"], ["B", "b1\@b.com"], ["A", "a3\@a.com"], ["B", "b2\@b.com", "b1\@b.com"] ]
+puts("Input: @accounts = #{accounts}")
+a = Array.new()
+b = Array.new()
+accounts.each do |sub|
+    if (sub[0] == 'A')
+        sub.each do |x|
+            a.push(x)
+        end
+    end
+    if (sub[0] == 'B')
+        sub.each do |y|
+            b.push(y)
+        end
+    end
+end
+
+puts("Output: ")
+puts("\t#{a.uniq}")
+puts("\t#{b.uniq}")
+
+=begin
+----------------------------------------------------------
+SAMPLE OUTPUT
+ruby .\MergeAccount.rb
+Input: @accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com", "a1@a.com"]]
+Output:
+        ["A", "a1@a.com", "a2@a.com", "a3@a.com"]
+        ["B", "b1@b.com"]
+
+
+PS G:\Projects\Perl\Challenges> ruby .\MergeAccount.rb
+Input: @accounts = [["A", "a1@a.com", "a2@a.com"], ["B", "b1@b.com"], ["A", "a3@a.com"], ["B", "b2@b.com", "b1@b.com"]]
+Output:
+        ["A", "a1@a.com", "a2@a.com", "a3@a.com"]
+        ["B", "b1@b.com", "b2@b.com"]
+----------------------------------------------------------
+=end
+
+