PROGRAMMING CHALLENGE

This one should be difficult enough for you guys,

Write a function foo that takes a number n and returns a function that takes a number i, and returns n incremented by i.


My submission, in Scheme


(define (foo num)
  (lambda (x) (+ x num)))

>>68
right, should be

foo :: (Num a) => a -> (a -> a)
foo n = \x -> x + n
started with haskell just a few days ago