Список не удовлетворяющий предикату P (с использованием функционала)

@eddilou · Регистрация: 21.11.2010

Студворк — интернет-сервис помощи студентам

Всем привет, помогите пож-та выполнить задание, пишу на XLISP и парадигма Common Lisp, в лиспе не оч силен.
Собственно само задание:
Напишите функцию (takeWhile L Р), которая в качестве результата выдает список, состоящий из всех элементов списка L, начинает с начала списка и до первого элемента, не удовлетворяющего данному предикату Р. Например: (take While '(2 4 6 7 8 9) 'Evenp) = (2 4 6). (Р - функция пли функциональное имя ).

@_sg · 27.11.2012, 18:30

не знаю причины, скопировал из Вашего поста, работает

02.06.2013, 18:53

Напишите функцию (filter p x), которая "фильтрует" (создает список) элементы списка x, удовлетворяющие предикату p (p - функция или функционально е имя ).

@_sg · 02.06.2013, 19:22

Lisp
1
2
3
4
5
6
7
(defun filter (p w)
  (cond ((null w) nil)
        ((funcall p (car w)) (cons (car w) (filter p (cdr w))))
        (t (filter p (cdr w)))))
 
> (filter #'oddp '(1 2 3))
(1 3)

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

Lisp
1
2
3
4
5
(defun filter (p w)
  (when w  (if (funcall p (car w)) (cons (car w) (filter p (cdr w))) (filter p (cdr w)))))
 
> (filter #'oddp '(1 2 3))
(1 3)

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

Lisp
1
2
3
4
5
(defun filter (p w)
  (loop for a in w when (funcall p a) collect a)) 
 
> (filter #'oddp '(1 2 3))
(1 3)

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

Lisp
1
2
3
4
5
(defun filter (p w)
  (remove-if-not #'(lambda (a) (funcall p a)) w))
 
> (filter #'oddp '(1 2 3))
(1 3)

@Catstail · 02.06.2013, 21:11

До кучи:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun filter$ (lst p)
 (let ((res nil))
   (mapcar #'(lambda (x) (if (funcall p x) (push x res) nil)) lst)
   (reverse res)))
 
==> filter$
 
(filter$ '(1 2 3 4 5 6 7) #'evenp)
 
==> (2 4 6)
 
(filter$ '(1 2 3 4 5 6 7) #'oddp)
 
==> (1 3 5 7)

04.06.2013, 07:41

Catstail, здравствуйте! это вот эта задачка да?? Напишите функцию (filter p x), которая "фильтрует" (создает список) элементы списка x, удовлетворяющие предикату p (p - функция или функционально е имя ).

Добавлено через 1 минуту
sg и Catstail, спасибо большое/ч то откликнулись!

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@eddilou 3 / 3 / 0 Регистрация: 21.11.2010 Сообщений: 194

	Список не удовлетворяющий предикату P (с использованием функционала) 20.11.2012, 22:33. Показов 3490. Ответов 24 Метки нет (Все метки) Всем привет, помогите пож-та выполнить задание, пишу на XLISP и парадигма Common Lisp, в лиспе не оч силен. Собственно само задание: Напишите функцию (takeWhile L Р), которая в качестве результата выдает список, состоящий из всех элементов списка L, начинает с начала списка и до первого элемента, не удовлетворяющего данному предикату Р. Например: (take While '(2 4 6 7 8 9) 'Evenp) = (2 4 6). (Р - функция пли функциональное имя ). 0

@_sg 4710 / 4405 / 380 Регистрация: 12.05.2012 Сообщений: 3,102
	27.11.2012, 18:30
	не знаю причины, скопировал из Вашего поста, работает 0

gulya182009
	02.06.2013, 18:53
	Напишите функцию (filter p x), которая "фильтрует" (создает список) элементы списка x, удовлетворяющие предикату p (p - функция или функционально е имя ).

gulya182009
	04.06.2013, 07:41
	Catstail, здравствуйте! это вот эта задачка да?? Напишите функцию (filter p x), которая "фильтрует" (создает список) элементы списка x, удовлетворяющие предикату p (p - функция или функционально е имя ). Добавлено через 1 минуту sg и Catstail, спасибо большое/ч то откликнулись!