;; GROUP_29_2022510088_2022510126.lsp
(defvar p1 '(6 148 72 35 0 33.6 0.627 50))
(defvar p2 '(1 85 66 29 0 26.6 0.351 31))

(defun euclidean-distance (list1 list2)
  (sqrt (loop for x in list1
              for y in list2
              sum (expt (- x y) 2))))

(format t "Euclidean Distance: ~f~%" (euclidean-distance p1 p2))