Feeling lazy

s.hs

main :: IO()
main = do
  putStrLn $ show result
    where result = sum $ take 100000 (zipWith (*) [2,4..] [1,3..])

s.rb

RANGE = 1..Float::INFINITY

def evens
  RANGE.lazy.select(&:even?)
end

def odds
  RANGE.lazy.select(&:odd?)
end

def solution
  evens.zip(odds).map { |x, y| x * y }.take(100_000).reduce(:+)
end

p solution