sol_85 size lim = minimumBy (compare `on` snd) res
  where res = [(i*j, abs (lim - (crec i j))) | i <- [1..size], j <- [1..size]]

-- ELAPSED TIME 30 SECONDS!!
sol_85 size lim = minimumBy (compare `on` snd) res
  where res = [(i*j, abs (lim - (crec i j))) | i <- [1..size], j <- [1..size]]

-- ELAPSED TIME 30 SECONDS!!
sol_85 size lim = minimumBy (compare `on` snd) res
  where res = [(i*j, abs (lim - (crec i j))) | i <- [1..size], j <- [1..size]]

-- ELAPSED TIME 30 SECONDS!!