Move History

Rooted by: Add numbers of an array
Fork Selected
  • Code 
    module AddNumbers where
import Data.Monoid( Sum(..) )

add_arr :: [Int] -> Int
add_arr = getSum . foldMap Sum
     Test Cases 
    module AddNumbersSpec where

import Test.Hspec
import AddNumbers

spec :: Spec
spec = do
    describe "add_arr" $ do
        it "1..9" $ do
            (add_arr [1..9]) `shouldBe` (45)
        it "1..3,-4,5..9" $ do
            (add_arr [1,2,3,-4,5,6,7,8,9]) `shouldBe` (37)
    View Run Output
  • Code
    • module AddNumbers where
    • add_arr x = sum x
    • import Data.Monoid( Sum(..) )
    • add_arr :: [Int] -> Int
    • add_arr = getSum . foldMap Sum