Задача . E. Оптимизировать!

Манао решает задачу со следующим условием:

Он придумал решение, которое выдает правильные ответы, но работает слишком медленно. Вам дан псевдокод его решения, где функция getAnswer вычисляет ответ на задачу:

getAnswer(a[1..n], b[1..len], h)
  answer = 0
  for i = 1 to n-len+1
    answer = answer + f(a[i..i+len-1], b, h, 1)
  return answer

f(s[1..len], b[1..len], h, index)
  if index = len+1 then
    return 1
  for i = 1 to len
    if s[index] + b[i] >= h
      mem = b[i]
      b[i] = 0
      res = f(s, b, h, index + 1)
      b[i] = mem
      if res > 0
        return 1
  return 0

Ваша задача — помочь Манао прооптимизировать его алгоритм.