Week 147: Ruby solutions

2 files changed, 79 insertions, 0 deletions

diff --git a/challenge-147/abigail/ruby/ch-1.rb b/challenge-147/abigail/ruby/ch-1.rb
new file mode 100644
index 0000000000..0e0eaffc4b
--- /dev/null
+++ b/challenge-147/abigail/ruby/ch-1.rb
@@ -0,0 +1,49 @@
+#!/usr/bin/ruby
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+ 
+#
+# Run as: ruby ch-1.rb
+#
+
+require 'prime'
+
+todo = [2, 3, 5, 7];
+
+todo . each do
+    | x |
+    print (x . to_s + " ")
+end
+
+count = 20 - todo . length
+
+pow = 10
+while todo . length > 0 && count > 0 do
+    new_todo = []
+    for d in 1 .. 9 do
+        todo . each do
+            | p |
+            candidate = d * pow + p
+            if (Prime . prime? (candidate)) then
+                new_todo . push (candidate)
+                print (candidate . to_s + " ")
+                count = count - 1
+                if (count <= 0) then
+                    break
+                end
+            end
+            if (count <= 0) then
+                break
+            end
+        end
+        if (count <= 0) then
+            break
+        end
+    end
+    pow = pow * 10
+    todo = new_todo
+end
+
+puts ("")
diff --git a/challenge-147/abigail/ruby/ch-2.rb b/challenge-147/abigail/ruby/ch-2.rb
new file mode 100644
index 0000000000..a3dbb601cc
--- /dev/null
+++ b/challenge-147/abigail/ruby/ch-2.rb
@@ -0,0 +1,30 @@
+#!/usr/bin/ruby
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+#
+ 
+#
+# Run as: ruby ch-2.rb
+#
+
+pentagon = {}
+p = 0
+n = 0
+done = false
+
+
+while not done do
+    p = p + n + n + n + 1
+    n = n + 1
+    pentagon [p] = true
+    pentagon . each do
+        | seen, _ |
+        if (seen + seen <= p && pentagon . key?(p - seen) \
+                             && pentagon . key?(p - seen - seen)) then
+            puts (seen . to_s + " " + (p - seen) . to_s)
+            done = true
+            break
+        end
+    end
+end