Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp LISP задание http://www.cyberforum.ru/lisp/thread838576.html
Даны два числовых одноуровневых списка.....
Lisp Описать функцию (уникум x)
Списки, являющиеся аргументами функций, могут содержать подсписки. Рекурсия распространяется как в направлении cdr, так и в направлении car, т.е. на подсписки. Для определения главной функции можно...
Определить две рекурсивных функции Lisp
В данном задании все операции над списками выполняются только с элементами верхнего уровня, хотя списки могут содержать подсписки. Рекурсия выполняется только в направлении CDR списка.
Lisp Определить функцию Есть варианты решения? http://www.cyberforum.ru/lisp/thread838210.html
Lisp Разработать программу, проверяющую наличие циклов в системе продукций. http://www.cyberforum.ru/lisp/thread836767.html
Помогите пожалуйста написать программу. Задание: Разработать программу, проверяющую наличие циклов в системе продукций. Добавлено через 2 минуты Задание: Разработать программу, формирующую...
Lisp Запуск *.VLX приложения кнопкой
Добрый вечер! Есть несколько VLX-приложений. Хочется создать либо кнопку, либо дополнительное меню из которого можно будет эти приложения запускать. Как создавать "свое" меню разобрался, но как...
Lisp Разработать программу, проверяющую наличие в системе продукций цепочки вывода, имеющих максимальную сумму оценок истинности продукций
ЗАДАНИЕ: Разработать программу, проверяющую наличие в системе продукций цепочки вывода, которая имеет максимальное значение суммы значений оценок истинности продукций. Всю систему продукций также...
Lisp Императивный алгоритм Увеличить на единицу каждое число многоуровневого списка. Пример, когда список линейный. (defun plus1 (lst) (prog (acc) a (cond ((null lst) (return acc))) (setq acc (append acc (list (+... http://www.cyberforum.ru/lisp/thread836241.html
Lisp Описать функцию (max1 x) http://www.cyberforum.ru/lisp/thread835900.html
Указания к решению задачи. Списки, являющиеся аргументами функций, могут содержать подсписки. Рекурсия распространяется как в направлении cdr, так и в направлении car, т.е. на подсписки. Для...
Lisp Определить две рекурсивных функции Определить две рекурсивных функции. Распечатать результаты трассировки. Указать вид рекурсии (рекурсия по значению или по аргументу). Указание к выполнению задания. В данном задании все операции... http://www.cyberforum.ru/lisp/thread835896.html
helter
Эксперт по математике/физике
3831 / 2858 / 309
Регистрация: 12.03.2013
Сообщений: 5,192
15.04.2013, 23:02 0

Удалить из числового списка числа, нарушающие возрастающий порядок

15.04.2013, 23:02. Просмотров 734. Ответов 7
Метки (Все метки)

Ответ

Вот эта тема?
Удалить из списка неупорядоченные подсписки


Немыслимое для C++ решение:
Lisp
1
2
3
4
5
6
7
(defun del-b (seq)
  (nreverse (reduce #'(lambda (acc x)
                        (if (or (null acc) (> x (car acc)))
                            (cons x acc)
                            acc))
                    seq
                    :initial-value nil)))


Вернуться к обсуждению:
Удалить из числового списка числа, нарушающие возрастающий порядок
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2013, 23:02

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

Удалить все элементы списка, содержащие числа большие, чем среднее значение элементов списка
Сформировать список из N целочисленных случайных элементов (N – вводится пользователем, значения...

Удалить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр
Дано четырехзначное число n. Удалить из записи числа цифры 0 и 5, оставив прежним порядок остальных...

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