Уборка мусора после вычислений в HomeLisp

@rombva · Регистрация: 29.10.2016

Студворк — интернет-сервис помощи студентам

После запуска программы рисования случайных точек для параметра >=20000 сборка мусора занимает заметное время. Что в программе приводит к такому расходу памяти?

Можно ли как-нибудь её переделать так, чтобы она меньше мусорила?

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(defun test(c)
    (prog (i w h x y)
        (setq w 400)
        (setq h 400)
        (grwCreate 's w h "Случайные точки" _WHITE)
        (grwShow 's)
        (dotimes (i c t)
            (pshow (* 100. (/ i c)) "Рисую...")
            (setq x (RND w))
            (setq y (RND h))
            (grwPset 's x y _BLACK)
        )
        (phide)
        (sleep* 5000)
        (grwHide 's)
        (grwDestroy 's)
    )
)

@rombva · 30.10.2016, 11:34 **[ТС]**

Файл с программой

@Catstail · 30.10.2016, 13:26

Как ни странно, главный вклад даёт pshow. Рекомендую вызывать pshow не на каждом витке внутреннего цикла, а на каждом тысячном (или вообще отказаться от ее вызова):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun test(c)
    (prog (i w h x y)
        (setq w 400)
        (setq h 400)
        (grwCreate 's w h "Случайные точки" _WHITE)
        (grwShow 's)
        (dotimes (i c t)
            (when (zerop (% i 1000))(pshow (* 100. (/ i c)) "Рисую..."))
            (setq x (RND w))
            (setq y (RND h))
            (grwPset 's x y _BLACK)
        )
        (phide)
        (sleep* 5000)
        (grwHide 's)
        (grwDestroy 's)))

Создается примерно вдвое меньше "мусорных" атомов - соответственно и заметно сокращается время уборки мусора.

@rombva · 30.10.2016, 15:51 **[ТС]**

Огорчает то, что даже пустой цикл использует столько же памяти, сколько и вариант БЕЗ pshow. Например, при c=20000 утилизируется 19986 атомов.

Lisp
1
2
3
4
5
6
7
(defun test2(c)
    (prog (i)
        (dotimes (i c t)
            ()
        )
    )
)

@_Ivana · 30.10.2016, 15:55

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

@Catstail · 30.10.2016, 16:05

rombva, если сделать exe-файл, то сборка мусора становится незаметной.

@Catstail · 30.10.2016, 16:06

_Ivana, увы. Этого (оптимизации хвостовой рекурсии) пока нет.

@rdt · 31.10.2016, 12:49

rombva, попробуйте периодически вызывать функцию "gc" (эта функция запускает сборку мусора):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun test(c)
    (prog (i w h x y)
        (setq w 400)
        (setq h 400)
        (grwCreate 's w h "Случайные точки" _WHITE)
        (grwShow 's)
        (dotimes (i c t)
            (when (zerop (% i 1000))(pshow (* 100. (/ i c)) "Рисую...") (gc))
            (setq x (RND w))
            (setq y (RND h))
            (grwPset 's x y _BLACK)
        )
        (phide)
        (sleep* 5000)
        (grwHide 's)
        (grwDestroy 's)))

@Catstail · 31.10.2016, 13:09

Кстати, да можно периодически (но не слишком часто) вызывать gc явно.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@_Ivana 4949 / 2289 / 287 Регистрация: 01.03.2013 Сообщений: 5,991 Записей в блоге: 32
	30.10.2016, 15:55
	rombva, автор HomeLisp конечно лучше подскажет, но я бы на вашем месте ради любопытства попробовал вместо подобных макросов реализовать цикл через хвостовую рекурсию - она может быть оптимизирована в данной реализации языка. 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,740 Записей в блоге: 14
	30.10.2016, 16:06
	_Ivana, увы. Этого (оптимизации хвостовой рекурсии) пока нет. 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,740 Записей в блоге: 14
	31.10.2016, 13:09
	Кстати, да можно периодически (но не слишком часто) вызывать gc явно. 0

Уборка мусора после вычислений в HomeLisp

Решение