|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
Я не знаю, что ты понимаешь под словом форматирование. ВСЕ тексты начинающими программировать на ЛИСПе НЕОБХОДИМО писать во VLIDE.
Цитата:
Я не анализировал текст, но ошибка после форматирования вида невооруженным взглядом. В конце текста счётчик (setq j (1+ j)) стоит как третий аргумент IF
__________________
По теории майский жук летать не может. Но он этого не знает. И летает... |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Цитата:
Ошибку уже нашёл. Спасибо. |
|||
|
||||
Цитата:
Вот исправил тебе код все работает: Код:
Код:
__________________
Вечность это: (while T) |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
И стоило ли огород городить?
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Код:
Код:
Дальше разбираться не буду - тупо много работы.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Алексей, здравствуйте.
В рамках своего обучения я хочу написать для себя программу, которая будет просматривать какую-то папку, читать оттуда файлы исходников на autolisp, считать количество слов языка, строки являются 1 словом. После этого создается ассоциативный список с количеством слов на каждый файл, и сортируется по возрастанию. При завершение создается файл куда записываются данные. Таким образом я могу быстро варьировать время на изучение исходников по autolisp, а тем более попрактиковаться на решение реальной задаче. Спасибо. ----- добавлено через 50 сек. ----- Цитата:
А код уже рабочий, можете не проверять. Спасибо |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Сугубо ИМХО - количество строк кода ни о чем не говорит. Да и отформатировать код можно так, что вся функция будет в одну строчку.
Код:
Сейчас, разгребусь тут немного - попробую по шагам разобрать "чтение lsp из каталога" ----- добавлено через ~8 мин. ----- Насчет чтения файлов. 1. Просмотреть каталог на предмет файлов с определенным расширением - см. vl-directory-files. Если понадобится учитывать еще и подкаталоги, то поищи по форуму (по-моему, даже в "Готовых программах" что-то было) 2. Дальше в цикле - открыть файл на чтение, получить количество его строк, загнать результат как точечную пару в результирующий список. 3. Используй vl-sort для сортировки
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Цитата:
----- добавлено через ~2 мин. ----- Цитата:
Но я хочу по возможности сам писать. В первую очередь я учусь и хочу понимать. А дальше можно использовать готовые функции. А еще лучше и так и так сделать. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Я про то, что при чтении такой функции что получим в результате?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Да лааааадно! Я 95% кода буду рассуждать о том, "как прекрасен этот мир" - и что, у нас все это тоже пойдет в результат? А если у меня пойдет многострочный комментарий? Внутри которого будет показываться гарантированно неработающий код?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Цитата:
Цитата:
Строка и строка в строке - это одно слово Алексей, расскажите. Есть ли в автолиспе такие замечательные вещи как continue и break или их аналоги? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Это из C#? Впрямую их нет, но можно же имитировать.
----- добавлено через ~7 мин. ----- Для каких целей требуется continue и break? Во, кстати, задачка на понимание: Код:
https://forum.dwg.ru/showpost.php?p=1420297&postcount=8
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Цитата:
Задачка интересная. Надо подумать. Ответ постараюсь дать вечером. UPD. Работает это примерно так. Поправьте, если не прав. (setq a ‘((0 1 2) (3 4 5) (6 7 8))) (apply ‘mapcar (cons ‘list b)) cons (list b) -> ( ) 1.mapcar -> 0 3 6 -> list -> (0 3 6) -> cons —> ((0 3 6)) 2.mapcar -> 1 4 7 -> list -> (1 4 7) -> cons—> ((0 3 6) (1 4 7)) 3.mapcar -> 2 5 8-> list -> (2 5 8) ((0 3 6) (1 4 7) (2 5 8)) Последний раз редактировалось gnuvse, 02.07.2018 в 20:21. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Каждый спецсимвол экранируется, все верно. В чем вопрос?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 13.04.2017
Сообщений: 134
|
Цитата:
Алексей, здравствуйте. Спасибо за ваши ответы. Я пока занимался своим проектом, понаписал много функции для обработки символов, подскажите пожалуйста, как я их могу выделить в какую-то библиотеку? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Кхм... Что значит "в библиотеку"?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
LISP. Вставка в таблицу поля, соотвествующего площади примитива | Profan | Готовые программы | 272 | 06.06.2021 23:12 |
Сейсмозащита и сейсмоизоляция существующих, построенных зд. | IANationalInformAgentstvo | Прочее. Архитектура и строительство | 216 | 20.01.2015 16:51 |
Мониторы LCD CRT | Разное | 94 | 17.06.2008 10:51 | |
ЮМОР 2006 =) | Perezz!! | Разное | 1122 | 04.01.2007 00:46 |