@asmer's blog

asmer - (defun filtered (&optional (filter-co...

Sat, 30 Jun 2012 06:35:06 GMT

lisp, ?, code

(defun filtered (&optional (filter-condition t))
(maphash #'(lambda (k v)
(if (eval filter-condition)
(out-object v)))
*list*)

я правильно, понял, нет способа передать условие, которое проверяет k или v в эту функцию(так как filter-condition не находится в лексическом окружении k и v). Такое можно сделать только макросом (с подстановкой условия) или функцией вместо условия?

http://asmer.psto.net/ongstt

asmer - Всякие наблюдения о CL: сделал элемен...

Sat, 30 Jun 2012 03:29:08 GMT

lisp, говно, ?

Всякие наблюдения о CL:
сделал элементарный REPL, и он, зараза, выводил результат формы только после ввода следующей. Говно. Починилось (force-output).

Долго думал чем как можно сделать хранение данных на диске. Вариантов вроде много: можно писать формы print with-standard-io-syntax и читать их. Можно заюзать какой-нибудь интерфейс к СУБД. Можно какую-нибудь object persistence библиотеку. Но:
print не прокатил с объектами;
elephant не работает с sbcl 1.0.55;
sql и база в нагрузку мне не подходят;
либы старые как говно мамонта и мало поддерживаемые;
итого: заюзал пока cl-prevalence, по-крайней мере оно пишет и оно читается. Если что можно будет отловить swizard-а, взять его форк и поспрашивать.

Захотелось проитерировать слоты объекта. Опять какие-то костыли типа closer-mop:compute-slots, причем возвращают они объекты-слоты, типы которых насколько я понял привязаны к реализации. А захотелось мне этого из-за того, что родной format (насколько я понял) не умеет выводить поля объекта итеративно (~{~}).

Я уже молчу, что в aref вначале список, потом индекс, а в nth наоборот. С gethash и slot-value ситуация аналогичная. Многие жалуются на бардак в стандартной библиотеке PHP, но тут я особого порядка тоже не наблюдаю.

Кстати, а есть какие обобщающие функции/макросы/библиотеки, которые сами подставят правильный map/accessor/еще что по типу данных?

http://asmer.psto.net/ongsoi

asmer - решил я побаловаться с css-selectors ...

Fri, 15 Jun 2012 05:15:54 GMT

lisp, cxml, css-selectors, ?

решил я побаловаться с css-selectors https://github.com/AccelerationNet/css-s... Вроде работает, только я незнаю что делать с RUDE-DOM::ELEMENT. Как из него чего выковырять? Гуглеж ничего особо не дал :(

http://asmer.psto.net/onfnto

asmer - Решил я побаловаться с большими объем...

Fri, 01 Jun 2012 00:46:14 GMT

lisp, benchmark, nosql, sql

Решил я побаловаться с большими объемами данных в sbcl. Взял лог, откусил от него 1 250 000 строк и попарсил их.

Парсер cl-ppcre
Код читает файл, выкуривает оттуда дату/время, процесс, пид, хост и сообщение, записывает в один массив хосты (он у меня один) в один — название процесса ( у меня вышло около 25), в один массив дату, сообщение, индекс хоста, индекс процесса, pid. Потом все это пишется в лиспофайл (with-standard-io-syntax).

Итоги:
размер лога — 158602612 (1250000 записей)
размер итогово лиспофайла — 219861450
Время парсинга — 45 секунд.
Время записи лиспофайла — 45 секунд.
Потребление памяти (RES) — ~1050 mb.

Потом этот файл загружается в sbcl:
Время загрузки — около 55 секунд,
Время сортировки по сообщениям:
(sort a #'string< :key #'(lambda (record) (getf record :message))) — 22 секунды.
Время сортировки по процессу (типа int foreign key): — около 1 секунды.
Время фильтрации: мгновенно (явно меньше секунды).

Железо — core 2 duo t7250 2gHz. Иксы и всякая хрень запущена, единственное что не давал свопить, закрывая всякие браузеры (рамы мало, всего 2gb).
Gentoo amd64-3.2.12.

Теперь вопрос — как бы побороть ограничение в лице памяти? Есть ли какие-то подобные штуки со сбросом данных на диск? Есть интересные статьи о подобных вещах?

В тред кастуются @archimag и @lovesan.

http://asmer.psto.net/onoofh

asmer - а есть чо для работы с datetime в lis...

Wed, 30 May 2012 19:33:28 GMT

lisp, ?, datetime

а есть чо для работы с datetime в lisp? Так что бы по уровню как в GNU (или лучше)? А то стандартная библиотека не радует.

http://asmer.psto.net/onzeft

asmer - привет всем. Я так, в гости зашел :)

Wed, 30 May 2012 19:31:44 GMT

psto_ppl, /me, slow

привет всем. Я так, в гости зашел :)

http://asmer.psto.net/onzefz

asmer - сегодня уже гуляли за руки на улице н...

Sun, 15 Apr 2012 21:24:21 GMT

дыбр, дети

сегодня уже гуляли за руки на улице немного под подъездом

http://asmer.psto.net/oeiens

asmer - http://cs9997.userapi.com/u72331061/-...

Tue, 10 Apr 2012 22:40:49 GMT

lol, win, часы, пгм

— ПОРВАЛО

http://asmer.psto.net/oefozg

asmer - в продолжение к #osiego сегодня: http...

Mon, 09 Apr 2012 22:43:46 GMT

пгм

в продолжение к #osiego сегодня:

http://asmer.psto.net/oeheto

asmer - за последнии дни вылезло два зуба (дв...

Mon, 09 Apr 2012 20:47:10 GMT

дыбр, дети

за последнии дни вылезло два зуба (два дня подряд) и уже по 5-10 секунд стоит не опираясь ни на что :)

http://asmer.psto.net/oehsgf

asmer - сегодня охуенная погода, +18. Я откры...

Thu, 05 Apr 2012 21:02:53 GMT

дыбр, вело, win

сегодня охуенная погода, +18. Я открыл велосезон сейчас гуляю в лесу с друзьями.

http://asmer.psto.net/oethfz

asmer - juick.com © 2008-2011 © 2010 Psto tea...

Wed, 04 Apr 2012 23:18:14 GMT

?, web, говно, (с), psto, juick, bnw, slow

juick.com © 2008-2011
© 2010 Psto team
Цоперайт © 2010,2011 @stiletto.
psto so SLOW :D

http://asmer.psto.net/oetzfz

asmer - Would you like to merge these package...

Wed, 04 Apr 2012 23:03:53 GMT

typo, бред, gentoo

Would you like to merge these packages? [Yes/No] noo
Sorry, response 'noo' not understood. [Yes/No] no

http://asmer.psto.net/oetztg

asmer - бля, вот нахуя надо представляться по...

Wed, 04 Apr 2012 20:46:36 GMT

идиоты, job, бред

бля, вот нахуя надо представляться по скайпу буковками, когда ИМЯ ИТАК НАПИСАНО (от него чятится). Второй случай за три дня:
John Doe: Hello Ivan, my name is John
...
John Doe: Hello Ivan, it's me John
так и хочется написать: yeah, Captain.

http://asmer.psto.net/oeonon