Maximum difference between adjacent elements of list: Difference between revisions

Content added Content deleted

Inline

@@ Line 51: / Line 51: @@
 import Data.Ord (comparing)
-maxDelta :: [Float] -> [(Float, (Float, Float))]
+maxDeltas :: [Float] -> [(Float, (Float, Float))]
-maxDelta xs = filter ((delta ==) . fst) pairs
+maxDeltas xs = filter ((delta ==) . fst) pairs
   where
     pairs =
@@ Line 64: / Line 64: @@
 main =
   mapM_ print $
-    maxDelta [1, 8, 2, -3, 0, 1, 1, -2.3, 0, 5.5, 8, 6, 2, 9, 11, 10, 3]</lang>
+    maxDeltas [1, 8, 2, -3, 0, 1, 1, -2.3, 0, 5.5, 8, 6, 2, 9, 11, 10, 3]</lang>
 {{Out}}
 <pre>(7.0,(1.0,8.0))