+++ /dev/null
-import "Prelude"\r
-\r
-dists l = sum [sqrt (dx*dx + dy*dy) \r
- | i <- [0..length l-2]\r
- , (x1,y1) = l!i\r
- , (x2,y2) = l!(i+1)\r
- , dx = x1-x2\r
- , dy = y1-y2 ]\r
- \r
-main = dists [(0,0),(1,1),(2,0)]\r
--- \r
-2.8284271247461903
\ No newline at end of file