четные числа в множестве

@Olezhka · Регистрация: 16.10.2010

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

Здравствуйте, есть у меня вот такое задание : найти четные числа в результирующем множестве, полученном из пересечения двух множеств. В качестве множеств выступают списки из чисел.

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

Lisp

(setq a '(1 2 3))
(setq b '(1 2 3))
(setq d '(NULL))
(setq c '(INTERSECT a b))
(let *
(d c)
(loop
(if(equal d nil)(return 'end)
(if(=(%(car d)2)0)(append e)
(pop d)
(printline e)))))

@Catstail · 25.11.2012, 22:11

В идеологии Лиспа это можно сделать так:

1) составить функцию, которая из произвольного списка строит список четных:

Lisp

(defun even-list (x)
   (cond ((null x) nil)
         ((evenp (car x)) (cons (car x) (even-list (cdr x))))
         (t (even-list (cdr x)))))
 
==> even-list
 
(even-list '(1 2 3 4 5 6 7 8))
 
==> (2 4 6 8)

А теперь, функция, решающая задачу (для любых списков X и Y):

Lisp

(defun task (x y) (even-list (intersection x y)))
 
==> task
 
(task '(1 2 3 4 5 6) '(4 5 6 7 8))
 
==> (4 6)

@_sg · 26.11.2012, 02:17

Lisp

(defun inter-evenp (w v)
  (remove-if #'oddp (intersection w v)))
 
> (inter-evenp '(1 2 3 4 5 6) '(4 5 6 7 8))
(4 6)

	26.11.2012, 02:17