Rosetta Code

Maximum difference between adjacent elements of list: Difference between revisions

Page Discussion

Maximum difference between adjacent elements of list (view source)

Revision as of 16:21, 18 July 2021

3 bytes added ,  2 years ago
m
→‎{{header|Haskell}}
m (→‎{{header|Haskell}}: Added a Haskell draft)
Line 51:
import Data.Ord (comparing)
 
maxDeltamaxDeltas :: [Float] -> [(Float, (Float, Float))]
maxDeltamaxDeltas xs = filter ((delta ==) . fst) pairs
where
pairs =
Line 64:
main =
mapM_ print $
maxDeltamaxDeltas [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))
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/313686"