about summary refs log tree commit diff
path: root/2ndary/11/Q-2017/cau1.scm
blob: 5e59c49651191d0b0055c3f6fcfb7d0693c89cfd (plain) (blame)
1
2
3
4
5
6
7
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))))))