mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 22:38:04 +02:00
12 lines
No EOL
215 B
Haskell
12 lines
No EOL
215 B
Haskell
summer :: [Int] -> Int
|
|
summer = foldr (-) 0
|
|
|
|
summel :: [Int] -> Int
|
|
summel = foldl (-) 0
|
|
|
|
main :: IO ()
|
|
main = do
|
|
print (summer [1,2,3])
|
|
-- 0-(1-(2-3)) = 0-(1-(-1)) = 2
|
|
print (summel [1,2,3])
|
|
-- ((0-1)-2)-3 = -6 |