@Aquila21

Приветствую, форумчане. Прошу опытных гуру Лиспа помочь с решением задания:

Нужно написать функцию, которая принимает два аргумента, условно l1 и l2. Аргументы - списочные структуры с произвольными элементами. Вызов должен возвращать список, в котором каждый элемент это путь к вхождению l1 в качестве фрагмента в l2, то есть список позиций на уровнях, приводящий к вхождению фрагмента. Например:

(find-list-part ’(a a (b) a)
’(c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a)))

Возвратит следующее:

((2) (5) (9 5 4 2) (9 5 7))

Могут быть полезными следующие данные о результате вывода (спасибо пользователю zeroalef):

рекурсия:
==>
9 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))
5 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))
4 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))
2 -> (b a a (b) a z)
==>
9 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))
5 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))
7 -> (c a a (b) a a (b) a (a d a a (b a a (b a a (b) a z) a h a a (b) a) a))

0

@Catstail

"эх, назола..." Незачем плодить темы.

смотри

0