Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp LISP задание https://www.cyberforum.ru/ lisp/ thread838576.html
Даны два числовых одноуровневых списка.....
Lisp Описать функцию (уникум x)
Списки, являющиеся аргументами функций, могут содержать подсписки. Рекурсия распространяется как в направлении cdr, так и в направлении car, т.е. на подсписки. Для определения главной функции можно...
Определить две рекурсивных функции Lisp
В данном задании все операции над списками выполняются только с элементами верхнего уровня, хотя списки могут содержать подсписки. Рекурсия выполняется только в направлении CDR списка.
Lisp Определить функцию Есть варианты решения? https://www.cyberforum.ru/ lisp/ thread838210.html
Lisp Разработать программу, проверяющую наличие циклов в системе продукций. https://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 (+... https://www.cyberforum.ru/ lisp/ thread836241.html
Lisp Описать функцию (max1 x) https://www.cyberforum.ru/ lisp/ thread835900.html
Указания к решению задачи. Списки, являющиеся аргументами функций, могут содержать подсписки. Рекурсия распространяется как в направлении cdr, так и в направлении car, т.е. на подсписки. Для...
Lisp Определить две рекурсивных функции Определить две рекурсивных функции. Распечатать результаты трассировки. Указать вид рекурсии (рекурсия по значению или по аргументу). Указание к выполнению задания. В данном задании все операции... https://www.cyberforum.ru/ lisp/ thread835896.html
Модератор
26260 / 13671 / 2597
Регистрация: 12.02.2012
Сообщений: 22,421
16.04.2013, 09:39  [ТС] 0

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

16.04.2013, 09:39. Просмотров 844. Ответов 7
Метки (Все метки)

Ответ

И итеративное:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun del-b (lst)
  (let ((res (list (car lst))))
     (iter (for i in lst) (for j in (cdr lst)) (when (> j i) (collecting j into res)))
     res))
 
 
 
==> del-b
 
(del-b '(1 2 3 1 4 5 2 7))
 
==> (1 2 3 4 5 7)
 
(del-b '(1 2 3 1 1 4 5 2 7))
 
==> (1 2 3 4 5 7)


Вернуться к обсуждению:
Удалить из числового списка числа, нарушающие возрастающий порядок
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2013, 09:39
Готовые ответы и решения:

Удалить элементы массива, нарушающие порядок возрастания
Имеется массив из N элементов (N < 101). Удалите из массива все элементы, нарушающие порядок...

Удалить из строки все слова, нарушающие алфавитный порядок слов
Имя процедуры/функции:DelWordsABC(s) Удалить из строки все слова, нарушающие алфавитный порядок...

Для исходного сложного числового списка, построить список, состоящий из элементов исходного списка, отрицательные числа в котором заменены 0
Для исходного сложного числового списка, построить список, состоящий из элементов исходного списка,...

Создание числового списка от 1 до заданного конечного числа, пребавляя к предыдущему 1
Форумчане, доброго времени суток! Есть "Выражение1", значение которого изменяется, и которое,...

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