fork download
copy 
  1. ;; GROUP_29_2022510088_2022510126.lsp
  2. (defvar p1 '(6 148 72 35 0 33.6 0.627 50))
  3. (defvar p2 '(1 85 66 29 0 26.6 0.351 31))
  4.  
  5. (defun euclidean-distance (list1 list2)
  6.   (sqrt (loop for x in list1
  7.               for y in list2
  8.               sum (expt (- x y) 2))))
  9.  
  10. (format t "Euclidean Distance: ~f~%" (euclidean-distance p1 p2))
Success #stdin #stdout 0.01s 27816KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Euclidean Distance: 66.90348
https://ideone.com/HVP7Gi
language:
Common Lisp (sbcl 1.4.16)
created:
17 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!