From 2468c60b00b200b24a383ecc0fdc5d3cf8721b9f Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Sun, 5 Mar 2017 16:36:48 +0700 Subject: Add 11/Q-2017 --- 11/Q-2017/cau1.scm | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 11/Q-2017/cau1.scm (limited to '11/Q-2017/cau1.scm') 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)))))) -- cgit 1.4.1