From 394121b98178246a0b1063e9104f8878cf2a17e5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 14 May 2009 19:06:54 -0500
Subject: add solution for problem 25

---
 25.bc | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 25.bc

diff --git a/25.bc b/25.bc
new file mode 100644
index 0000000..143e6c3
--- /dev/null
+++ b/25.bc
@@ -0,0 +1,29 @@
+#!/usr/bin/bc
+
+scale = 20
+phi = (1 + sqrt(5)) / 2
+loglimit = 1000 - 1 + l(sqrt(5))/l(10)
+
+scale = 0
+n = 1
+min = -1
+max = -1
+while (1) {
+    print n, " (", min, ", ", max, ")\n"
+    scale = 20
+    if (l(phi^n - (1 - phi)^n)/l(10) > loglimit) {
+        max = n
+    } else {
+        min = n
+    }
+    scale = 0
+    if (max - min == 1) {
+        max
+        halt
+    }
+    if (max == -1) {
+        n *= 2
+    } else {
+        n = (max + min) / 2
+    }
+}
-- 
cgit v1.2.3