about summary refs log tree commit diff
path: root/11/Q-2017/cau1.scm
diff options
context:
space:
mode:
Diffstat (limited to '11/Q-2017/cau1.scm')
-rw-r--r--11/Q-2017/cau1.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/11/Q-2017/cau1.scm b/11/Q-2017/cau1.scm
new file mode 100644
index 0000000..5e59c49
--- /dev/null
+++ b/11/Q-2017/cau1.scm
@@ -0,0 +1,8 @@
+(define (cau1 n i)
+  (cond ((> (* i i) n) 0)
+        ((= (* i i) n) 1)
+        ((= (remainder n i) 0) (+ (cau1 n (+ i 1)) 2))
+        (else (cau1 n (+ i 1)))))
+(with-input-from-file "CAU1.INP" (lambda ()
+  (with-output-to-file "CAU1.OUT" (lambda ()
+    (format #t "~a\n" (cau1 (read) 1))))))