Арифметическая прогрессия

sumArithmetic :: Integer -> Integer -> Integer -> Integer
--a - первый член последовательности, d - разность, n - количество первых членов последовательности
sumArithmetic a d n | (n == 1) = a
sumArithmetic a d n | (n == 0) = 0
                              | otherwise = a + (sum (a+d) d (n-1))
main :: IO ()
main =  do print(sumArithmetic 1 2 10)

sumArithmetic a d = go 0 a
    where go r x n | n <= 0 = r
                   | otherwise = go (r+x) (x+d) (n-1)

sumArithmetic a d n = (2*a+d*(n-1)) `div` 2 * n

import Data.List
 
sumArithmetic :: Integer -> Integer -> Integer -> Integer
--a - первый член последовательности, d - разность, n - количество первых членов последовательности
sumArithmetic a d n = sum $ genericTake n [a,a+d..]

sumArithmetic a d n = go a d n 0 
  where
    go a d n res 
      | n > 0 = go (res + a) d (n - 1) (res + a)
      | otherwise = res

    | n > 0 = go (res + d) d (n - 1) (res + a)

sumArithmetic'' :: Integer -> Integer -> Integer -> Integer
sumArithmetic'' a d n = go a d n 0
  where
    go a d n res
      | n > 0 = go (a + d * (n - 1)) d (n - 1) (res + a)
      | otherwise = res

sumArithmetic''' a d n = sum [ a + d * y | y <- [1..n] ]

sumArithmetic''' a d n = sum [ a + d * y | y <- [1..n-1] ] + a

sumArithmetic''' a d n = sum [ a + d * y | y <- [0..n-1] ]

sumArr :: Integer -> Integer -> Int -> Integer
sumArr d a n = foldr (+)  0  $ take n [a,a+d..]

sumArr a d n = foldl ((\a d acc n -> acc + d * n + a) a d) 0 [0..n-1]

*Main> sumArr 1 1 10
55
*Main> sum [1..10]
55
*Main> sumArr 2 1 10
100
*Main> sum [1,3,5,7,9,11,13,15,17,19]
100