From 661f8268419e2961d06828b9625e90cd47b18f2f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 15:02:25 -0500
Subject: solution to 57

---
 057.bc | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 057.bc

(limited to '057.bc')

diff --git a/057.bc b/057.bc
new file mode 100644
index 0000000..3ef738c
--- /dev/null
+++ b/057.bc
@@ -0,0 +1,18 @@
+#!/usr/bin/bc
+
+scale = 0
+numer = 1
+denom = 2
+count = 0
+for (iter = 0; iter < 1000; iter++) {
+    real_numer = numer + denom
+    if (length(real_numer) > length(denom)) {
+        dummy = count++
+    }
+    numer += denom * 2
+    tmp = numer
+    numer = denom
+    denom = tmp
+}
+count
+halt
-- 
cgit v1.2.3