Форум программистов, компьютерный форум, киберфорум
Наши страницы
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
_sg
4033 / 3791 / 278
Регистрация: 12.05.2012
Сообщений: 2,662
16.04.2013, 00:23 0

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

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

Ответ

как вариант:
Lisp
1
2
(defun rem-b (xs)
  (when xs (nreverse (reduce #'cons-b (cdr xs) :initial-value (list (car xs))))))
Lisp
1
2
3
4
5
6
(defun del-b (w)
  (if (cdr w)
      (if (<= (car w) (cadr w))
          (cons (car w) (del-b (cdr w)))
          (del-b (cons (car w) (cddr w))))
      w))


Вернуться к обсуждению:
Удалить из числового списка числа, нарушающие возрастающий порядок
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2013, 00:23
Готовые ответы и решения:

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

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

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

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

Удалить из массива все элементы, нарушающие регулярность
Дан целочисленный массив Н(30). Оставить его без изменения, если он упорядочен по невозрастанию или...

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