Чтение ассоциативных списков

@marina2 · Регистрация: 08.11.2009

Вот функция ассоциативных списков из файла. Что в ней не так?

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun reader ( )
  (setf *Note_book* nil)
(with-open-file (store "e:/file.txt" :direction :input)
(do ;цикл
;;чтение из файла "store" до обнаружения конца файла - nil
  ((item (read nil 'finished) ;чтение первого s-выражения в item
  (read store nil 'finished))) ;чтение очередного s-выражения
 ((eql item 'finished));проверка условия item=finished
   
   ; 
  (insert_from_file item) ;вывод s-выражения
  ))
(princ item)
)

@Catstail · 21.02.2013, 14:28

Сообщение от transformator.t

Catstail, а что там в архиве LispLit.zip на 75 метров?

- разные материалы по Лиспу, которые я собирал. Материалы элементарные, но полезные.

Добавлено через 58 секунд

Сообщение от korvin_

не раз натыкался на негативные отзывы о ней от "практикующих" лисперов;

- надо разобраться... А с методической точки зрения (для начинающего) книга очень хорошая.

Добавлено через 35 секунд

Сообщение от korvin_

она уже порядком устарела;

- это верно. Но Лисп остался Лиспом.

@_sg · 21.02.2013, 15:00

Сообщение от korvin_

1) не раз натыкался на негативные отзывы о ней от "практикующих" лисперов;
2) она уже порядком устарела;
3) да и сам когда просматривал ее, какое-то негативное впечатление оставила.

Книга все же полезная, хорошо, что она есть. Правда, лошадиные буквы отталкивают, но VH по ней рубит будь-здоров.

@korvin_ · 21.02.2013, 15:42

Сообщение от _sg

но VH по ней рубит будь-здоров.

Ага, фигачит рекурсию, там, где можно легко обойтись без нее, ведь в CL нет TCO. Не, для лабораторных может оно и нормально, но зачем же сразу приучаться плохому (для CL) стилю? =)

@_sg · 21.02.2013, 15:55

Что такое tco, если tail recursion optimization, то, вроде, есть. Пуристам loop не угодил.

@korvin_ · 21.02.2013, 17:15

Да, она. В стандарте ее нет, в некоторых реализациях частично есть, полагаться на это не стоит.

@_sg · 21.02.2013, 17:26

Спасибо. Считал, что во всех есть.

@marina2 · 21.02.2013, 18:05 **[ТС]**

Lisp
1
(princ (get-matches '(:name ? :phone ? :birth-date ((and(> :Y 1969)(< :Y 1980)) :M ? :D ?)) *phonebook*))

Нужно типо такого написать запрос, только чтоб выполнялся правильно

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .

@_sg 4710 / 4405 / 380 Регистрация: 12.05.2012 Сообщений: 3,102
	21.02.2013, 15:55
	Что такое tco, если tail recursion optimization, то, вроде, есть. Пуристам loop не угодил. 1

@korvin_ 4576 / 2775 / 491 Регистрация: 28.04.2012 Сообщений: 8,781
	21.02.2013, 17:15
	Да, она. В стандарте ее нет, в некоторых реализациях частично есть, полагаться на это не стоит. 0

@_sg 4710 / 4405 / 380 Регистрация: 12.05.2012 Сообщений: 3,102
	21.02.2013, 17:26
	Спасибо. Считал, что во всех есть. 0