blob: 33a154b93b8c80aeec7b09f63c74a8b7ce675dae (
plain) (
blame)
1
2
3
4
5
|
(define (angel-90 a b c)
((lambda (x) (if (= x 0) 0 (/ x (abs x)))) (+ (* a a) (* b b) (- (* c c)))))
(display (let ((a (read)) (b (read)) (c (read)))
(modulo (* (angel-90 a b c) (angel-90 b c a) (angel-90 c a b)) 3)))
(newline)
|
