Я ожидаю, что каждый вызов test1 будет возвращать (2 1).

• Так не делают и вместо изменения val1 нужно определять новую переменную?
• Почему так происходит c test1?
• Почему sbcl ругается?
• Почему test2 возвращает всегда 1?

; test1.lisp
(defun test1 ()
  (let ((val1 '(1 1)))
    (incf (car val1))
    (princ val1)))

(test1)
(test1)

; test2.lisp
(defun test2 ()
   (let ((val1 0))
      (incf val1)
      (princ val1)))

(test2)
(test2)

> clisp test1.lisp 
(2 1)(3 1)
> ecl -shell test1.lisp
(2 1)(3 1)
> sbcl --script test1.lisp
; ...
; WARNING: Destructive function SB-KERNEL:%RPLACA called on constant data.
; ...
(2 1)(2 1)
> clisp test2.lisp
11

Именно создал ветку и отправил (это может быть и не автор последнего комита).

Когда-то активно занимался Redmine и пытался вокруг этого построить заработок. В результате остался сайт http://redprojects.net.

Cейчас уже этим всем не охота заниматься. Но выкинуть жалко. Сайт заметно просел в поисковых результатах в сравнений с теми временами, когда я им активно занимался.

Хотелось бы найти кого-то, кто сможет это дело развивать/поддерживать дальше (передам все данные и трансфер домена). Персона/компания занимающаяся Redmine или видимая фигура в opensource, в общем серьезным людям.

Навеяно темой Ментальный вирус, пример взят и дополнен оттуда. Интересует реализация подобной операции на других языках. Лично я хотел бы увидеть на Lisp, Java, Smalltalk, Erlang.

array = ["John", "James", "Jakob", "Peter", "Janette", "Tom", "Vasya", "Jean", "Juilia", "Heather"]

puts array.select{|v|v[/^J[a-z]+/]}. # ВЫБРАТЬ ПО someregexp
each_slice(3). # КАЖДЫЙ КУСОК ПО 3 ЭЛЕМЕНТА
map{|v| "#{v[0]} and #{v[1]} follow #{v[2]}"}. # ПОДСТАВИТЬ ЗНАЧЕНИЯ В СТРОКУ
join("\n") # ОБЪЕДИНИТЬ
# John and James follow Jakob
# Janette and Jean follow Juilia

Пошагово для тех, кто не знаком с Ruby:

array.select{|v|v[/^J[a-z]+/]}
# ["John", "James", "Jakob", "Janette", "Jean", "Juilia"]
array.select{|v|v[/^J[a-z]+/]}.
each_slice(3).to_a # в массив
# [["John", "James", "Jakob"], ["Janette", "Jean", "Juilia"]]
array.select{|v|v[/^J[a-z]+/]}.each_slice(3).
map{|v| "#{v[0]} and #{v[1]} follow #{v[2]}"}
# ["John and James follow Jakob", "Janette and Jean follow Juilia"]
array.select{|v|v[/^J[a-z]+/]}.each_slice(3).map{|v| "#{v[0]} and #{v[1]} follow #{v[2]}"}.
join("\n") 
# "John and James follow Jakob\nJanette and Jean follow Juilia"

Использовать только стандартную библиотеку.

Целесообразность операции не важна. Вопрос кратности количества найденных элементов трем не рассматриваем.

Пытаюсь запустить «Generating a simple Web page» отсюда.

Пишет:

Resource /hello-world not found.

SBCL 1.0.57.0.debian, hunchentoot-1.2.7 - загружаю через quicklisp

(ql:quickload 'hunchentoot)

Если есть проект в публичном репозитории на github-е, но там не указана лицензия (нет LICENSE, в исходниках тоже тихо).

Под какой лицензией считается что данный код доступен?

При всех новомодных преимуществах распределенных систем контроля версий для разработчиков, я бы отметил один существенный недостаток для пользователей - а это «тысячи» форков.

Уже не первый раз натыкаюсь на то, что для какой-либо библиотеки или программы есть несколько версий от разных товарищей на всяких github-ах и прочих. И мне допустим, чтобы получить свежую версию какой-либо libastral с исправленными ошибками, нужно пройтись по всем pupkin1/astral, zalupkin/megaastral, atkinson/mysuperastral, где каждый исправил по одному разному его любимому багу, и потом собрать это все в кучу для себя.

Проект при этом распыляется и превращается в какого-то неуловимого джо.В отличие от централизованных проектно-ориентированных хостингов (sf, berlios, savannah и т.п.) где я более менее уверен, что скачиваю последнюю версию.

Нужно сделать платный helpdesk. У клиента есть проблема, зашел на сайт описал проблему, оплатил и получил ответ.

Готовых helpdesk-ов увидел несколько, вот не нашел чтобы была интеграция с e-commerce встроена. Т.е. там не было функционала, предусматривающего оплату клиентом.

В целом не хотелось бы заниматься велосипедостроительством и писать свое (или дописывать какой-то продукт). Какие могут быть рекомендации по конкретным продуктам? Желательно php, можно RubyOnRails.

Подскажите, кто знает, софт (можно близкий по тематике) для следующей задачи:

Есть небольшой цех, где рабочие получают периодически задания по типу "Подсыпать угля в топку" каждые 3 часа. При этом ведется учет сколько ведер угля было израсходовано и сколько выплавлено заготовок. Плюс возможность различать список задач для разных рабочих.

Подключения к оборудованию не предусматривается. Т.е. сотрудники будут подходит к компьютеру, получать задание и отчитываться.

Последнюю неделю нерегулярно, но на определенных часто посещаемых мною сайтах наблюдаю баннеры на китайском языке справа внизу. Выскакивает непостоянно. Если баннер показывается, то приблизительно 1 из 5 просмотров страницы. Т.е. нужно перегрузить раз пять страницу, чтобы эффект проявился. Иногда китайские приветы вовсе не отображаются. В сети говорят о вирусе, но под винду. У меня линукс :) Провайдер говорит, что у них тоже везде линуксы. Эффект одинаково проявляется под Opera, Firefox, Konqueror. Как это дело лечить?

Есть ли какая-нибудь программа или онлайн сервис, чтобы туда загрузить в каком-нибудь виде файл с сообщениями (Open file, Delete, Insert row, ...), а оно на выходе даст (Открыть файл, Удалить, Вставить строку...).

По мотивам проекта java2tcl выпущен проект yava2python:

http://macroexpand.org/doku.php/txl:projects:yava2python:start

http://macroexpand.org/doku.php/txl:projects:java2tcl:start

Вон товарищ:

http://myworld.ebay.com/cheapdownloads

Тихо, скромно толкает Blender, nvu, gimp, audacity.

>>>

Есть молодой сотрудник, занимающийся HTML-версткой. Дела идут нормально, но когда нужно что-то запрограммировать на JavaScript (например, сохранить состояние отобранных элементов в массиве и отслеживать их включение-выключение) возникают проблемы.

Что ему можно порекомендовать почитать, чтобы поднатаскаться немного в алгоритмах и их воплощении?

Как спрятать символ ^M в emacs для досовских файлов?

Не удалить, а просто не показывать.