Списки

@Анастасия_М · Регистрация: 05.11.2012

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

Помогите, пожалуйста, решить следующую задачу:
определите функцию, зависящую от трех аргументов U, N и V, вставляющую в список U, начиная с N-го элемента, список V.
Заранее спасибо за помощь!

@Catstail · 16.10.2013, 14:47

Самое простое решение:

Lisp
1
2
3
4
5
6
7
8
(defun f (u n v)
  (append (subseq u 0 n) v (subseq u n)))
 
==> f
 
(f '(1 2 3 4 5 6) 3 '(a b c d))
 
==> (1 2 3 a b c d 4 5 6)

но это решение "не лисповское" (по духу).

Лучше так:

Lisp
1
2
3
4
5
6
7
8
9
(defun f (u n v)
  (cond ((zerop n) (append v u))
        (t (cons (car u) (f (cdr u) (- n 1) v))))) 
 
==> f
 
(f '(1 2 3 4 5 6) 3 '(a b c d))
 
==> (1 2 3 a b c d 4 5 6)

Элементы нумеруются с нуля.

@Анастасия_М · 16.10.2013, 14:59 **[ТС]**

Catstail, большое спасибо! Буду разбираться)

@route66 · 16.10.2013, 17:41

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(defun INSERT_V_IN_U (u n v)
 
    (cond
        
        ((and (equal n 0) (null u)) (append v)) 
        
        ((null u) nil)
        
        ((equal n 0) (append v (cons (car u) (INSERT_V_IN_U (cdr u) (- n 1) v))))
        
        (t (cons (car u) (INSERT_V_IN_U (cdr u) (- n 1) v)))
    )
 
)
 
(princ (INSERT_V_IN_U '(1 2 3 4 5) 2 '(a b c d e) )) ==> (1 2 A B C D E 3 4 5)
 
 
; Если заменить append на cons, получим:
 
(princ (INSERT_V_IN_U '(1 2 3 4 5) 3 '(a b c d e) )) ==> (1 2 3 (A B C D E) 4 5)

@Catstail · 16.10.2013, 18:28

route66, а зачем Вы вызываете princ для печати результата? Цикл "rePl" сделает это и без princ

@route66 · 16.10.2013, 18:51

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

route66, а зачем Вы вызываете princ для печати результата? Цикл "rePl" сделает это и без princ

привычка) в mulisp мне проще 1 раз написать princ, чем каждый раз вставлять/вызывать из консоли эту функцию со всеми параметрами. после загрузки файла сразу печатается результат, а без princ он просто не покажется на экран консоли.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Анастасия_М 0 / 0 / 0 Регистрация: 05.11.2012 Сообщений: 11

	Списки 16.10.2013, 14:33. Показов 845. Ответов 5 Метки нет (Все метки) Помогите, пожалуйста, решить следующую задачу: определите функцию, зависящую от трех аргументов U, N и V, вставляющую в список U, начиная с N-го элемента, список V. Заранее спасибо за помощь! 0

@Анастасия_М 0 / 0 / 0 Регистрация: 05.11.2012 Сообщений: 11
	16.10.2013, 14:59 [ТС]
	Catstail, большое спасибо! Буду разбираться) 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	16.10.2013, 18:28
	route66, а зачем Вы вызываете princ для печати результата? Цикл "rePl" сделает это и без princ 0

Списки

Решение