(1)
((lambda (x y z)
    (define m1 (/ (+ x y z) 3))
    (define m2 (/ (+ (* x x) (* y y) (* z z)) 3))
    (- m2 (* m1 m1)))
  3 4 5)

(2)
(define variance3
    (lambda (x y z)
        (define m1 (/ (+ x y z) 3))
        (define m2 (/ (+ (* x x) (* y y) (* z z)) 3))
        (- m2 (* m1 m1))))

(3)
(variance3 6 7 8)

(define sign-if
    (lambda (x)
        (if (> x 0) 'plus
            (if (< x 0) 'minus 'zero))))

(define sign-cond
    (lambda (x)
        (cond ((> x 0) 'plus)
              ((< x 0) 'minus)
              (else 'zero))))