Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 20.02.2018
Сообщений: 6

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

20.02.2018, 12:54. Показов 1927. Ответов 2
Метки lisp (Все метки)

Студворк — интернет-сервис помощи студентам
1. Определите функцию, обращающую список и все его подсписки
на любом уровне, например, (a b (c d) e) -> (e (d c) b a).

Я пользуюсь HomeLisp, не могли бы написать, я не понимаю.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.02.2018, 12:54
Ответы с готовыми решениями:

Обратить список, найти максимальный элемент и удалить его [Turbo Prolog]
Очень прошу) помогите пожалуйста!! Обратить список, найти максимальный элемент и удалить его. Турбо Пролог.

Помогите определить функцию TOTREVERSE которая реверсирует список и его подсписки
Помогите определить функцию TOTREVERSE которая реверсирует список и его. (TOTREVERSE ’(A (B C) D (E) F))) -> (( F (E))D (C B) A))

Создать список на основе исходного, в котором заменить все подсписки на элемент e
Помогите решить задание, не могу въехать совсем Создать список на основе исходного, в котором заменить все подсписки на элемент e.

2
 Аватар для _sg
4706 / 4401 / 380
Регистрация: 12.05.2012
Сообщений: 3,100
20.02.2018, 17:23
Функция должна возвращать список, содержащий элементы исходного списка, перечисленные в обратном порядке

Добавлено через 7 секунд
Функция reverse, произвольный список

Добавлено через 28 секунд
Реверс произвольного списка, включая подсписки (XLisp)

Добавлено через 41 секунду
Сложности с лиспом

Добавлено через 46 секунд
https://www.cyberforum.ru/lisp/thread1132774.html
1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38162 / 21097 / 4306
Регистрация: 12.02.2012
Сообщений: 34,685
Записей в блоге: 14
20.02.2018, 20:02
Лучший ответ Сообщение было отмечено dante666lcf как решение

Решение

Lisp
1
2
3
4
5
6
7
8
9
10
(defun rev-all (lst &optional (r nil))
  (cond ((null lst) r)
        ((listp (car lst)) (rev-all (cdr lst) (cons (rev-all (car lst)) r)))
        (t (rev-all (cdr lst) (cons (car lst) r)))))
 
==> REV-ALL
 
(rev-all '(a b (c d) e)) 
 
==> (E (D C) B A)
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.02.2018, 20:02
Помогаю со студенческими работами здесь

Создает на n - уровне вложенный список, элементом которого на самом нижнем уровне является n
Я решил задачу так: CL-USER 1 > (defun f (l n) (cond (( eq n 0) l) ((null l) (f (list n) (- n 1))) (t (f (cons...

Разбить список на подсписки
Доброго времени суток! Помогите решить задачу, беспощадная сессия - с Хаскелем еще не разобрался, а экзамен уже через пару дней.. ...

Список и подсписки проблема
Условие :Транспортная фирма ведет учет качества работы водителей: для каждого из них ведутся сведения по схеме: ИНН, реквизиты...

Разбить список на подсписки
собственно сама задача: Список List2 получен из списка List1 путём группировки в подсписки троек элементов, начиная с первого. Если...

Список и подсписки задача
Создать писок, в котором каждый элемент является подсписком уровня, соответствующего его месту, и в котором каждый элемент встречается не...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru