Оптимизация в GHC

> запуске он уходит в рекурсию

С чего ты взял? Кинь сюда исходник.

combinations variants n
  | n == 1    = map (:[]) variants
  | otherwise = [ x : y | x <- variants, y <- combinations variants (n-1) ]

solveThisShit theData ans =
  [ comb | comb <- combinations [1,0,-1] (length theData), ans == mulAndSum theData comb ]
  where mulAndSum xs ys = sum [ x*y | (x,y) <- zip xs ys ]

main = print $ solveThisShit shit ans
       where
       shit = [245,12,14,27,20,13,31,3,16,221,18,21,26,19,56,72,33,16]
       ans = 380

-- У меня ел 800 метров памяти, легко, пока его не убивало ядро или ^C.