r
Size: a a a
r
DS
sumState :: (Num a) => [a] -> a
sumState xs = flip evalState 0 $ do
for_ xs $ \x -> do
n <- get
put (n + x)
get
DS
DS
p
p
G
p
r
sumState :: (Num a) => [a] -> a
sumState xs = flip evalState 0 $ do
for_ xs $ \x -> do
n <- get
put (n + x)
get
А⚙
DS
DS
AZ
r
DS
p
G
p
DS