Added Golden Ratio Calculator goodie

golden_ratio/goodie.pl

@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict; 
+ 
+# Calculates the Golden Ratio A:B given either A or B.
+
+if ($q_check_lc =~ m/^golden ratio (?:(?:(\?)\s*:\s*(\d+(?:\.\d+)?))|(?:(\d+(?:\.\d+)?)\s*:\s*(\?)))$/i) {
+  my $golden_ratio = (1 + sqrt(5)) / 2;
+  my $result = 0; 
+   
+  if ($1 && $1 eq "?") {
+    # ? : x
+    $result = $2 / $golden_ratio;
+    $answer_results = "$result : $2";
+  } elsif ($4 && $4 eq "?") {
+    # x : ? 
+    $result = $3 * $golden_ratio; 
+    $answer_results = "$3 : $result";
+  } 
+  
+  $answer_type = "goldenratio";
+  $is_memcached = 1;   
+} 
+

golden_ratio/queries.txt

@@ -0,0 +1,14 @@
+golden ratio 1:?
+golden ratio 2.5:?
+golden ratio 450:?
+golden ratio 900:?
+golden ratio 1024.56:?
+golden ratio ?:900
+golden ratio ?:768.5
+golden ratio ?:1680.12345678
+golden ratio 1 : ?
+golden ratio 1 :?
+golden ratio 1: ?
+golden ratio ? : 9
+golden ratio ? :9
+golden ratio ?: 9