Clojure Определять атом списка, предшествующий заданному

@mef1sto · Регистрация: 23.05.2014

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

Добрый день, форумчане!
Только-только начал осваивать lisp.
В общем следующее задание: Определять атом списка, предшествующий заданному (через цикл do).
Через рекурсию реализовать проблем не возникло, вот код:

Lisp
1
2
3
4
(defun name (x list)
(cond ((null list) nil)
((eql (cadr list) x)(car list))
(t (name x (cdr list)))))

Но вот с циклом - беда, не могу никак понять за что цеплять, чтобы при совпадении цикл завершался. Пока все мои попытки уводят в бесконечный цикл.

Заранее спасибо!

@ur_naz · 24.05.2014, 16:02

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

(defun previous-z (z w &aux (p (position z w)))
* (when (and p (plusp p)) (nth (1- p) w)))

Здесь 1 лишняя проверка...

Lisp
1
2
(defun previous-z (z w &aux (p (position z w)))
  (if (plusp p) (nth (1- p) w)))

Вот так будет проще, но в homelisp работать не будет, ибо он не знает функцию plusp.

@Catstail · 24.05.2014, 17:31

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

ибо он не знает функцию plusp

- это не проблема:

Lisp
1
(defun plusp! (x) (And (not (zerop x)) (not (minusp x))))

@_sg · 24.05.2014, 17:44

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

Здесь 1 лишняя проверка...
Код Lisp
1
2
(defun previous-z (z w &aux (p (position z w)))
* (if (plusp p) (nth (1- p) w)))
Вот так будет проще, но в homelisp работать не будет, ибо он не знает функцию plusp.

нелишняя:

Lisp
1
2
3
> (previous-z 4 '(1 2 3))
PLUSP: NIL is not a REAL
   [Condition of type SIMPLE-TYPE-ERROR]

было:

Lisp
1
2
3
4
5
(defun previous-z (z w &aux (p (position z w)))
  (when (and p (plusp p)) (nth (1- p) w)))
 
> (previous-z 4 '(1 2 3))
NIL

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
(defun previous-z (z w &aux (p (position z w)))
  (when (and p (> p 0)) (nth (1- p) w)))
 
> (previous-z 4 '(1 2 3))
NIL
> (previous-z 1 '(1 2 3))
NIL
> (previous-z 2 '(1 2 3))
1

@ur_naz · 25.05.2014, 13:07

Сообщение от Catstail;6220669"[quote="Catstail

(defun plusp! (x) (And (not (zerop x)) (not (minusp x))))

Скорей так: проверяем аргумент на "число", проверяем знак:

Lisp
1
(defun plusp (x) (and (numberp x)(< 0 x)))

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

нелишняя:

Ну, да, в homelisp (< 0 nil) возвратит ошибку, в автолиспе нет. Учитывая, что plusp - нештатная функция, то я остаюсь при своем мнении

хотя конечно да, plusp работает только с числами в cl

@Catstail · 25.05.2014, 13:16

Я в последнее ядро включил plusp.

@helter · 25.05.2014, 15:53

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

Скорей так: проверяем аргумент на "число", проверяем знак:

Скорее, надо проверить неравенство (> x 0).

А numberp не надо проверять: лучше, когда (plusp #\a) генерирует ошибку, а не nil.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Catstail Супер-модератор 38225 / 21157 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	25.05.2014, 13:16
	Я в последнее ядро включил plusp. 1