Guest User

Untitled

a guest
Feb 19th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. problem6 = let ss1 = sum $ map (\x -> x * x) [1 .. 100]
  2. ss2 = (sum [1 .. 100]) * (sum [1 .. 100])
  3. in ss2 - ss1
Add Comment
Please, Sign In to add comment