oddSquareSum :: Integer
oddSquareSum =
let oddSquares = filter odd $ map (^2) [1..]
belowLimit = takeWhile (<10000) oddSquares
in sum belowLimit
--extra code to print the list of integers
show belowLimit
oddSquareSum :: Integer
oddSquareSum =
let