Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
OlgaSaliy
0 / 0 / 0
Регистрация: 20.11.2014
Сообщений: 17
#1

Заданы глубина подсписка, позиция и s-выражение. Включить s-выражение во все имеющиеся подсписки заданной глуб

06.10.2016, 13:34. Просмотров 852. Ответов 2
Метки нет (Все метки)

Вот задание:
Заданы глубина подсписка, позиция и s-выражение. Включить s-выражение во все имеющиеся подсписки заданной глубины и на заданную позицию.
Помогите, пожалуйста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2016, 13:34
Ответы с готовыми решениями:

Глубина подсписка
Определять максимальную глубину подсписков исходного списка Помогите...

Как включить в регулярное выражение все символы?
Обрабатываю регулярным выражением HTML. Регулярное выражение: (?<=<div\...

Заданы три матрицы: A,B и C. Вычислить матричное выражение (A*(C+B*A)+C)*A
Заданы три матрицы: A,B и C. Вычислить матричное выражение (A*(C+B*A)+C)*A.

Заданы две матрицы A и B. Нужно вычислить матричное выражение
Привет всем, нужна помощь. Вообщем задание: Заданы две квадратные матрицы A и...

По заданной строке вывести все цифры, имеющиеся в ней
По заданной строке вывести все цифры, имеющиеся в ней.

2
Catstail
Модератор
23579 / 11679 / 2044
Регистрация: 12.02.2012
Сообщений: 19,057
06.10.2016, 16:47 #2
Лучший ответ Сообщение было отмечено OlgaSaliy как решение

Решение

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;; Вставить в список lst в позицию n
 
(defun ins-in-pos (lst v n)
  (cond ((null lst) (list v))
        ((zerop n) (cons v lst))
        (t (cons (car lst) (ins-in-pos (cdr lst) v (- n 1))))))
 
==> INS-IN-POS
 
;; Проверка
 
(ins-in-pos '(1 2 3 4 5) '(u u) 3)
 
==> (1 2 3 (U U) 4 5)
 
(ins-in-pos '(1 2 3 4 5) '(u u) 5)
 
==> (1 2 3 4 5 (U U))
 
(ins-in-pos '(1 2 3 4 5) '(u u) 14)
 
==> (1 2 3 4 5 (U U))
 
;; решение
 
(defun task (lst lv p v)
  (if (> lv 0) (mapcar #'(lambda (x) (if (atom x) x (task x (- lv 1) p v))) lst)
               (ins-in-pos lst v p)))
 
==> TASK
 
;; Проверка
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 1 '(* *)) 
 
==> (A B (C (* *) D (E F) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 2 '(* *)) 
 
==> (A B (C D (* *) (E F) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 3 '(* *)) 
 
==> (A B (C D (E F) (* *) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 4 '(* *)) 
 
==> (A B (C D (E F) ((G H)) (* *)) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 5 '(* *)) 
 
==> (A B (C D (E F) ((G H)) (* *)) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 4 1 '(* *)) 
 
==> (A B (C D (E F) ((G H))) I (((J))))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 3 1 '(* *)) 
 
==> (A B (C D (E F) ((G (* *) H))) I (((J (* *)))))
1
OlgaSaliy
0 / 0 / 0
Регистрация: 20.11.2014
Сообщений: 17
06.10.2016, 20:43  [ТС] #3
Спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2016, 20:43

Добавить числа в скобочное выражение, чтобы получилось правильное арифметическое выражение
1.Дана последовательность из N круглых, квадратных и фигурных скобок. Выяснить,...

Подставить в заданное выражение знаки +,-,*,/ так, чтобы выражение было истинным
Помогите плз! Надо подставить в заданное выражение знаки +,-,*,/ так, чтобы...

Как перевести это математическое выражение в выражение понятное для компилятора?
вот пример: a=5*atan(x)-(1/4)*acos(x);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru