odd2sum

odd2sum1.scm

(define (odd n) (if (= (modulo n 2) 1) #t #f))
(define (sum2 n) (if (= n 1) 1
                    (+  (sum2 (- n 2)) (* n n))))
(define (odd2sum1 n) (if (odd n) (sum2 n)
                         (sum2 (- n 1))))

odd2sum2.scm

(define (upsum2 n m l) (if (> n m) l
                        (upsum2 (+ n 2) m (+ l (* n n)))))
(define (odd2sum2 n) (upsum2 1 n 0))

odd2sum3.scm

(define (odd2sum3 n) (let ((m (floor (/ (+ n 1) 2)))) (/ (* m (- (* 4 m m) 1)) 3)))