From 12b78407f3ce4d6ee5f67fb0c6ce5c754cf78a58 Mon Sep 17 00:00:00 2001
From: Iru Cai <mytbk920423@gmail.com>
Date: Sun, 27 May 2018 13:25:10 +0800
Subject: 57, 59, 67, 206

---
 euler57.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 euler57.scm

(limited to 'euler57.scm')

diff --git a/euler57.scm b/euler57.scm
new file mode 100644
index 0000000..aa8972a
--- /dev/null
+++ b/euler57.scm
@@ -0,0 +1,17 @@
+(define (expension n)
+ (define (e n)
+  (if (= n 1) (/ 1 2)
+   (/ 1 (+ 2 (e (- n 1))))))
+ (+ 1 (e n)))
+
+(define (digits n)
+ (if (< n 10) 1 (+ 1 (digits (quotient n 10)))))
+
+(define (solve n)
+ (if (= n 0) 0
+  (+ (solve (- n 1))
+   (let ((t (expension n)))
+	(if (> (digits (numerator t)) (digits (denominator t))) 1 0)))))
+
+(display (solve 1000))
+(newline)
-- 
cgit v1.2.3