隣り合う二項の差です。 main = do print $ diff [3, 1, 4, 1, 5, 9, 2, 6, 5] diff :: [Int] -> [Int] diff [] = [] diff (_:[]) = [] diff (x:xs) = (head xs - x) : (diff xs)