ovitus

Untitled

Dec 9th, 2022
21
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. allSums :: [Int] -> [Int]
  2. allSums [] = [0]
  3. allSums (x:xs) = do
  4. term <- [x,0]
  5. sum <- allSums xs
  6. pure $ term + sum
Advertisement
Add Comment
Please, Sign In to add comment