> 1 <

Автор Сообщение

Student_22

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#6890   2013-01-13 16:15 GMT+3 часа(ов)      
Вот еще задача. Вроде несложная, но то, что написал- не работает.
Условие задачи:
Определите функцию (f N V P), которая выдает список всех элементов списка V, удовлетворяющих некоторому предикату P и встречающихся в исходном списке более N раз.

отредактировал(а) Student_22: 2013-01-14 12:51 GMT+3 часа(ов)

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#6910   2013-02-04 21:14 GMT+3 часа(ов)      
Например, вот:

(defun f (n v p)
(iter (for x in v) (when (AND (funcall p x) (> (- (length v) (length (remove x v))) n))
(collecting x))))

==> f

(f 3 '(1 2 2 4 4 4 4 5 6 6 7 8 8 8 'evenp)

==> (4 4 4 4 8 8 8
> 1 <


Онлайн :

0 пользователь(ей), 40 гость(ей) :