Merge pull request #5599 from Abigail/abigail/week-150

Abigail/week 150

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-150/abigail/ruby/ch-1.rb b/challenge-150/abigail/ruby/ch-1.rb
new file mode 100644
index 0000000000..137545d9f8
--- /dev/null
+++ b/challenge-150/abigail/ruby/ch-1.rb
@@ -0,0 +1,17 @@
+#!/usr/bin/ruby
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-150
+#
+ 
+#
+# Run as: ruby ch-1.rb < input-file
+#
+
+ARGF . each_line do |line|
+    fib_prev, fib_last = line . strip() . split(" ")
+    while fib_last . length < 51 do
+        fib_prev, fib_last = fib_last, fib_prev + fib_last
+    end
+    puts (fib_last [50])
+end
diff --git a/challenge-150/abigail/ruby/ch-2.rb b/challenge-150/abigail/ruby/ch-2.rb
new file mode 100644
index 0000000000..5ecfdb6f3f
--- /dev/null
+++ b/challenge-150/abigail/ruby/ch-2.rb
@@ -0,0 +1,24 @@
+#!/usr/bin/ruby
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-150
+#
+ 
+#
+# Run as: ruby ch-2.rb
+#
+
+primes = [2, 3, 5, 7, 11, 13, 17, 19]
+for n in 1 .. 500 do
+    has_square = false
+    for p in 0 .. 7 do
+        if n % (primes[p] * primes[p]) == 0 then
+            has_square = true
+        end
+    end
+    if !has_square then
+        print (n)
+        print (" ")
+    end
+end
+print ("\n")