Clojure: превышен лимит gc, отложенная оценка, последовательность pi - PullRequest
Новая
       31

Clojure: превышен лимит gc, отложенная оценка, последовательность pi

5 голосов
/ 17 октября 2010

Для следующего кода: 

(ns clojure101.series)

(defn avg [[x y]] (/ (+ x y) 2))

(defn avg-damp
  [seq]
  (map avg (partition 2 seq)))

(defn avg-damp-n
  [n]
  (apply comp (repeat n avg-damp)))

(defn sums
  [seq]
  (reductions + seq))

(defn Gregory-Leibniz-n
  [n]
  (/ (Math/pow -1 n) (inc (* 2 n))))

(def Gregory-Leibniz-pi
     (map #(* 4 (Gregory-Leibniz-n %)) (iterate inc 0)))

(println (first ((avg-damp-n 10) (sums Gregory-Leibniz-pi))))

Я получаю сообщение об ошибке "превышение лимита gc превышено" для n = 20. Как я могу это исправить?

ОБНОВЛЕНИЕ : Я изменил функцию AVG-Dump-N 

(defn avg-damp-n
  [n seq]
  (if (= n 0) seq
      (recur (dec n) (avg-damp seq))))

теперь я могу получить номер для n = 20 

(time
 (let [n 20]
   (println n (first (avg-damp-n n (sums Gregory-Leibniz-pi))))))

20 3.141593197943081
"Elapsed time: 3705.821263 msecs"

ОБНОВЛЕНИЕ 2 Я исправил некоторую ошибку, и теперь она работает просто отлично: 

(ns clojure101.series)

(defn avg [[x y]] (/ (+ x y) 2))

(defn avg-damp
  [seq]
  (map avg (partition 2 1 seq)))

(defn avg-damp-n
  [n]
  (apply comp (repeat n avg-damp)))

(defn sums
  [seq]
  (reductions + seq))

(defn Gregory-Leibniz-n
  [n]
  (/ (int (Math/pow -1 n)) (inc (* 2 n))))

(def Gregory-Leibniz-pi
     (map #(* 4 (Gregory-Leibniz-n %)) (range)))

; π = 3.14159265358979323846264338327950288419716939937510...

(time
 (let [n 100]
   (println n (double (first ((avg-damp-n n) (sums Gregory-Leibniz-pi)))))))

ВЫВОД: 

100 3.141592653589793
"Elapsed time: 239.253227 msecs"

Ответы [ 3 ]

3 голосов
/ 18 октября 2010

Как сказал Котарак, наложение ленивых секвенций на ленивые секвенции кажется довольно неэффективным в отношении GC.Я мог бы воспроизвести эту проблему в системе с медленным атомом.См. Также:

Ошибка java.lang.OutOfMemoryError: Превышен предел накладных расходов GC

Для меня Gregory-Leibniz PI Caclulation напрямую преобразуется в этот код Clojure, в котором используется только один ленивыйпоследовательность: 

(defn Gregory-Leibniz-pi [n]
  (->> (range n)
       (map (fn [n] (/ (Math/pow -1 n) (inc (* 2 n)))))
       (apply +)
       (* 4)))
2 голосов
/ 18 октября 2010

Хм ... Это работает для меня. Протестировано с Clojure 1.2 в Windows XP. 

user=> (defn avg
         [xs & {:keys [n] :or {n 2}}]
         (/ (reduce + xs) n))
#'user/avg
user=> (defn Gregory-Leibniz-n
         [n]
         (/ (Math/pow -1 n) (inc (+ n n))))
#'user/Gregory-Leibniz-n
user=> (->> (range)
         (map #(* 4 (Gregory-Leibniz-n %)))
         (reductions +)
         (partition 20)
         (map #(avg % :n 20))
         first
         println)
3.1689144018345354

Это правильный ответ? Я не знаю эту рекурсию Григория-Лейбница, так что я не уверен, правильно ли это.

Я заметил одно замечание: вы пытаетесь быть слишком умным. А именно твой средний-дамп-н стеки ленивый seq на ленивый seq. Поскольку вы можете подключить произвольные значения n, вы рано или поздно также столкнетесь с переполнением стека для больших n в такой сценарий. Если есть простое решение, вы должны предпочесть Это. Я не уверен, что это ваша настоящая проблема, хотя. (Как я уже сказал: скорее бесполезно у меня работает.)

2 голосов
/ 18 октября 2010

Прежде всего, попробуйте глупое решение, которое работает: увеличьте пространство кучи Java. 

;in your clojure launch script
java -Xmx2G ...other options...

Есть одна часть программы, которая не ленится в разделе, но изменяет его так, чтобыЛенивый (избавившись от вызова count) по-прежнему дает мне OutOfMemoryError для размера кучи по умолчанию.Замена хитрости avg-dump-n на среднее значение, вычисленное по уменьшению на 

(take (integer-exponent 2 20) seq)

, по-прежнему вызывает ошибку OutOfMemoryError.Глядя на источник всего остального, я не вижу других вещей, которые выглядят так, как будто они потребляют кучу.

...