troydm Nov 1 2011 at 15:34

Пишем веб-сервер на Common Lisp часть первая

8 min

8.2K

Lisp*

+33

Comments 19

Bodigrim Nov 1 2011 at 15:46

Сэр, я понимаю, что в Лиспе запятые нужны редко, однако в естественных языках они все еще в моде.

troydm Nov 1 2011 at 15:49

Если я где-то пропустил запятую буду признателен за советы

symbix Nov 1 2011 at 17:29

Ох… Пропущенных запятых там примерно столько же, сколько скобочек в приведенном коде. :)

troydm Nov 1 2011 at 17:37

Будем исправлять постепенно

shambho Nov 1 2011 at 18:02

Неопределённость Гейзенберга. Либо много скобок, либо мало запятых.

andy128k Nov 1 2011 at 18:19

В CL запятая — синтаксический сахар для сокращения количества скобочек.

ulego Nov 1 2011 at 18:46

Здесь.

troydm Nov 1 2011 at 18:56

А да точно :)

ulego Nov 1 2011 at 19:05

оппа, не туда.
Простите сэры, больше не буду!

(Defun рекурсия_пять_минут (x)
(cond((null x)nil)(t(progn
(Сволочь эта минусовая карма, пока извинишься раз в пять минут, уже подумают, что ты какой-нибудь сумасшедший (приходится сидеть и писать о внутренних мотивах (да (а нет, правильнее(t)))))
(рекурсия_пять_минут((cdr x))))))
)

Кажись прошло пять минут.
Сэры, позвольте откланяться!

ulego Nov 1 2011 at 19:12

а… нет, все-таки туда. Простите, судари все-таки, чо-то сам не свой, под конец дня. А вот вам для смены темы и отвлечения внимания от моих промахов незакрытая скобка (… даже две (

andy128k Nov 1 2011 at 18:06

Код ужасен. На CL не похож вообще.

Анахронизмы (setq), неэффективный код, ( (setq *worker-num* (1+ *worker-num*)) ), незнание базовых конструкций (if progn вместо when/unless/cond)…

плюсую :)

troydm Nov 1 2011 at 18:18

очень будет интересно если опишите алтернативные варианты как было бы лучше писать это

andy128k Nov 1 2011 at 18:26

1. setq — в этом сезоне не популярен. Все угорают по setf;
2. incf/decf;
3. почти всегда when/unless/cond предпочтительнее чем if (меньше скобок).

И, умоляю, исправьте отступы! Распугаете всех читателей.

troydm Nov 1 2011 at 18:39

насчёт отступов я почему когда текст с табами сюда копирую он все табы убирает, постораюсь исправить заменой табов на пробелы

andy128k Nov 1 2011 at 18:41

C-M-\
M-x untabify

;)

feligz Nov 1 2011 at 21:42

Мне кажется или это нормально для лиспа, что этот метод такой огромный defun worker-thread? может можно было бы разбить как то на составные части?

troydm Nov 2 2011 at 14:15

Я точно не знаю потому что особого опыта в отладке производительности я не делал в Common Lisp никогда. Если разбить на несколько частей то он будет быстрее работать?

feligz Nov 2 2011 at 15:00

Да нет, просто с ним будет намного проще работать имхо, одна задача — 1 метод классика жанра…

troydm Nov 6 2011 at 13:00

я немного привёл в порядок код, последнюю версию можете взять с git репозитория

Show the best of all time