Список: Написать программу для выделения списков в заданном интервале в произвольно введенном исходном списке.

Написать программу для выделения списков в заданном интервале в произвольно введенном исходном списке.
Сформировать их них список и вывести его. Исходный список имеет уровень 0, вложенный список имеет уровень 1 и т.д.
Пример.
(a(b(с 1)d e)f((2(g))3))
с 2-3 уровни ((с 1)(2(g))(g))

Пыталась сначала выделить списки на определенном уровне, но и это не работает правильно. Помогите, пожалуйста!!!

0

Nsity, пока вам не написали решение, я подкину вам идею, чтобы вы смогли попробовать собственные силы. Здесь можно написать очень компактную функцию.

Пусть l и n - границы, как в ваших обозначениях.

Если l > n или n < 0 - прекрасно, решений нет. (В задаче целесообразно допускать и отрицательные значения для границ.)

Нормальный случай: n < l, l >= 0. Здесь можно мыслить так: пройтись по элементам списка, и если элемент сам является спискам, применить к нему ту же функцию, но с параметрами n - 1 и l - 1. То есть спускаясь к подсписку, нас снова интересуют его подсписки, но поскольку глубина увеличилась на единицу, то интересуют подсписки на единицу меньшей глубины. Вроде несложная идея.

Плюс: к результату нужно присоединить сам список, если 0 <= n <= 1.

Попробуйте написать. Это несложно: проглядывают cond и рекурсия.

Добавлено через 11 минут
И пара стилистических замечаний.

Во-первых и в главных! Соблюдайте индентацию. Человек воспринимает структуру лиспокода по отступам. Очень грубо говоря: 1) вложенный блок сдвигается на две позиции; 2) аргументы функции - друг под другом. На самом деле все пользуются специальными средами разработки навроде LispBox, которые форматируют код автоматически.

Во-вторых, не выделяйте отдельную строку для закрывающих скобок, это не принято. (Человек воспринимает структуру лиспокода по отступам, а не по скобкам.)

В-третьих, пишите символы маленькими буквами. Это обычное соглашение: человек пишет Лиспу маленькими, Лисп отвечает большими.

Что касается самого кода. Я как член setf-лагеря говорю вам: во всех случаях используйте для присваивания setf, не прогадаете! А вообще, не злоупотребляйте присваиванием. Потренируйтесь писать функции в функциональном стиле (живут же люди вообще без присваиваний!), вы увидите, что нужда в присваивании появляется не так часто. Конечно, на Лиспе можно писать и так и сяк и наперекосяк - как фантазия позволяет; так развивайте же фантазию, а не зацикливайтесь на паскалеподобном коде.

Добавлено через 7 минут
Замеченные опечатки:

Сообщение от helter Нормальный случай: n < l, l >= 0.

l < n

Сообщение от helter Плюс: к результату нужно присоединить сам список, если 0 <= n <= 1.

0 <= l <= n

0

Сообщение от Nsity Написать программу для выделения списков в заданном интервале в произвольно введенном исходном списке. Сформировать их них список и вывести его. Исходный список имеет уровень 0, вложенный список имеет уровень 1 и т.д. Пример. (a(b(с 1)d e)f((2(g))3)) с 2-3 уровни ((с 1)(2(g))(g))

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

0

Что-то в два ночи некорректность ускользает от меня. Мы же не лезем в структуру подсписков, мы просто сами подсписки собираем.

0

Как подсписки могут быть собраны без своих элементов (подсписков)?

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

0

А чем вам не нравится тестовый пример? Там и список, и подсписок.

0

Сообщение от Nsity с 2-3 уровни

со второго по третий уровень, нет?

Добавлено через 35 секунд
тем, что в тестовом примере нет уровней ниже третьего

0

(c 1), (2 (g)) - второй
(g) - третий

0

или, я неправильно понял условие, и диапазон не задается?

Добавлено через 1 минуту
а если бы был четвертый, то он дожен быть отрезан, нет?

0

Моя супер-прога:
И я с ней согласен.

0

можно не задавать третий, если глубже третьего нет

Добавлено через 2 минуты
(h) - четвертый

0

(h) - четвёртый, но он и не входит в список-ответ.

0

что вернет (lists-inside '(a (b (c 1) d e) f ((2 (g ((h)))) 3)) 2 3)) ?

Добавлено через 1 минуту
((G (H)) (2 (G (H))) (C 1))

Добавлено через 2 минуты
в Вашем примере, (h) - третий, h - четвертый

0

Я спросил Оракул:

Сообщение от _sg ((G (H)) (2 (G (H))) (C 1))

Так это не элемент списка-ответа, а внутренность одного из элементов. В списке-ответе ровно три элемента:
(G (H))
(2 (G (H)))
(C 1)

Добавлено через 2 минуты

Сообщение от _sg в Вашем примере, (h) - третий, h - четвертый

По-моему, (h) - четвёртый, h - пятый.

0

(lists-inside '(a (b (c 1) d e) f ((2 (g ((h)))) 3)) 2 3) - тогда зачем задан последний параметр?

Добавлено через 1 минуту
если берутся все вложенные, хоть до 7 уровня, хоть до 100 уровня?

0

Nsity, ещё вам пара хинтов:
1) Форма с if является выражением, которое возвращает значение. Часть "иначе" обязательна (иначе что возвращать иначе?).
2) dolist не требует progn.

Добавлено через 1 минуту
Все вложенные не выписываются в окончательный ответ. Смотрите:

Сообщение от helter Так это не элемент списка-ответа, а внутренность одного из элементов. В списке-ответе ровно три элемента: (G (H)) (2 (G (H))) (C 1)

список (h) не попадает в ответ.

0

тогда неизбежны повторы, задваивание, затраивание элементов, возможно корректно в диапазоне было бы искать не подписки или элементы, а атомы

Добавлено через 37 секунд
задание ради задания

0

А, вы насчёт ((a) ((a)) (((a)))), где (a) может быть выведено до трёх раз? Ну да, так. (Математически элегантно было бы привязать к каждому элементу ответа его "адрес" в дереве, ну да не требуется и слава богу.)

0

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

0

Вот:

Пойдет?

0