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