prog/gnu/guile/math/math.scm

(define-module (math))

;; hopefully this module will provide some procedures to calculate
;; various mathematical formulas

(define (double x)
  (* x x))

(define (distance-xy-points (a b))
  (let ([x1 (car a)]
        [x2 (car b)]
        [y1 (car (cdr a))]
        [y2 (car (cdr b))])
    (sqrt (+ (double (abs (- x1 x2)))
             (double (abs (- y1 y2)))))))