Вставить новый элемент после каждого элемента с четным порядковым номером используя функции rplacd или rplaca

@AndrewCruw · Регистрация: 07.12.2021

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

Всем доброго времени суток, помогите решить данную задачку:
Написать программу на common lisp.
Вставить новый элемент(любой атом) после каждого элемента с четным порядковым номером используя функции rplacd или rplaca.

@Catstail · 08.12.2021, 11:10

Lisp

(defun ins-in (list v &optional (p 0) (sav list))
  (cond ((null list) sav)
        ((evenp p) (ins-in (cdr list) v (+ p 1) sav))
        (t (let ((new  (list v))
                 (next (cdr list)))
                (rplacd list new)
                (rplacd new next)
                (ins-in (cddr list) v (+ p 1) sav)))))
 
(ins-in '(1 2 3 4 5 6) 'a)
==> (1 2 A 3 4 A 5 6 A)
 
(ins-in '(1 2 3 4 5 6 7) 'a)
==> (1 2 A 3 4 A 5 6 A 7)

@AndrewCruw · 08.12.2021, 12:31 **[ТС]**

Catstail,
Спасибо большое, но возможно ли как то упростить код?
Сделал вот такое задание (Вставить в список новый элемент перед каждым вхождением заданного элемента), написав вот такой код, но никак не могу сделать задание выше:

Lisp

1 2	(defun F (X N L) (if L (cons (car L) (F X N (cdr (if (equal (car L) X) (rplacd L (cons N (cdr L))) L))))))

@Catstail · 08.12.2021, 12:51

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

но возможно ли как то упростить код?

- а что не устраивает?

@AndrewCruw · 08.12.2021, 12:56 **[ТС]**

Catstail,
В вашем коде присутствует императивное программирование(let), хотелось бы написать на чистом функциональном, первое задание вроде бы получилось

@Catstail · 08.12.2021, 13:08

AndrewCruw, во-первых: кто сказал, что "let - императивное программирование" (не путаешь ли с set?); во-вторых: о каком ФП тут можно говорить, если используется структуроразрушающая функция?

Lisp

(defun ins-in (list v &optional (p 0) (sav list))
  (cond ((null list) sav)
        ((evenp p) (ins-in (cdr list) v (+ p 1) sav))
        (t (rplacd list (cons v (cdr list)))
           (ins-in (cddr list) v (+ p 1) sav))))
 
==> INS-IN
 
(ins-in '(1 2 3 4 5 6) 'a)
==> (1 2 A 3 4 A 5 6 A)

@AndrewCruw 0 / 0 / 0 Регистрация: 07.12.2021 Сообщений: 3
		1
	Common Lisp Вставить новый элемент после каждого элемента с четным порядковым номером используя функции rplacd или rplaca 07.12.2021, 23:09. Показов 1037. Ответов 5 Метки common lisp, lisp (Все метки) Всем доброго времени суток, помогите решить данную задачку: Написать программу на common lisp. Вставить новый элемент(любой атом) после каждого элемента с четным порядковым номером используя функции rplacd или rplaca. 0

@Catstail Модератор 36610 / 20336 / 4223 Регистрация: 12.02.2012 Сообщений: 33,660 Записей в блоге: 13
	08.12.2021, 12:51	4
	Сообщение от AndrewCruw но возможно ли как то упростить код? - а что не устраивает? 0

@AndrewCruw 0 / 0 / 0 Регистрация: 07.12.2021 Сообщений: 3
	08.12.2021, 12:56 [ТС]	5
	Catstail, В вашем коде присутствует императивное программирование(let), хотелось бы написать на чистом функциональном, первое задание вроде бы получилось 0

	08.12.2021, 13:08

Вставить новый элемент после каждого элемента с четным порядковым номером используя функции rplacd или rplaca

Решение