Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (5 sloc) 247 Bytes
square_sum :: [Int] -> Int
square_sum xs = foldr (\x y -> x * x + y) 0 xs
square_sum' = foldr (\x y -> x * x + y) 0
square_sum'' = foldr (curry (\xs -> (+) ((product . ((replicate 2) . fst)) xs) (snd xs))) 0
square_sum''' = zip (replicate 2)
Something went wrong with that request. Please try again.