VPF::Подсписки - Форум программистов

Takushika

Дата 1.11.2011, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.8.2009
Где: Шуя

Репутация: нет
Всего: нет

Помогите, пожалуйста, решить задачу:

Написать программу определения и вывода подсписков, которые не входят ни в какие другие подсписки. Вхождение определяется в теоретико-множественном смысле.

_sg

Дата 22.12.2012, 01:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

Код


(defun check-sub (a w)
  (cond ((null w) nil)
        ((subsetp a (car w)) t)
        ((check-sub a (cdr w)))))

(defun unique-subs (w &aux (v (cdr w)))
  (cond ((null w) nil)
        ((check-sub (car w) v) (unique-subs (cdr w)))
        ((cons (car w) (unique-subs (cdr w))))))

> (unique-subs '((a b) (a b c) (d e) (f g h)))
((A B C) (D E) (F G H))

Это сообщение отредактировал(а) _sg - 25.4.2014, 16:31

--------------------

vk.com/ansicommonlisp

_sg

Дата 25.4.2014, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

Код


(defun check-sub (a w)
  (when w (if (subsetp a (car w)) t (check-sub a (cdr w)))))

(defun unique-subs (w &aux (v (cdr w)))
  (when w (if (check-sub (car w) v)
              (unique-subs (cdr w))
              (cons (car w) (unique-subs (cdr w))))))

> (unique-subs '((a b) (a b c) (d e) (f g h)))
((A B C) (D E) (F G H))

Это сообщение отредактировал(а) _sg - 25.4.2014, 16:30

--------------------

vk.com/ansicommonlisp

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »