Как писать программы на Лиспе?

@MrBrain · Регистрация: 08.06.2010

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

Я раньше довольно неплохо программировал на различных языках, но сейчас мне понадобилось написать пару прог на Лиспе, и хотя Лисп сильно отличается я более менее разобрался в теории, но не пойму как собственно написать программу? Я так понял что наиболее нубская среда разработки это Lispbox, я его запустил и там вижу консоль. Где там можно писать/редактировать программу?

@Helfer · 24.10.2011, 15:57

попробуй PC LISP

прогу пишешь в блокноте (кодировка ANSI) (блокнот я использую notepad++)

потом запускаешь лисп и пишешь (load 'filename.txt)
если не грузит, значит ошибка...какая именно -выдаст.
тхт должен быть в папке с программой(лиспом)

@MrBrain · 25.10.2011, 10:57 **[ТС]**

Ну это все таки полумера, нет ли для лиспа какой-нибудь среды разработки вроде вижуал студио, делфи? Я пока пробую писать в вижуал лисп для автокада, потом код копирую в командную строку и запускаю, может подскажете что-нибудь еще?

@Nameless One · 25.10.2011, 11:31

MrBrain, попробуй emacs

transformator.t · 25.10.2011, 12:15

emacs+sbcl отличный вариант

@Lenu · 12.05.2013, 13:06

(defun f( sp )
(setf m (car sp))
(dolist (x sp m)
(when (> x m) (setf m x))
)
(return-from f m)
)
(setf sp1 '(5 17 ))
(setf sp2 '(10 7 14 12 ))
(setf Y (+ (f sp1) (f sp2) )

Y = 31

Объясните почему получили это значение

@Catstail · 12.05.2013, 13:18

Убийственный код... К тому же неформатированный. Работает он так: функция f возвращает максимальное число из поданного на вход списка. Поэтому (f sp1) = 17; (f sp2)=14 А потом эти значения просто складываются и сумма присваивается y=17+14.

Добавлено через 1 минуту
MrBrain, есть еще вариант: homelisp.

@Lenu · 12.05.2013, 13:19

(setf st1 "M")
(dotimes (j (Length st1) st1)
(if (equalp (CHAR st1 j) #\N )
(setf (CHAR st1 j) #\U)
(setf (CHAR st1 j) #\P)
))

st1 = P

Объясните почему получили это значение

@Catstail · 12.05.2013, 13:26

Так. Не нужно нарушать правил форума: 1 вопрос - одна тема!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@MrBrain 10 / 10 / 0 Регистрация: 08.06.2010 Сообщений: 80

	Как писать программы на Лиспе? 16.10.2011, 21:29. Показов 6578. Ответов 8 Метки нет (Все метки) Я раньше довольно неплохо программировал на различных языках, но сейчас мне понадобилось написать пару прог на Лиспе, и хотя Лисп сильно отличается я более менее разобрался в теории, но не пойму как собственно написать программу? Я так понял что наиболее нубская среда разработки это Lispbox, я его запустил и там вижу консоль. Где там можно писать/редактировать программу? 0

@Helfer ЙожЪ 64 / 60 / 17 Регистрация: 23.10.2009 Сообщений: 652
	24.10.2011, 15:57
	попробуй PC LISP прогу пишешь в блокноте (кодировка ANSI) (блокнот я использую notepad++) потом запускаешь лисп и пишешь (load 'filename.txt) если не грузит, значит ошибка...какая именно -выдаст. тхт должен быть в папке с программой(лиспом) 1

@MrBrain 10 / 10 / 0 Регистрация: 08.06.2010 Сообщений: 80
	25.10.2011, 10:57 [ТС]
	Ну это все таки полумера, нет ли для лиспа какой-нибудь среды разработки вроде вижуал студио, делфи? Я пока пробую писать в вижуал лисп для автокада, потом код копирую в командную строку и запускаю, может подскажете что-нибудь еще? 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	25.10.2011, 11:31
	MrBrain, попробуй emacs 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	25.10.2011, 12:15
	emacs+sbcl отличный вариант 1

@Lenu 0 / 0 / 0 Регистрация: 12.03.2013 Сообщений: 17
	12.05.2013, 13:06
	(defun f( sp ) (setf m (car sp)) (dolist (x sp m) (when (> x m) (setf m x)) ) (return-from f m) ) (setf sp1 '(5 17 )) (setf sp2 '(10 7 14 12 )) (setf Y (+ (f sp1) (f sp2) ) Y = 31 Объясните почему получили это значение 0

@Catstail Супер-модератор 38197 / 21130 / 4309 Регистрация: 12.02.2012 Сообщений: 34,738 Записей в блоге: 14
	12.05.2013, 13:18
	Убийственный код... К тому же неформатированный. Работает он так: функция f возвращает максимальное число из поданного на вход списка. Поэтому (f sp1) = 17; (f sp2)=14 А потом эти значения просто складываются и сумма присваивается y=17+14. Добавлено через 1 минуту MrBrain, есть еще вариант: homelisp. 0

@Lenu 0 / 0 / 0 Регистрация: 12.03.2013 Сообщений: 17
	12.05.2013, 13:19
	(setf st1 "M") (dotimes (j (Length st1) st1) (if (equalp (CHAR st1 j) #\N ) (setf (CHAR st1 j) #\U) (setf (CHAR st1 j) #\P) )) st1 = P Объясните почему получили это значение 0

@Catstail Супер-модератор 38197 / 21130 / 4309 Регистрация: 12.02.2012 Сообщений: 34,738 Записей в блоге: 14
	12.05.2013, 13:26
	Так. Не нужно нарушать правил форума: 1 вопрос - одна тема! 0